That is the reason I pasted the CEEENTRY macro I did get a clean return code from the binder
> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen <bdis...@dissensoftware.com> > wrote: > > This should be a clue. > > PSW 078D1400 80000002 > > Follow normal debugging techniques. > > > On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman <reichman...@gmail.com> > wrote: > > :>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 > > -- > Binyamin Dissen <bdis...@dissensoftware.com> > http://www.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > > Should you use the mailblocks package and expect a response from me, > you should preauthorize the dissensoftware.com domain. > > I very rarely bother responding to challenge/response systems, > especially those from irresponsible companies. > > ---------------------------------------------------------------------- > 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
