This worked for me: 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:' dfamgen
Thank you -------------------------------------------------------------------------- Lionel B. Dyck (TRA Contractor) Mainframe Systems Programmer Enterprise Infrastructure Support (Station 200) (005OP6.3.10) VA OI&T Service Delivery & Engineering -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Leonardo Vaz Sent: Wednesday, July 27, 2016 9:23 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] Re: PDSE V2 MaxGen Limit Query Indeed, that worked for me, thumbs up! -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Klaus Stanislawiak Sent: Wednesday, July 27, 2016 1:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PDSE V2 MaxGen Limit Query Please have a look at APAR OA43951 and the corresponding solution: > Add a new field to the DFA DFAMAXGN which contains the maximum number > of generations this system supports. With this information it should be possible to access the field in the DFA from REXX. HTH. Klaus Stanislawiak -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Dyck, Lionel B. (TRA) Sent: Tuesday, July 26, 2016 10:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: PDSE V2 MaxGen Limit Query Is there a way to query the current MAXGENS_LIMIT from the SMS configuration in either REXX or ISPF? I'm looking for a way to prevent a user from specifying a larger maxgen than is allowed in a dialog I'm working on. Thanks ---------------------------------------------------------------------- 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