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.zos.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
