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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nick Jones Sent: Wednesday, May 02, 2018 5:54 AM To: IBM-MAIN@LISTSERV.UA.EDU 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 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