Re: [EXT] Re: zOS 2.4 migration guide

[Andrew Rowley]

On 26/10/2019 5:49 am, Mark Charles wrote:

Hi Martin - can you explain to a non-JAVA person how I would check the Heap 
settings and what some proper settings might be?  I know my setup is still at 
IBM defaults.


I'm skeptical that it would be a Java heap issue. Garbage collection is 
a memory operation so should not show up as I/O (perhaps as paging in an 
extreme case). People worry too much about garbage collection, I think.


My feeling is it's more related to opening and closing the same files 
thousands of times, as seen in the type 92 records. I only have a RDP 
system at Dallas so it's hard for me to raise an issue, but if someone 
with a proper support contract wants to raise an issue with IBM I'm 
happy to work with them.


Andrew Rowley


--
Andrew Rowley
Black Hill Software

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[scott Ford]

Exactly,

CSECT, SAM ..etc

On Sun, Oct 27, 2019 at 8:37 PM Joe Monk  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.zos.v2r1.ceeam00/coreyex.htm
>
> Joe
>
> On Sun, Oct 27, 2019 at 7:03 PM Joseph Reichman 
> wrote:
>
> > Here is all the relevant code besides the assemble and link but its
> AMOD64
> > RMODE ANY
> >
> > Thanks
> >
> > *
> >
> >  LGR15,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
> >  *LRR15,R0
> >  *BASR  R14,R15
> >   CELQCALL opendata,(SYSADATA),WORKREG=10
> >   XR  R15,R15
> >   CELQEPLG
> > -Original Message-
> > From: IBM Mainframe Discussion List  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  >  >
> > wrote:
> >
> > > AMODE 64 rmode  any
> > >
> > >   BROWSEIBMUSER.DBGR.DLLLIB   Row 022
> of
> > > 022
> > >  Command ===>  Scroll
> > ===>
> > > CSR
> > > Name PromptAlias-of Size  TTR AC
>  AM
> > >  RM
> > >  _ TEST64A0D30   0001BD   00
> > > 64  ANY
> > >**End**
> > >
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List  > IBM-MAIN@LISTSERV.UA.EDU> > On
> > > Behalf Of scott Ford
> > > Sent: Sunday, October 27, 2019 7:02 PM
> > > To: 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
> > > 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
> > > >  *LRR15,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
> > > > mailto:reichman...@gmail.com  > reichman...@gmail.com <

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[Joe Monk]

Where are your calls to CELQPIPI?

Joe

On Sun, Oct 27, 2019 at 6:05 PM Joseph Reichman 
wrote:

> AMODE 64 rmode  any
>
>   BROWSEIBMUSER.DBGR.DLLLIB   Row 022 of
> 022
>  Command ===>  Scroll ===>
> CSR
> Name PromptAlias-of Size  TTR AC   AM
>  RM
>  _ TEST64A0D30   0001BD   00
> 64  ANY
>**End**
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of scott Ford
> Sent: Sunday, October 27, 2019 7:02 PM
> To: 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 
> 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
> >  *LRR15,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  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  >  >
> > 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,0Dynamically 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
> > > 
> > 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
> >
> --
> 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

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[Joseph Reichman]

Here is all the relevant code besides the assemble and link but its AMOD64 
RMODE ANY

Thanks 

*   
 
 LGR15,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  
 *LRR15,R0  
 *BASR  R14,R15 
  CELQCALL opendata,(SYSADATA),WORKREG=10   
  XR  R15,R15   
  CELQEPLG  
-Original Message-
From: IBM Mainframe Discussion List  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 mailto:reichman...@gmail.com> >
wrote:

> AMODE 64 rmode  any
>
>   BROWSEIBMUSER.DBGR.DLLLIB   Row 022 of
> 022
>  Command ===>  Scroll ===>
> CSR
> Name PromptAlias-of Size  TTR AC   AM
>  RM
>  _ TEST64A0D30   0001BD   00
> 64  ANY
>**End**
>
>
> -Original Message-
> From: IBM Mainframe Discussion List   > On 
> Behalf Of scott Ford
> Sent: Sunday, October 27, 2019 7:02 PM
> To: 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 
> 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
> >  *LRR15,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  >  > 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 
> > mailto:reich

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[Joseph Reichman]

AMODE 64 rmode  any

  BROWSEIBMUSER.DBGR.DLLLIB   Row 022 of 022
 Command ===>  Scroll ===> CSR 
Name PromptAlias-of Size  TTR AC   AM   RM 
 _ TEST64A0D30   0001BD   0064  ANY
   **End** 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
scott Ford
Sent: Sunday, October 27, 2019 7:02 PM
To: 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 
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
>  *LRR15,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  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   >
> 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,0Dynamically 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 
> > 
> 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
>
--
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

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[scott Ford]

And what AMODE and RMODE is the Assembler code ?

On Sun, Oct 27, 2019 at 6:55 PM Joseph Reichman 
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
>  *LRR15,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  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   >
> 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,0Dynamically 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 
> 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
>
-- 
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

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[Joseph Reichman]

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   
 *LRR15,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  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 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,0Dynamically 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   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

Re: Return code X'20' 32 from CELQPIPI INIT_MAIN

[scott Ford]

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 
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,0Dynamically 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 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

Re: DFSORT SUM FIELDS

[ITschak Mugzach]

After some private emails, files and job output, Sri noticed that some of
the sum fields where too small to host the accumulated values generated by
the sort sum statement.

Fixed that and it as expected.

Tx to Sri and others that suggested solutions. The original code was in
different language translated to rexx. Lesson learned:   one byte external
decimals (and zone decimal)!should be automatically adjusted to a larger
value.

ITschak

בתאריך יום א׳, 27 באוק׳ 2019, 21:12, מאת Mike Schwab ‏<
mike.a.sch...@gmail.com>:

> use an inrec statement to enlarge numeric fields so you don't exceed
> the size of the field.
>
> On Sun, Oct 27, 2019 at 7:08 AM ITschak Mugzach 
> wrote:
> >
> > Sri,
> >
> > This was just an example. I am trying to summarize by sort keys. there
> > might be ten records with same sort keys. I expect a single record in
> > output file (such as DUPKEYS SUM in syncsort). However, the result is
> that
> > I get several records  with same keys in the output.
> >
> > More specific:
> > OPTION EQUALS
> > SORT FIELDS=(6,5,ch,a,53,3,ch,a)
> > sum fields=(245,15,ZD,123,11,ZD)
> >
> > As the are about 15 records with same sort keys I want to summarize all
> > into a single record. Is this possible, or should I write my own program?
> >
> > ITschak
> >
> > On Sun, Oct 27, 2019 at 1:53 PM Sri h Kolusu  wrote:
> >
> > > >>>sum flelds =(3,4,zd,5,6,zd).
> > >
> > > ITschak,
> > >
> > > I am pretty sure that would result in overlapping error as your summing
> > > field at position 3 for 4 bytes extend up to position 6, but your
> second
> > > sum field starts at position 5 which overlaps the first sum field.  You
> > > should be getting an ICE125A message.
> > >
> > > >>I would expect to have a single record in the output. however, I get
> two.
> > > what am i missing?
> > >
> > > If the overlapping fields was a typo, and if you say that you are
> getting 2
> > > records, then I am guessing that there is an OVERFLOW during summing
> and
> > > you would see an ICE152I message.  Check if your joblog has any such
> > > message. You can override the return code 0 during overflow by adding
> the
> > > following statement to your control card statement.
> > >
> > > OPTION OVFLO=RC4
> > >
> > >
> > > Thanks,
> > > Kolusu
> > > DFSORT Development
> > > IBM Corporation
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > >
> >
> >
> > --
> > ITschak Mugzach
> > *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
> > for Legacy **|  *
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
>
> --
> 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

Re: Sample SMF records

[Gord Tomlin]

On 2019-10-27 09:00, Pierre Fichaud wrote:

Gord,
 I am logged into the secure area at https://dtsc.dfw.ibm.com/
 Where do I go next ?
Regards, Pierre.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




1. Click "IBM Z® Technical Information".
2. Click "Optional Downloads".

--

Regards, Gord Tomlin
Action Software International
(a division of Mazda Computer Corporation)
Tel: (905) 470-7113, Fax: (905) 470-6507
Support: https://actionsoftware.com/support/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT SUM FIELDS

[Mike Schwab]

use an inrec statement to enlarge numeric fields so you don't exceed
the size of the field.

On Sun, Oct 27, 2019 at 7:08 AM ITschak Mugzach  wrote:
>
> Sri,
>
> This was just an example. I am trying to summarize by sort keys. there
> might be ten records with same sort keys. I expect a single record in
> output file (such as DUPKEYS SUM in syncsort). However, the result is that
> I get several records  with same keys in the output.
>
> More specific:
> OPTION EQUALS
> SORT FIELDS=(6,5,ch,a,53,3,ch,a)
> sum fields=(245,15,ZD,123,11,ZD)
>
> As the are about 15 records with same sort keys I want to summarize all
> into a single record. Is this possible, or should I write my own program?
>
> ITschak
>
> On Sun, Oct 27, 2019 at 1:53 PM Sri h Kolusu  wrote:
>
> > >>>sum flelds =(3,4,zd,5,6,zd).
> >
> > ITschak,
> >
> > I am pretty sure that would result in overlapping error as your summing
> > field at position 3 for 4 bytes extend up to position 6, but your second
> > sum field starts at position 5 which overlaps the first sum field.  You
> > should be getting an ICE125A message.
> >
> > >>I would expect to have a single record in the output. however, I get two.
> > what am i missing?
> >
> > If the overlapping fields was a typo, and if you say that you are getting 2
> > records, then I am guessing that there is an OVERFLOW during summing and
> > you would see an ICE152I message.  Check if your joblog has any such
> > message. You can override the return code 0 during overflow by adding the
> > following statement to your control card statement.
> >
> > OPTION OVFLO=RC4
> >
> >
> > Thanks,
> > Kolusu
> > DFSORT Development
> > IBM Corporation
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
> for Legacy **|  *
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT SUM FIELDS

[Sri h Kolusu]

>>Can send you the file and job so you can see
> yourself ). please confirm this option.


Please send as text files. I would also like to see your joblog too.


Thanks.
Kolusu
DFSORT Development
IBM Corporation

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sample SMF records

[Pierre Fichaud]

Gord,
I am logged into the secure area at https://dtsc.dfw.ibm.com/
Where do I go next ?
Regards, Pierre.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT SUM FIELDS

[ITschak Mugzach]

Yes.
I am running a batch version. Can send you the file and job so you can see
yourself ). please confirm this option.

The statements are as in my sample. I would expect a single combination for
sort keys summarised in sortout.



בתאריך יום א׳, 27 באוק׳ 2019, 14:31, מאת Sri h Kolusu ‏:

> >>> More specific:
> > OPTION EQUALS
> > SORT FIELDS=(6,5,ch,a,53,3,ch,a)
> > sum fields=(245,15,ZD,123,11,ZD)
> >
> > As the are about 15 records with same sort keys I want to summarize all
> > into a single record. Is this possible, or should I write my own program?
>
>
> ITschak,
>
> That should be easily summed. Unless you have a conflicting statement such
> as OPTION COPY or SORT FIELDS=COPY before the statements you show, I see no
> reason as to why the summation isn't done.
>
> Did you check if you are pointing to the right DDname (earlier scenario)
> and right file?
>
> I would like to see the entire joblog once again. Please send it to me
> offline
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
> --
> 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

Re: DFSORT SUM FIELDS

[Sri h Kolusu]

>>> More specific:
> OPTION EQUALS
> SORT FIELDS=(6,5,ch,a,53,3,ch,a)
> sum fields=(245,15,ZD,123,11,ZD)
>
> As the are about 15 records with same sort keys I want to summarize all
> into a single record. Is this possible, or should I write my own program?


ITschak,

That should be easily summed. Unless you have a conflicting statement such
as OPTION COPY or SORT FIELDS=COPY before the statements you show, I see no
reason as to why the summation isn't done.

Did you check if you are pointing to the right DDname (earlier scenario)
and right file?

I would like to see the entire joblog once again. Please send it to me
offline


Thanks,
Kolusu
DFSORT Development
IBM Corporation

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT SUM FIELDS

[ITschak Mugzach]

Sri,

This was just an example. I am trying to summarize by sort keys. there
might be ten records with same sort keys. I expect a single record in
output file (such as DUPKEYS SUM in syncsort). However, the result is that
I get several records  with same keys in the output.

More specific:
OPTION EQUALS
SORT FIELDS=(6,5,ch,a,53,3,ch,a)
sum fields=(245,15,ZD,123,11,ZD)

As the are about 15 records with same sort keys I want to summarize all
into a single record. Is this possible, or should I write my own program?

ITschak

On Sun, Oct 27, 2019 at 1:53 PM Sri h Kolusu  wrote:

> >>>sum flelds =(3,4,zd,5,6,zd).
>
> ITschak,
>
> I am pretty sure that would result in overlapping error as your summing
> field at position 3 for 4 bytes extend up to position 6, but your second
> sum field starts at position 5 which overlaps the first sum field.  You
> should be getting an ICE125A message.
>
> >>I would expect to have a single record in the output. however, I get two.
> what am i missing?
>
> If the overlapping fields was a typo, and if you say that you are getting 2
> records, then I am guessing that there is an OVERFLOW during summing and
> you would see an ICE152I message.  Check if your joblog has any such
> message. You can override the return code 0 during overflow by adding the
> following statement to your control card statement.
>
> OPTION OVFLO=RC4
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
for Legacy **|  *

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT SUM FIELDS

[Sri h Kolusu]

>>>sum flelds =(3,4,zd,5,6,zd).

ITschak,

I am pretty sure that would result in overlapping error as your summing
field at position 3 for 4 bytes extend up to position 6, but your second
sum field starts at position 5 which overlaps the first sum field.  You
should be getting an ICE125A message.

>>I would expect to have a single record in the output. however, I get two.
what am i missing?

If the overlapping fields was a typo, and if you say that you are getting 2
records, then I am guessing that there is an OVERFLOW during summing and
you would see an ICE152I message.  Check if your joblog has any such
message. You can override the return code 0 during overflow by adding the
following statement to your control card statement.

OPTION OVFLO=RC4


Thanks,
Kolusu
DFSORT Development
IBM Corporation

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

DFSORT SUM FIELDS

[ITschak Mugzach]

I have a sort filed of (1,2,ch,a) and sum flelds =(3,4,zd,5,6,zd). there
are many input records with same sort field value. I would expect to have a
single record in the output. however, I get two. what am i missing?

ITschak


-- 
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
for Legacy **|  *

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: TS7770 official ?

[Gadi Ben-Avi]

http://www-01.ibm.com/common/ssi/ShowDoc.wss?docURL=/common/ssi/rep_ca/9/877/ENUSZG19-0099/index.html&lang=en&request_locale=en

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Peter
Sent: Sunday, October 27, 2019 7:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TS7770 official ?

Hi All

Is there anywhere about the official announcement for TS7770 ?

Peter

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Email secured by Check Point

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN