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
