EXECIO PUNCH

Opposite is the syntax of the EXECIO command used to transfer records to the virtual punch.

Note that the values after the open parenthesis ( are all optional and should be selected as required.

The sample code opposite reads 10 records from a file onto the Program Stack, and then issues the PUNCH command. It then queries the status of the punch queue.

z/VM EXECIO PUNCH syntax, including optional operands

EXECIO num_rec PUNCH ( output_options¹ "

Output options applicable to EXECIO PUNCH

STEM varname. VAR varname
ST string

A closing parenthesis ) is optional and hence often omitted.

/* REXX ROUTINE TO DEMO0NSTRATE EXECIO PUNCH */ "EXECIO 10 DISKR ENGINES DATA A ( " "EXECIO 10 PUNCH ( " "EXECIO * CP ( STRING SP PU CLOSE " /* CLOSE THE PUNCH */ /* THE FOLLOWING CODE IS USED TO PROVE THE SUCCESS OF PUNCH */ "EXECIO * CP ( STRING Q PUN " DO N = 1 UNTIL QUEUED() = 0 /* DISPLAY ALL RESPONSE LINES */ PULL COMRES /* GET RESPONSE LINE */ SAY COMRES /* SHOW USE THE RESPONSE */ END EXIT