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