Ah Mike 

Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Mike Shaw
Sent: Monday, June 26, 2023 12:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How batch create a PDSE2 with Generations?

Lionel has a REXX exec handy for every purpose...  ;-)

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd

On Mon, Jun 26, 2023, 1:30 PM Lionel B. Dyck <lbd...@gmail.com> wrote:

> You can run this exec to see what the limit is, assuming you don't 
> have access to parmlib:
>
> /* ---------- rexx ------------- *
>  * Get the current MAXGENS_LIMIT *
>  * ----------------------------- */
>  NUMERIC DIGITS 10
>  CVT      = C2D(Storage(10,4))
>  CVTDFA   = C2D(Storage(D2X(CVT + 1216),4))   /* cvt + 4c0 */
>  DFAMGEN  = C2D(Storage(D2X(cvtdfa + 76),4))  /* dfa + 4c */  say 
> dfamgen
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On 
> Behalf Of Charles Mills
> Sent: Monday, June 26, 2023 12:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How batch create a PDSE2 with Generations?
>
> Yeah, I have to run a test to see whether it will fail ugly if I 
> exceed the limit, or just cap it at the limit.
>
> Charles
>
> On Mon, 26 Jun 2023 11:23:32 -0500, Lionel B. Dyck <lbd...@gmail.com>
> wrote:
>
> >Regarding MAXGENS in the JCL - be sure it is less than, or equal to 
> >the
> IGDSMSxx MAXGENS_LIMIT specification.
> >
>
> ----------------------------------------------------------------------
> 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

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

Reply via email to