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