You might be able to get away with changing: A1C401B DC V(TESTPRGE) to: A1C401B DC V(CEESTART)
but your comment is wrong, you're not calling a DLL, you're calling an LE main program. The LE environment will be destroyed when you return from the call to A1C401B. I'm not sure what your intent is in having the non-LE assembler bit call the LE program. In article <003f01d53d8a$e26579e0$a7306da0$@gmail.com> you wrote: > This is the whole Job I ran TESTPRGD under test and Made a break point at > the BALR to CEEINIT expansion from CEEENTRY > your edit profile using the command RECOVERY ON. > //IBMUSER$ JOB 'ADCD V2R9','SYSPROG',NOTIFY=&SYSUID,REGION=0M > //* > //STEP0100 EXEC PGM=ASMA90,PARM='OBJECT,ADATA,LIST(133),GOFF(ADATA)' > //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB > // DD DISP=SHR,DSN=CEE.SCEEMAC > //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(600,100)) > //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(600,100)) > //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(600,100)) > //SYSADATA DD DSN=&&ADATA,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE) > //SYSPRINT DD DSN=IBMUSER.TEST.SYSPRINT(TESTPRGD),DISP=SHR > //SYSLIN DD DSN=&&HEXOBJ(TESTPRGD),DISP=(,PASS), > // UNIT=SYSDA,SPACE=(80,(200,50,1)) > //SYSIN DD * > TESTPRGD CSECT > TESTPRGD AMODE 31 > TESTPRGD RMODE ANY > *------------------------------------------------------------* > * TEST PROGRAM TO CALL C/C++ DLL * > *------------------------------------------------------------* > YREGS > STM R14,R12,12(R13) > LR R3,R15 > USING TESTPRGD,R3 > LR R14,R13 > LA R13,SAVEAREA > ST R14,SAVEAREA+4 > ST R13,8(,R14) > * ESTAE RECOVERY > L R15,A1C401B > BALR R14,R15 > L R13,4(,R13) > LM R14,R12,12(R13) > XR R15,R15 > BR R14 > > RECOVERY DS 0D > DC X'0700' > SAVEAREA DS 18F > A1C401B DC V(TESTPRGE) > LTORG > TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE > * LOAD EP=CEETEST > * LA R1,PARM > * LR R15,R0 > * BASR R14,R15 > CEEPCALL opendata,MF=(E,) > XR R15,R15 > CEETERM RC=(R15) > * CEEPDDA OPENDATA,SCOPE=IMPORT > *ARM1 DC A(STRING) > *ARM DC A(FEEDBACK) > *TRING DS 0H > * DC H'8' > * DC C'AT ENTRY' > *EEDBACK DS CL12 > DLLPPA CEEPPA > WORKAREA DSECT > ORG *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART > DS 0D > WORKSIZE EQU *-WORKAREA > CEEDSA MAPPING OF THE DYNAMIC SAVE AREA > CEECAA MAPPING OF THE COMMON ANCHOR AREA > CEEEDB MAPPING OF THE ENCLAVE DATA BLOCK > END > /* > //***************************************************************** > //* LINK EDIT THE PROGRAM * > //***************************************************************** > //STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100), > // PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED' > //SYSPRINT DD SYSOUT=* > //SYSDEFSD DD SYSOUT=* > //OBJ DD DSN=&&HEXOBJ,DISP=(OLD,PASS) > //SYSDEFSD DD SYSOUT=* > //OBJ DD DSN=&&HEXOBJ,DISP=(OLD,PASS) > //SYSLIB DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB > // DD DISP=SHR,DSN=CEE.SCEELKED > //SYSLMOD DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB > //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1 > //SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509) > //SYSLIN DD * > IMPORT CODE,SYSADATA,opendata > INCLUDE OBJ(TESTPRGD) > INCLUDE SYSLIB(SYSADATA) > ENTRY TESTPRGD > NAME TESTPRGD(R) > /* > // > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of > Don Poitras > Sent: Thursday, July 18, 2019 12:57 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Abend entry LE Assembler > In your link-edit, what did you set the entry point to? You were previously > using 64-bit, and CELQSTRT is what I mentioned would be correct for that. > Now that you're 31-bit, it needs to be CEESTART. > In article <834432fa-2af1-4e01-abc7-ad0fa62c4...@gmail.com> you wrote: > > As I told Binyamin I got a clean link > > > On Jul 18, 2019, at 12:26 PM, Charles Mills <charl...@mcn.org> wrote: > > > > > > PSW 078D1400 80000002 > > > > > > GPR C-F 1F7D9188 1F7E1688 8002EC7C 80000000 > > > > > > A wild guess would be that you took a BALR 14,15 from address 2EC7C > > > to an unresolved EXTRN. > > > > > > Charles > > > > > > > > > -----Original Message----- > > > From: IBM Mainframe Discussion List > > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman > > > Sent: Wednesday, July 17, 2019 10:26 PM > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > Subject: Re: Abend entry LE Assembler > > > > > > 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 > > > > > > -------------------------------------------------------------------- > > > -- 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 > -- > Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive > sas...@sas.com (919) 531-5637 Cary, NC 27513 > ---------------------------------------------------------------------- > 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 -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637 Cary, NC 27513 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN