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