User Tools

Site Tools


ibm:vm370-lib:macro:dmsfst.macro_src

DMSFST Source

References

Source Listing

DMSFST.MACRO.txt
  1. MACRO 00001000
  2. &LABEL DMSFST &NAME,&ALIAS 00002000
  3. LCLC &ANAME,&ATYPE,&FNAME,&FTYPE 00003000
  4. AIF (T'&NAME EQ 'O').ERR1 00004000
  5. &ANAME SETC '&NAME(1)' 00005000
  6. &FNAME SETC '&ANAME' 00006000
  7. &ATYPE SETC 'MODULE' 00007000
  8. AIF (T'&NAME(2) EQ 'O').SKIP1 00008000
  9. &ATYPE SETC '&NAME(2)' 00009000
  10. .SKIP1 ANOP 00010000
  11. &FTYPE SETC '&ATYPE' 00011000
  12. AIF (T'&ALIAS EQ 'O').SKIP2 00012000
  13. &ANAME SETC '&ALIAS(1)' 00013000
  14. AIF (T'&ALIAS(2) EQ 'O').SKIP2 00014000
  15. &ATYPE SETC '&ALIAS(2)' 00015000
  16. .SKIP2 ANOP 00016000
  17. &LABEL DS 0D 00017000
  18. DC CL8'&ANAME' 00018000
  19. DC CL8'&ATYPE' 00019000
  20. DC CL8'&FNAME' 00020000
  21. DC CL8'&FTYPE' 00021000
  22. DC XL8'00' 00022000
  23. SPACE 00023000
  24. MEXIT 00024000
  25. .ERR1 MNOTE 8,'NO FILE NAME SPECIFIED' 00025000
  26. MEND 00026000
ibm/vm370-lib/macro/dmsfst.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator