program rcvtst
	implicit integer (a-z)
	dimension buffer(104), pgmnam(3)
c
c
c
	type *
	type *,'RUNNER/INSREM receive test...'
 1	continue
	nprm = 104
	call RCVPRM (buffer, nprm)
	TYPE *,'Number of parameters = ',nprm
	call IODUMP("100002, buffer, nprm*2)
	goto 1
	end