Determining if you have PDSE Member Generations Enabled

Time Sharing Option, Interactive System Productivity Facility and REstructured eXtended eXecutor

Moderator: mickeydusaor

Previous topicNext topic

Topic Author
Lbdyck
Registered Member
Posts: 12
Joined: Wed Feb 10, 2016 8:42 pm

Determining if you have PDSE Member Generations Enabled

Post by Lbdyck » 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



Previous topicNext topic

Return to “TSO, ISPF & REXX (Do you still do CLIST?!).”