* /*                                                                */  03050002
* /* MACCOMP Y-2 SC1DE/SJE92                                        */  03100002
* /* MACSTAT Y-2 72335/Y02020                                       */  03150002
* /*                                                                */  03200002
         MACRO                                                          03250002
&CATLBL  CATLG &MF=                                                     06000000
         AIF   ('&MF' NE 'L').C1                                        09000000
         AIF   ('&CATLBL' EQ '').C0                                     12000000
&CATLBL  DS    0H                       CATALOG MACRO LABEL             15000000
.C0      MEXIT                                                          18000000
.C1      AIF   ('&MF(1)' EQ 'E').C2                                     21000000
&CATLBL  SVC   26                       CALL AM/0 CATALOG               24000000
         MEXIT                                                          27000000
.C2      AIF   ('&MF(2)' EQ '' OR '&MF(2)' EQ '(1)').C3                 30000000
         AIF   ('&MF(2)'(1,1) EQ '(').C4                                33000000
&CATLBL  LA    1,&MF(2)                 LOAD CATALOG PARM REG           36000000
         AGO   .C5                                                      39000000
.C3      ANOP                                                           42000000
&CATLBL  SVC   26                       CALL AM/0 CATALOG               45000000
         MEXIT                                                          48000000
.C4      ANOP                                                           51000000
&CATLBL  LR    1,&MF(2)                 LOAD CATALOG PARM REG           54000000
.C5      SVC   26                       CALL AM/0 CATALOG               57000000
         MEND                                                           60000000