Determining if you have PDSE Member Generations Enabled
Posted: Mon Aug 08, 2016 7:14 pm
If you don't have access to read SYS1.PARMLIB but would still like to see if you have PDSE Member Generations available at your site then use this small rexx exec:
/* 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 "Max Generations Allowed:" dfamgen
/* 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 "Max Generations Allowed:" dfamgen