.ENABLE QUIET
.ENABLE SUBSTITUTION
.; FILE TO XEROX COMMAND FILE VIA CCL
.;
.; SEE IF FILE NAME ENTERED
.IF P1 NE "" .GOTO FILEOK
.XERAGN:
.ASKS P1 File(s)
.FILEOK:
.TESTFILE 'P1'
.IF <FILERR> NE 1 .GOTO FILERR
.; SEE IF MSG ENTERED FOR DELIVERY
.IF P2 NE "" .GOTO MSGOK
.ASKS P2 To whom should this XEROX copy be delivered
.MSGOK:
.OPEN XEROXTMP.TMP
.DATA DELIVER 'P1' TO 'P2' 'P3' 'P4' 'P5' 'P6' 'P7' 'P8' 'P9'
.DATA 
.DATA ,PRINT 100
.DATA INP 12,400
.DATA ,END
.CLOSE
PIP SX:[50,51]XEROX.PR/NV/FO/CD=XEROXTMP.TMP,'P1'
PIP XEROXTMP.TMP;0/DE
.DISABLE QUIET
.DISABLE DISPLAY
; *** XEROX COMPLETED ***
.EXIT
.FILERR:
.DISABLE QUIET
; *** ERROR *** FILE 'P1' NOT FOUND *** TRY AGAIN ***
.ENABLE QUIET
.GOTO XERAGN
