Determining if you have PDSE Member Generations Enabled

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

Moderator: mickeydusaor

Post Reply
Lbdyck
Registered Member
Posts: 12
Joined: Wed Feb 10, 2016 8:42 pm

Determining if you have PDSE Member Generations Enabled

Post by Lbdyck »

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
Post Reply

Create an account or sign in to join the discussion

You need to be a member in order to post a reply

Create an account

Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute

Register

Sign in

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