I can not remember why I needed this assembler program - and why it is in assembler - but here it is: the program who’s sole function is to ABEND.  ABENDIT  CSECT         EQUATES          SAVE (14,12),,ABENDIT/SPDEPT/&SYSDATE/&SYSTIME/          USING ABENDIT,R11             SET UP BASE ADDRESSABILITY          LR    R11,R15                 LOAD BASE REG WITH ENTRY POINT          LA    R14,SAVE                GET ADDRESS OF REGISTER SAVE          ST    R13,4(0,R14)            SAVE CALLER'S SAVE AREA ADDR          ST    R14,8(0,R13)            SAVE MY SAVE AREA ADDRESS          LR    R13,R14                 LOAD SAVE AREA ADDRESS *        Business Logic          ABEND 4321 *        Epilogue RETURN   EQU    *          L      R13,4(R13)          RETURN (14,12)                RETURN TO CALLER          LTORG SAVE     DS     18F          END ABENDIT // Bert Grobs