Where are your calls to CELQPIPI? Joe
On Sun, Oct 27, 2019 at 6:05 PM Joseph Reichman <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> On Behalf > Of scott Ford > Sent: Sunday, October 27, 2019 7:02 PM > To: 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> > 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> On > > Behalf Of scott Ford > > Sent: Sunday, October 27, 2019 6:14 PM > > To: 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> > > > 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> > > 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 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
