Just tried it with the service_rtns parm exactly as it was in the sample with
the exception
That the CELQPITY points to my 64 bit assembler program TEST64A program and do
X'20' DECIMAL 32
CALL (15),
X
(INIT_MAIN, CELQPIPI INIT_MAIN request X
CEEXPTBL_ADDR, Address of CELQPIPI table X
SERVICE_RTNS, Address of service rtn vector X
TOKEN), Token from INIT_MAIN
X
MF=(E,CALL_PL)
I traced the CEEWQLOAD it loaded TEST64A which had bit 63 as a one
After the load
IKJ57382I ENTRY POINT AT 1F790140 AMODE=31
TEST
L +F6
+F6 05EFB902
TEST
AT +F6
TEST
AT +F8
TEST
GO
CEEWQPIP: LOADing CELQPIPI
CEEWQPIP: Doing CELQPIPI INIT_MAIN
IKJ57024I AT +F6
TEST
GO
CEEWQLOD: Called to LOAD "TEST64A "
IKJ57024I AT +F8
TEST
L 15R
15R 00000020
***
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
scott Ford
Sent: Monday, October 28, 2019 8:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Return code X'20' 32 from CELQPIPI INIT_MAIN
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 <idfli...@gmail.com> 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 <joemon...@gmail.com> 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
>> <reichman...@gmail.com>
>> wrote:
>>
>> > So you are saying using the service routines would make the
>> > difference
>> >
>> > -----Original Message-----
>> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
>> Behalf
>> > Of scott Ford
>> > Sent: Sunday, October 27, 2019 8:52 PM
>> > To: IBM-MAIN@LISTSERV.UA.EDU
>> > 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 <joemon...@gmail.com> 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.z
>> o
>> > > s.v2r1.ceeam00/coreyex.htm
>> > >
>> > > Joe
>> > >
>> > > On Sun, Oct 27, 2019 at 7:03 PM Joseph Reichman
>> > > <reichman...@gmail.com>
>> > > 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 <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
>> > > >
>> > >
>> > > -----------------------------------------------------------------
>> > > ----- For IBM-MAIN subscribe / signoff / archive access
>> > > instructions, send email to 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 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
>> >
>>
>> ---------------------------------------------------------------------
>> - For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu 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
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
