User Tools

Site Tools


ibm:vm370-lib:macro:dmsfrx.macro_src

DMSFRX Source

References

Source Listing

DMSFRX.MACRO.txt
  1. MACRO 00001000
  2. DMSFRX &TYPCALL,&CL,&CR,&MSG,&ERR 00002000
  3. LCLA &C 00003000
  4. LCLB &MB,&BB 00004000
  5. LCLC &CM 00005000
  6. AIF ('&MSG' EQ 'YES' OR '&MSG' EQ 'NO').MOK 00006000
  7. MNOTE 12,'DMSFRX003S ''MSG'' NOT ''YES'' OR ''NO''' 00007000
  8. MEXIT 00008000
  9. .MOK ANOP 00009000
  10. &MB SETB ('&MSG' EQ 'YES') 00010000
  11. &BB SETB ('&TYPCALL' EQ 'BALR') 00011000
  12. &C SETA 256*(&CL+X'02'*&MB+X'01'*&BB)+&CR 00012000
  13. AIF ('&ERR' EQ '').NOM 00013000
  14. &CM SETC '-' 00014000
  15. .NOM ANOP 00015000
  16. AIF ('&TYPCALL' EQ 'SVC').SVC 00016000
  17. AIF ('&TYPCALL' EQ 'BALR').BALR 00017000
  18. MNOTE 8,'DMSFRX004S ''TYPCALL'' NOT ''SVC'' OR ''BALR''' 00018000
  19. MEXIT 00019000
  20. .SVC ANOP 00020000
  21. SVC 203 00021000
  22. DC H'&CM&C' 00022000
  23. AGO .CERR 00023000
  24. .BALR ANOP 00024000
  25. USING NUCON,0 00025000
  26. MVC CODE203(2),=H'&CM&C' 00026000
  27. L 15,ADMSFREB 00027000
  28. BALR 14,15 00028000
  29. .CERR ANOP 00029000
  30. AIF ('&ERR' EQ '' OR '&ERR' EQ '*').NOER 00030000
  31. LTR 15,15 00031000
  32. BNZ &ERR BRANCH TO ERROR ROUTINE 00032000
  33. .NOER ANOP 00033000
  34. MEND 00034000
ibm/vm370-lib/macro/dmsfrx.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator