MACRO 00001000
DMSFRX &TYPCALL,&CL,&CR,&MSG,&ERR 00002000
LCLA &C 00003000
LCLB &MB,&BB 00004000
LCLC &CM 00005000
AIF ('&MSG' EQ 'YES' OR '&MSG' EQ 'NO').MOK 00006000
MNOTE 12,'DMSFRX003S ''MSG'' NOT ''YES'' OR ''NO''' 00007000
MEXIT 00008000
.MOK ANOP 00009000
&MB SETB ('&MSG' EQ 'YES') 00010000
&BB SETB ('&TYPCALL' EQ 'BALR') 00011000
&C SETA 256*(&CL+X'02'*&MB+X'01'*&BB)+&CR 00012000
AIF ('&ERR' EQ '').NOM 00013000
&CM SETC '-' 00014000
.NOM ANOP 00015000
AIF ('&TYPCALL' EQ 'SVC').SVC 00016000
AIF ('&TYPCALL' EQ 'BALR').BALR 00017000
MNOTE 8,'DMSFRX004S ''TYPCALL'' NOT ''SVC'' OR ''BALR''' 00018000
MEXIT 00019000
.SVC ANOP 00020000
SVC 203 00021000
DC H'&CM&C' 00022000
AGO .CERR 00023000
.BALR ANOP 00024000
USING NUCON,0 00025000
MVC CODE203(2),=H'&CM&C' 00026000
L 15,ADMSFREB 00027000
BALR 14,15 00028000
.CERR ANOP 00029000
AIF ('&ERR' EQ '' OR '&ERR' EQ '*').NOER 00030000
LTR 15,15 00031000
BNZ &ERR BRANCH TO ERROR ROUTINE 00032000
.NOER ANOP 00033000
MEND 00034000