Look at R15. the bottom half is 0 with a 31-bit mode flag. EQA10OSM is calling an external routine that was not resolved, presumably due to, e.g., NCAL. Back up from 8002EC7C and look for the load of R15, then look for the relocation information at that location.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Joseph Reichman <reichman...@gmail.com> Sent: Wednesday, July 17, 2019 10:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Abend entry LE Assembler Hi I am getting the following abend in the beginning of CEEETRY macro seems like the call to CEEINIT This is the abend CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET: IBMUSER.D 03169.IBMUSER IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS ( ) IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO IBMUSER.D198.T2203169.IBMUSE CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP. CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 00000000 WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138 AT THE TIME OF INTERRUPT PSW 078D1400 80000002 GPR 0-3 0000270F 1F7E1750 1F7D9170 1F7E1364 GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C GPR 8-B 00000000 00000000 1F808670 0002EE78 GPR C-F 1F7D9188 1F7E1688 8002EC7C 80000000 FLT 0-2 2610000000000000 1800000000000000 FLT 4-6 40517CC1B727220B 40A2F9836E4E4415 CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 00000000 WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138 AT THE TIME OF INTERRUPT PSW 078D0400 80000002 This is the entry CEEENTRY macro TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE Running it under TEST it abends at the balr to CEEINIT STM 14,12,CEEDSAR14-C L 2,CEEINPL0002 L 15,CEEINT0002 DROP 15 BALR 14,15 LR 2,1 L 14,752(,12) OI 8(14),X'80' L 1,CEEDSANAB-CEEDS IILH 0,CEEY0002/65536 IILL 0,CEEY0002-(CEEY0 ALR 0,1 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
