And what AMODE and RMODE is the Assembler code ? On Sun, Oct 27, 2019 at 6:55 PM Joseph Reichman <[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]> On Behalf > Of scott Ford > Sent: Sunday, October 27, 2019 6:14 PM > To: [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]> > > 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]> > 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] 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
