You can do it with REXX. No idea where I got this code so apologies to the original author...
/* REXX */ /* Show RACF information */ CVT = C2d(Storage(10,4)) /* point to CVT */ ECVT = C2D(STORAGE(D2X(CVT + 140),4)) /* Point to CVTECVT */ CVTRAC = C2d(Storage(D2x(CVT + 992),4)) /* point to RACF RCVT */ RCVTALIS = Storage(D2x(CVTRAC+330),1) /* Get RCVTALIS byte */ AIMSTAGE = c2d(RCVTALIS) /* Make it printable */ RACFMID = STORAGE(D2X(CVTRAC + 616),4) /* RACF FMID */ PRODNAM = STORAGE(D2X(ECVT+496),16) /* Point to product name*/ SSNAME = STRIP(PRODNAM,T) /* Del trailing blanks */ VER = STORAGE(D2X(ECVT+512),2) /* Point to version */ REL = STORAGE(D2X(ECVT+514),2) /* Point to release */ MOD = STORAGE(D2X(ECVT+516),2) /* Point to mod level */ VRM = VER'.'REL'.'MOD /* VRM of OS */ say "AIM stage is "aimstage say "RACF FMID is "racfmid say ssname "Version is "vrm Usual disclaimers apply with regard to control block locations not being guaranteed in future releases etc etc.... Regards and thanks Paul -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Jeff Holst Sent: 13 September 2012 14:13 To: [email protected] Subject: Re: RACF AIM level Thanks to those who responded. I searched for this information for about an hour before I posted to the list, then found what others have pointed out 2 minutes after I had posted and had given up on finding it myself. I kept looking for some command to list this information, and there apparently is none. Jeff Holst Fiserv ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN _______________________________________________________ Atos and Atos Consulting are trading names used by the Atos group. The following trading entities are registered in England and Wales: Atos IT Services UK Limited (registered number 01245534), Atos Consulting Limited (registered number 04312380) and Atos IT Solutions and Services Limited (registered number 01203466) The registered office for each is at 4 Triton Square, Regents Place, London, NW1 3HG. The VAT No. for each is: GB232327983 This e-mail and the documents attached are confidential and intended solely for the addressee, and may contain confidential or privileged information. If you receive this e-mail in error, you are not authorised to copy, disclose, use or retain it. Please notify the sender immediately and delete this email from your systems. As emails may be intercepted, amended or lost, they are not secure. Atos therefore can accept no liability for any errors or their content. Although Atos endeavours to maintain a virus-free network, we do not warrant that this transmission is virus-free and can accept no liability for any damages resulting from any virus transmitted. The risks are deemed to be accepted by everyone who communicates with Atos by email. _______________________________________________________ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
