Call GetPage( Pnum )
		Call StsCon( Appnd, Page, Pnum, Param(-3) )
		param(ABS(param(0))) = rprt
		CALL IRAD50(12, 'BINLIBTSTSAV', Spec )
		Call CloseOutput

		IF (IIAND(Ispy('300'O),2**12) .ne. 2**12) THEN

C			VSpec = Spec
C			Call Irad50( 12, 'SY VBGCHNSAV', Spec )
C			Call Chain( Spec, param, 56 )
			Call Chain( Spec, param(-7), 52 )

		ELSE

			Call Chain( Spec, param(-7), 52 )

		END IF

9999	END

C----------------------------------------------------------------------------)