MACRO                                                          00001000
&N       DMSABN &C,&TYPCALL=SVC                                         00002000
         AIF   ('&C'(1,1) EQ '(').LR                           @V208865 00003100
&N       LA    0,X'&C'                 LOAD ABEND CODE INTO REG 0       00004000
         AGO   .C                                                       00005000
.LR      ANOP                                                           00006000
&N       LR    0,&C(1)                 LOAD ABEND CODE INTO REG 0       00007000
.C       ANOP                                                           00008000
         AIF   ('&TYPCALL' EQ 'SVC').SVC                                00009000
         AIF   ('&TYPCALL' EQ 'BALR').BALR                              00010000
         MNOTE 8,'DMSABN001E ''TYPCALL'' NOT ''SVC'' OR ''BALR'''       00011000
         MEXIT                                                          00012000
.BALR    ANOP                                                           00013000
         L     15,=V(DMSABN)           LOAD ADDRESS OF ABEND ROUTINE    00014000
         BALR  14,15                   AND LINK TO IT                   00015000
         MEXIT                                                          00016000
.SVC     ANOP                                                           00017000
         SVC   203                     CALL ABEND ROUTINE               00018000
         DC    H'11'                                                    00019000
         MEND                                                           00020000