Try adding
ENTRY TESTPRGE
--
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: Thursday, July 18, 2019 1:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Abend entry LE Assembler
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://secure-web.cisco.com/1Z7sgt5BpQWHi0jT4hr_xwinpyfKBUa4C8th5lUFgNAU4WIrG6GD_2s6smbpOVlTdTX4SiFype3UWr4aShD0CubG-n2eU3bT47JHlqDRc94p4QhsS5GzpeUpAXik02ciijBp5xtitiuRDOwnE14CjGaNENxMx3tqAtIgHQdbqVmRD6fYDYj-sa_ljHkirxSa0gNkgrUzduCrq7Hcha4hxvjg9RJUHnWZl_k3P40l1o1syrrNXTqVl3W6hUQ-tK9MaGUQ_pnuYs6cFNg6wBXQQG3y0sD1p2aEHbVvDv-zm0sQcgiW9PGu8JNfQi5TZ4uEeg18kZfLRaDUgEMQgNCqxtKjxFutCAV8Rurcd5YJfG5iBXy3vnYSh0v7RrbEBf61aM87QU1BqjCN5CLZEkoAXcGsHrTWgoIa2_pO6smd552f9GXb4mUooD0JeNvO7qK6N/http%3A%2F%2Fwww.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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
