MACRO 00001000
&NAME GOTO &SUBR,&PARM= 00002000
AIF ('&NAME' EQ '').S1 LABEL OMITTED? 00003000
&NAME DS 0H 00004000
.S1 AIF ('&PARM' EQ '').S2 "PARM" NOT GIVEN? 00005000
LA R2,&PARM 00006000
.S2 AIF (T'&SUBR(1) EQ 'N').S3 IS '&SUBR' NUMERIC? 00007100
AIF ('&SUBR' EQ 'DMKDSPCH').S6 ADCON IN PSA? 00009000
L R12,=A(&SUBR) 00010000
AGO .S5 00011000
.S3 AIF (&SUBR(1) EQ 12).S5 FOR &SUBR NUMERIC IS IT 12 00012000
LR R12,R&SUBR(1) 00013000
.S5 BR R12 00014100
MEXIT 00019000
.S6 L R12,ADSPCH 00020000
AGO .S5 00022000
MEND 00024000