Thanks I’ll try lt
> On Jul 18, 2019, at 1:16 PM, Don Poitras <[email protected]> wrote: > > 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 <[email protected]> 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 <[email protected]> On Behalf Of >> Don Poitras >> Sent: Thursday, July 18, 2019 12:57 PM >> To: [email protected] >> 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 <[email protected]> you wrote: >>> As I told Binyamin I got a clean link >>>> On Jul 18, 2019, at 12:26 PM, Charles Mills <[email protected]> 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:[email protected]] On Behalf Of Joseph Reichman >>>> Sent: Wednesday, July 17, 2019 10:26 PM >>>> To: [email protected] >>>> 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 >>>>> <[email protected]> >>>> wrote: >>>>> >>>>> This should be a clue. >>>>> >>>>> PSW 078D1400 80000002 >>>>> >>>>> Follow normal debugging techniques. >>>>> >>>>> >>>>> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman >>>>> <[email protected]> >>>>> 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 [email protected] with the >>>>> message: INFO IBM-MAIN >>>>> >>>>> -- >>>>> Binyamin Dissen <[email protected]> >>>>> 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 [email protected] with the message: INFO >>>>> IBM-MAIN >>>> >>>> -------------------------------------------------------------------- >>>> -- For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email to [email protected] with the message: INFO >>>> IBM-MAIN >>>> >>>> -------------------------------------------------------------------- >>>> -- For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email to [email protected] with the message: INFO >>>> IBM-MAIN > >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, send >>> email to [email protected] with the message: INFO IBM-MAIN > > >> -- >> Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive >> [email protected] (919) 531-5637 Cary, NC 27513 > >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, send email >> to [email protected] with the message: INFO IBM-MAIN > >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN > > -- > Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive > [email protected] (919) 531-5637 Cary, NC 27513 > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
