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