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
