MACRO 00001000 EPLIST &SECT 00002000 PUSH PRINT 00003000 AIF ('&SYSPARM' NE 'SUP').ACC01 00004000 PRINT OFF,NOGEN 00005000 .ACC01 ANOP 00006000 AIF ('&SECT' EQ 'CSECT').CSECT 00007000 EPLIST DSECT 00008000 AGO .CONT 00009000 .CSECT ANOP 00010000 * The extended parameter list (EPLIST) is used to pass the 00012000 * untokenized command & argument string to a CMS command. 00013000 EPLIST DS 0F extended parameter list 00014000 .CONT ANOP 00011000 EPLCMD DS A address of command 00015000 EPLARGBG DS A address of start of arguments 00016000 EPLARGND DS A address of 1st byte after args 00017000 EPLUWORD DS F user word, feel free to use it 00018000 SPACE 00019000 * The following values are placed in the high order byte 00020000 * of R1 to signal that an extended parameter list is 00021000 * available in R0. 00022000 EPLFNCFL EQU X'01' extended PLIST available 00023000 EPLCMDFL EQU X'0B' extended PLIST available 00024000 POP PRINT 00025000 MEND 00026000