Based on your comment - here is some code, extracted from IPLINFO by Mark Zelden to provide the RACF level:
/* --------------------- REXX ---------------------- * | Display or extract the RACF Version from the CVT | | based on code extracted from IPLINFO by Mark Zelden | * --------------------------------------------------- */ CVT = C2d(Storage(10,4)) /* point to CVT */ CVTVERID = Storage(D2x(CVT - 24),16) /* "user" software vers.*/ RCVT = C2d(Storage(D2x(CVT + 992),4)) /* point to RACF CVT */ RACFVRM = Storage(D2x(RCVT + 616),4) /* RACF Ver/Rel/Mod */ RACFVER = Substr(RACFVRM,1,1) /* RACF Version */ RACFREL = Substr(RACFVRM,2,2) /* RACF Release */ RACFMOD = Substr(RACFVRM,4,1) /* RACF MOD level */ RACFLEV = RACFVER || '.' || RACFREL || '.' || RACFMOD return racflev I will be sending this to Sam for inclusion on the CBTTape somewhere. Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck "Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - - - John Wooden -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Peter Relson Sent: Saturday, June 26, 2021 8:11 AM To: [email protected] Subject: Re: z/OS SYSVAR looks weird <snip> It would seem to me that if IBM is to move in the direction of new symbols it should move the emphasis to "feature Booleans" rather than a new level variable. </snip> I agree with that -- the question usually worth asking is "is this feature available to me now" (a la the z/OS feature bits in the CVT -- although those also have bits for each release). But the odds are extremely slim that REXX will be enhanced for RACF purposes. Since all such feature indications are easily visible in the RCVT, and the relevant bit(s) are the intended way for a program to tell, a REXX exec could/should examine those bits rather than a release value. Maybe someone will create a CBT item to accomplish the query in a "pretty" way. Peter Relson z/OS Core Technology Design ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
