PROGRAM CLSMSG

C	THIS PROGRAM WILL SEND TO PROGRAM 'QUELOG' CAUSING IT TO CLOSE THE 
C	QUEACP MESSAGE FILE 'QUEACPMSG.DAT' SO THAT IT CAN BE EXAMINED.
C	PROGRAM 'QUELOG' WILL ALSO EXIT.

	REAL * 4	TSKNAM
	INTEGER * 2	SNDBUF(13)
	INTEGER * 2	IDS

	DATA	TSKNAM	/6RQUELOG/
	DATA	SNDBUF	/'CL','OS','E ',10*0/

	CALL SEND(TSKNAM,SNDBUF,,IDS)

	IF (IDS.LE.0) 
	1	TYPE *,'BAD DIRECTIVE STATUS ON SEND, STATUS: ',IDS

	END