IDENTIFICATION DIVISION.
PROGRAM-ID. SCREENCTL_TO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77	LOC-SYM   PIC 9(9) COMP VALUE 1.
LINKAGE SECTION.
01	PARAMETER PIC 9(9) COMP.
PROCEDURE DIVISION USING PARAMETER.
*	Cancel the I/O request on the channel and set local Symbol to yes
0.	CALL "SYS$CANCEL"     USING BY VALUE PARAMETER.
	CALL "LIB$SET_SYMBOL" USING BY DESCRIPTOR "SCREENCTL$TO" "YES"
	                            BY REFERENCE LOC-SYM.
1.	EXIT.