MACRO                                                          00001000
&LABEL   DMSFST &NAME,&ALIAS                                            00002000
         LCLC  &ANAME,&ATYPE,&FNAME,&FTYPE                              00003000
         AIF   (T'&NAME EQ 'O').ERR1                                    00004000
&ANAME   SETC  '&NAME(1)'                                               00005000
&FNAME   SETC  '&ANAME'                                                 00006000
&ATYPE   SETC  'MODULE'                                                 00007000
         AIF   (T'&NAME(2) EQ 'O').SKIP1                                00008000
&ATYPE   SETC  '&NAME(2)'                                               00009000
.SKIP1   ANOP                                                           00010000
&FTYPE   SETC  '&ATYPE'                                                 00011000
         AIF   (T'&ALIAS EQ 'O').SKIP2                                  00012000
&ANAME   SETC  '&ALIAS(1)'                                              00013000
         AIF   (T'&ALIAS(2) EQ 'O').SKIP2                               00014000
&ATYPE   SETC  '&ALIAS(2)'                                              00015000
.SKIP2   ANOP                                                           00016000
&LABEL   DS    0D                                                       00017000
         DC    CL8'&ANAME'                                              00018000
         DC    CL8'&ATYPE'                                              00019000
         DC    CL8'&FNAME'                                              00020000
         DC    CL8'&FTYPE'                                              00021000
         DC    XL8'00'                                                  00022000
         SPACE                                                          00023000
         MEXIT                                                          00024000
.ERR1    MNOTE 8,'NO FILE NAME SPECIFIED'                               00025000
         MEND                                                           00026000