Joe R. You have to establish the Assembler environment is correct 64bit prior to the LE calls.
Scott On Sun, Oct 27, 2019 at 11:09 PM Joe Monk <joemon...@gmail.com> wrote: > You have to do the setup the way it is in the example.... > > Joe > > > Joe > > > On Sun, Oct 27, 2019 at 9:27 PM Joseph Reichman <reichman...@gmail.com> > wrote: > > > So you are saying using the service routines would make the difference > > > > -----Original Message----- > > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf > > Of scott Ford > > Sent: Sunday, October 27, 2019 8:52 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: Return code X'20' 32 from CELQPIPI INIT_MAIN > > > > Exactly, > > > > CSECT, SAM ..etc > > > > On Sun, Oct 27, 2019 at 8:37 PM Joe Monk <joemon...@gmail.com> wrote: > > > > > You seem to be missing a bunch ... > > > > > > Look at this example: > > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zo > > > s.v2r1.ceeam00/coreyex.htm > > > > > > Joe > > > > > > On Sun, Oct 27, 2019 at 7:03 PM Joseph Reichman > > > <reichman...@gmail.com> > > > wrote: > > > > > > > Here is all the relevant code besides the assemble and link but its > > > AMOD64 > > > > RMODE ANY > > > > > > > > Thanks > > > > > > > > * > > > > > > > > LG R15,CELQPIPI_EP Address of CELQPIPI E.P. > > > > * > > > > > > > > CALL (15), > > X > > > > (INIT_SUB, CELQPIPI INIT_MAIN request > > X > > > > CEEXPTBL_ADDR, Address of CELQPIPI table > > X > > > > 0, Address of service rtn vector > > X > > > > TOKEN), Token from INIT_MAIN > > X > > > > MF=(E,CALL_PL) > > > > * > > > > > > > > INIT_MAIN DC F'1' > > > > INIT_SUB DC F'3' > > > > CALL_MAIN DC F'2' > > > > CALL_SUB DC F'4' > > > > TERM DC F'5' > > > > > > > > CEEXPTBL_ADDR DC AD(CEEXPTBL) Address of PIPI table > > > > CEEXPTL_INDEX DC AD(0) 1st row of CEEXPTBL = 0 > > > > * > > > > CEEXPTBL CELQPIT , > > > > CELQPITY TEST64A,0 am > > > > CELQPITS , > > > > * > > > > TEST64A CELQPRLG FETCHABLE=RENT,PSECT=MYPSECT,ENTNAME=TEST64A > > > > YREGS > > > > * LOAD EP=CEETEST > > > > * LR R15,R0 > > > > * BASR R14,R15 > > > > CELQCALL opendata,(SYSADATA),WORKREG=10 > > > > XR R15,R15 > > > > CELQEPLG > > > > -----Original Message----- > > > > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On > > > > Behalf Of Joe Monk > > > > Sent: Sunday, October 27, 2019 7:53 PM > > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > > Subject: Re: Return code X'20' 32 from CELQPIPI INIT_MAIN > > > > > > > > Where are your calls to CELQPIPI? > > > > > > > > Joe > > > > > > > > On Sun, Oct 27, 2019 at 6:05 PM Joseph Reichman > > > > <reichman...@gmail.com <mailto:reichman...@gmail.com> > > > > > wrote: > > > > > > > > > AMODE 64 rmode any > > > > > > > > > > BROWSE IBMUSER.DBGR.DLLLIB Row > 0000022 > > > of > > > > > 0000022 > > > > > Command ===> > Scroll > > > > ===> > > > > > CSR > > > > > Name Prompt Alias-of Size TTR > AC > > > AM > > > > > RM > > > > > _________ TEST64A 00000D30 0001BD > 00 > > > > > 64 ANY > > > > > **End** > > > > > > > > > > > > > > > -----Original Message----- > > > > > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU > > <mailto: > > > > IBM-MAIN@LISTSERV.UA.EDU> > On > > > > > Behalf Of scott Ford > > > > > Sent: Sunday, October 27, 2019 7:02 PM > > > > > To: IBM-MAIN@LISTSERV.UA.EDU <mailto:IBM-MAIN@LISTSERV.UA.EDU> > > > > > Subject: Re: Return code X'20' 32 from CELQPIPI INIT_MAIN > > > > > > > > > > And what AMODE and RMODE is the Assembler code ? > > > > > > > > > > On Sun, Oct 27, 2019 at 6:55 PM Joseph Reichman > > > > > <reichman...@gmail.com <mailto:reichman...@gmail.com> > > > > > > wrote: > > > > > > > > > > > The doc says > > > > > > > > > > > > > > > > > > • Application program support running in the PreInit environment. > > > > > > The PreInit table contains the names and entry point addresses > > > > > > of each routine that can be executed within the PreInit > > environment. > > > > > > The applications defined in the PreInit table must be able to > > > > > > run as AMODE > > > > > > 64 (with XPLINK implied). > > > > > > Languages Supported: > > > > > > – C > > > > > > – C++ > > > > > > – Assembler (64-bit Language Environment-conforming assembler) > > > > > > > > > > > > So when I have entry in the following table (CEEXPTBL) where > > > > > > TEST64A is that’s C ptogram and use either INIT_SUB or INIT_MAIL > > > > > > is works But assembler fails > > > > > > > > > > > > The Assembler has the following CELQPRLG THE 64 BIT version has > > > > > > no main option unlike the 31 bit version which has a main option > > > > > > (CEEENTRY) But CELQPIPI is mean for 64 bit > > > > > > > > > > > > Thanks > > > > > > > > > > > > TEST64A CELQPRLG FETCHABLE=RENT,PSECT=MYPSECT,ENTNAME=TEST64A > > > > > > YREGS > > > > > > * LOAD EP=CEETEST > > > > > > * LR R15,R0 > > > > > > * BASR R14,R15 > > > > > > CELQCALL opendata,(SYSADATA),WORKREG=10 > > > > > > XR R15,R15 > > > > > > CELQEPLG > > > > > > > > > > > > CEEXPTBL CELQPIT , Star > > > > > > CELQPITY TEST64A,0 amical > > > > > > CELQPITS , End > > > > > > * > > > > > > > > > > > > > > > > > > -----Original Message----- > > > > > > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU > > > <mailto: > > > > IBM-MAIN@LISTSERV.UA.EDU> > On > > > > > > Behalf Of scott Ford > > > > > > Sent: Sunday, October 27, 2019 6:14 PM > > > > > > To: IBM-MAIN@LISTSERV.UA.EDU <mailto:IBM-MAIN@LISTSERV.UA.EDU> > > > > > > Subject: Re: Return code X'20' 32 from CELQPIPI INIT_MAIN > > > > > > > > > > > > Joe, > > > > > > > > > > > > Look at a Storage Obtain with checkzero=yes then a rc is x’14’ , > > > > > > it might very similar case > > > > > > > > > > > > Scott > > > > > > > > > > > > On Thu, Oct 24, 2019 at 6:31 PM Joseph Reichman > > > > > > <reichman...@gmail.com <mailto:reichman...@gmail.com <mailto: > > > > reichman...@gmail.com <mailto:reichman...@gmail.com> > > > > > > > > wrote: > > > > > > > > > > > > > Hi > > > > > > > > > > > > > > > > > > > > > > > > > > > > I copied the example from the LE guide for 64 bit Virtual > > > > > > > Storage Addressing with the exception of zeroing service rtn > > > > > > > address and go a return code X'20' > > > > > > > 32 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > CALL (15), > > > > > > > > > > > > > > (INIT_MAIN, > > > > > > > > > > > > > > CEEXPTBL_ADDR, > > > > > > > > > > > > > > 0, > > > > > > > > > > > > > > TOKEN), > > > > > > > > > > > > > > MF=(E,CALL_PL) > > > > > > > > > > > > > > > > > > > > > > > > > > > > CEEXPTBL_ADDR DC AD(CEEXPTBL) Address of PIPI table > > > > > > > > > > > > > > > > > > > > > > > > > > > > * > > > > > > > > > > > > > > CEEXPTBL CELQPIT , Start of CELQPIPI table > > > > > > > > > > > > > > CELQPITY CEEWQPMA,0 Dynamically load CEEEQPMA > > > > > > > > > > > > > > CELQPITS , End of CELQPIPI table > > > > > > > > > > > > > > * > > > > > > > > > > > > > > > > > > > > > > > > > > > > CEEWQPMA is the C program it resides in my PDSE LIBRARY > > > > > > > > > > > > > > > > > > > > > -------------------------------------------------------------- > > > > > > > ---- > > > > > > > -- > > > > > > > -- For IBM-MAIN subscribe / signoff / archive access > > > > > > > instructions, send email to lists...@listserv.ua.edu <mailto: > > > > lists...@listserv.ua.edu> > > > > > > > <mailto:lists...@listserv.ua.edu> > > > > > > with the message: INFO IBM-MAIN > > > > > > > > > > > > > -- > > > > > > Scott Ford > > > > > > IDMWORKS > > > > > > z/OS Development > > > > > > > > > > > > ---------------------------------------------------------------- > > > > > > ---- > > > > > > -- For IBM-MAIN subscribe / signoff / archive access > > > > > > instructions, send email to lists...@listserv.ua.edu <mailto: > > > > lists...@listserv.ua.edu> > > > > > > <mailto: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 <mailto: > > > > lists...@listserv.ua.edu> with the message: INFO > > > > > > IBM-MAIN > > > > > > > > > > > -- > > > > > Scott Ford > > > > > IDMWORKS > > > > > z/OS Development > > > > > > > > > > ------------------------------------------------------------------ > > > > > ---- For IBM-MAIN subscribe / signoff / archive access > > > > > instructions, send email to lists...@listserv.ua.edu > > > > > <mailto: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 > > > > > <mailto: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 <mailto: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 > > > > > -- > > Scott Ford > > IDMWORKS > > z/OS Development > > > > ---------------------------------------------------------------------- > > 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 > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
