The example you provided was not , you have to set the mode in Assembler. Maybe a look at POP will help. The transition between 31bit and 64bit Assembler calls is major.
Scott On Mon, Oct 28, 2019 at 9:01 AM Joseph Reichman <reichman...@gmail.com> wrote: > The driver program is already in AMODE 64 > So is TEST64A all the programs are RMODE 31 AMODE 64 > > I’ll re-vist this again in the afternoon thanks > > > > Joe Reichman > 170-10 73 rd ave > Fresh meadows NY 11366 > > > On Oct 28, 2019, at 8:56 AM, scott Ford <idfli...@gmail.com> wrote: > > > > Joe R., > > > > Look for the example on Google for Share.org, called Trimodal Assembler.. > > It has a pretty good example of 31bit and 64bit Assembler calls. > > > > Scott > > > >> On Mon, Oct 28, 2019 at 8:54 AM scott Ford <idfli...@gmail.com> wrote: > >> > >> 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 > >> > > -- > > 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 > -- 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
