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> On Behalf Of
scott Ford
Sent: Sunday, October 27, 2019 6:14 PM
To: 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> >
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> 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 with the message: INFO IBM-MAIN
