It is not an API, but this is something that was discussed here
previously..............
/* Rexx */
CVT = C2d(Storage(10,4))
CVTDFA = C2d(Storage(D2x(CVT + 1216),4)) /* cvt + 4c0 */
DFAMGEN = C2D(storage(d2x(cvtdfa + 76),4)) /* dfa + 4c */
say 'Maxgen limit is 'dfamgen
say 'PDS/E MaxGen value is 'dfamgen
exit
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Nick Jones
Sent: Wednesday, May 02, 2018 5:54 AM
To: [email protected]
Subject: Re: PDSE MAXGENS API
Thanks for the confirmation, Steve.
I did consider the possible hacks you mentioned but unfortunately, neither the
IEBPDSE utility nor TSO/E LISTDS (nor indeed the TSO/E REXX function, LISTDSI)
have been updated to output the MAXGENS value of a PDSE V2 library.
Even if these facilities get updated via an APAR, their use would be
undesirable since ours is a commercial application and the functionality being
developed would become conditional on the customers' application of the APAR
SYSMODs.
I think I am going to have to bite the bullet and request permission from
management to get the FAMS licence.
Nick
----------------------------------------------------------------------
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
