EXECIO CP

Opposite is the syntax of the EXECIO command used to issue a CP (Control Program) command.

Also listed is a sample REXX routine which issues CP Commands to display and purge the spool queues.

/VM EXECIO CP syntax, including optional operands

"EXECIO num_rec CP ( in/out_options¹ BUF buflen ST cmdtext "

1 - Input / output options applicable to EXECIO CP

SKIP

FIFO
LIFO
STEM varname.

If not coded, command responses are stacked in FIFO mode.

A closing parenthesis ) is optional and hence often omitted.

/* REXX DEMONSTRATION OF ISSUING A CP COMMAND */ "EXECIO * CP ( STRING Q PRT " /* DISPLAY PRINT QUEUE */ "EXECIO * CP ( STRING Q PUN " /* DISPLAY PUNCH QUEUE */ "EXECIO * CP ( STRING Q RDR " /* DISPLAY READER QUEUE */ DO UNTIL QUEUED() = 0 /* DISPLAY QUERY RESULTS */ PULL COMRES /* GET RESPONSE LINE */ SAY COMRES /* SHOW USE THE RESPONSE */ END "EXECIO 0 CP ( STRING PURGE "USERID()" PRT ALL" PRTRC = RC /* SAVE RETURN CODE */ "EXECIO 0 CP ( STRING PURGE "USERID()" PUN ALL" PUNRC = RC /* SAVE RETURN CODE */ "EXECIO 0 CP ( STRING PURGE "USERID()" RDR ALL" RDRRC = RC /* SAVE RETURN CODE */ IF PRTRC = 0 THEN DO PUSH 'MSG '||USERID()||' PRINT QUEUE EMPTY ' "EXECIO 0 CP " END IF PUNRC = 0 THEN DO PUSH 'MSG '||USERID()||' PUNCH QUEUE EMPTY ' "EXECIO 0 CP " END IF RDRRC = 0 THEN DO PUSH 'MSG '||USERID()||' READER QUEUE EMPTY ' "EXECIO 0 CP " END EXIT