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 <[email protected]> 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 <[email protected]> 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 <[email protected]> >> wrote: >> >> > So you are saying using the service routines would make the difference >> > >> > -----Original Message----- >> > From: IBM Mainframe Discussion List <[email protected]> On >> Behalf >> > Of scott Ford >> > Sent: Sunday, October 27, 2019 8:52 PM >> > To: [email protected] >> > 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 <[email protected]> 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 >> > > <[email protected]> >> > > 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 <[email protected]> On >> > > > Behalf Of Joe Monk >> > > > Sent: Sunday, October 27, 2019 7:53 PM >> > > > To: [email protected] >> > > > 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 >> > > > <[email protected] <mailto:[email protected]> > >> > > > 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 <[email protected] >> > <mailto: >> > > > [email protected]> > On >> > > > > Behalf Of scott Ford >> > > > > Sent: Sunday, October 27, 2019 7:02 PM >> > > > > To: [email protected] <mailto:[email protected]> >> > > > > 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 >> > > > > <[email protected] <mailto:[email protected]> > >> > > > > 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 <[email protected] >> > > <mailto: >> > > > [email protected]> > On >> > > > > > Behalf Of scott Ford >> > > > > > Sent: Sunday, October 27, 2019 6:14 PM >> > > > > > To: [email protected] <mailto:[email protected]> >> > > > > > 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 >> > > > > > <[email protected] <mailto:[email protected] <mailto: >> > > > [email protected] <mailto:[email protected]> > > >> > > > > > 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 [email protected] <mailto: >> > > > [email protected]> >> > > > > > > <mailto:[email protected]> >> > > > > > with the message: INFO IBM-MAIN >> > > > > > > >> > > > > > -- >> > > > > > Scott Ford >> > > > > > IDMWORKS >> > > > > > z/OS Development >> > > > > > >> > > > > > ---------------------------------------------------------------- >> > > > > > ---- >> > > > > > -- For IBM-MAIN subscribe / signoff / archive access >> > > > > > instructions, send email to [email protected] <mailto: >> > > > [email protected]> >> > > > > > <mailto:[email protected]> with the >> > > > > > message: INFO IBM-MAIN >> > > > > > >> > > > > > ---------------------------------------------------------------- >> > > > > > ---- >> > > > > > -- For IBM-MAIN subscribe / signoff / archive access >> > > > > > instructions, send email to [email protected] <mailto: >> > > > [email protected]> with the message: INFO >> > > > > > IBM-MAIN >> > > > > > >> > > > > -- >> > > > > Scott Ford >> > > > > IDMWORKS >> > > > > z/OS Development >> > > > > >> > > > > ------------------------------------------------------------------ >> > > > > ---- For IBM-MAIN subscribe / signoff / archive access >> > > > > instructions, send email to [email protected] >> > > > > <mailto:[email protected]> >> > > > with the message: INFO IBM-MAIN >> > > > > >> > > > > ------------------------------------------------------------------ >> > > > > ---- For IBM-MAIN subscribe / signoff / archive access >> > > > > instructions, send email to [email protected] >> > > > > <mailto:[email protected]> >> > > > with the message: INFO IBM-MAIN >> > > > > >> > > > >> > > > -------------------------------------------------------------------- >> > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, >> > > > send >> > > email >> > > > to [email protected] <mailto:[email protected]> with >> > > > the >> > > > message: INFO IBM-MAIN >> > > > >> > > > -------------------------------------------------------------------- >> > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, >> > > > send email to [email protected] with the message: INFO >> > > > IBM-MAIN >> > > > >> > > >> > > ---------------------------------------------------------------------- >> > > For IBM-MAIN subscribe / signoff / archive access instructions, send >> > > email to [email protected] with the message: INFO IBM-MAIN >> > > >> > -- >> > Scott Ford >> > IDMWORKS >> > z/OS Development >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, send >> email >> > to [email protected] with the message: INFO IBM-MAIN >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, >> > send email to [email protected] with the message: INFO IBM-MAIN >> > >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] 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 [email protected] with the message: INFO IBM-MAIN
