The program the driver is entered in amode 64 the example does SAM64 but that is not necessary
I look at it again thanks for help Joe Reichman 170-10 73 rd ave Fresh meadows NY 11366 > On Oct 28, 2019, at 9:09 AM, scott Ford <idfli...@gmail.com> wrote: > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
