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