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]> On Behalf Of
scott Ford
Sent: Sunday, October 27, 2019 7:02 PM
To: [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]>
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
