Thank you, and also Dave Jousma who sent similar (same?) code privately. I suspect my MXG level (V2929) needs some updating before I can run it. I ordered 37.06 yesterday. Will install (or use the tricks to run mixed levels) today. I may try the techniques to run directly off of SMF and build PDB on the fly also.
And, thank you for the offer, Andrew Rowley. But, we've already paid Barry and I don't like to do free trial stuff when I know I'll never be buying the product. > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On > Behalf Of Bruce Hewson > Sent: Monday, September 16, 2019 9:46 PM > To: [email protected] > Subject: Re: Considering Bypassing ERROR HOLD for OA58037 > > On Mon, 16 Sep 2019 23:15:40 +0000, Gibney, Dave <[email protected]> > wrote: > > >Well, I did do this. But, I am not sure it was worth it. The > ZOSMIGV2R3_NEXT_VSM_USERKEYCOMM check only tells me what I > already knew. That I have some address spaces using user key common. I > had hoped it went further and identified them. I know one for sure..... > > > >Yes, I do see the info on interpreting SMF30_UserKeyCsaUsage and > SMF30_UserKeyCadsUsage. So, I guess my next step is to see if my MXG > level has this support, or do I need to update (in part, or fully) MXG. > > > > I forget who I got this code from, one of the list members websites:- > > > // EXPORT SYMLIST=* > //* > // SET DATE='06/01/2019' <<== SET Search Date > // SET SYSN=SYS1 <<== SET SYSTEM NAME > // SET SMFID=PRD1 <<== SET SMF ID > - - - - - - - - - - - - - - - - - - 63 Line(s) not > Displayed > //SYSIN DD *,SYMBOLS=EXECSYS > > %INCLUDE SOURCLIB(TYPE30,SMFINTRV); > > DATA LIMIT; > SET PDB.SMFINTRV ; > IF CPUTM NE . ; > IF SMF30_RAXFLAGS='00'X THEN DELETE; > IF SMF30_RAXFLAGS='40'X THEN DELETE; > IF SMF30_RAXFLAGS='80'X THEN DELETE; > /* 10000000 = 80 = AUDIT ON */ > /* 10010000 = 90 = CHANGE KEY */ > /* 10100000 = A0 = CADS USAGE */ > /* 10110000 = B0 = CADS+CHANGE KEY */ > /* 11000000 = C0 = CSA USAGE */ > /* 11010000 = D0 = CSA+CHANGE KEY */ > /* 11100000 = E0 = CSA+CADS */ > /* 11110000 = F0 = CSA+CADS+CHANGEKEY */ > IF SMF30_RAXFLAGS='90'X THEN USERKEY='CHGKEY' ; > IF SMF30_RAXFLAGS='A0'X THEN USERKEY='CADS' ; > IF SMF30_RAXFLAGS='B0'X THEN USERKEY='CADS+CHGKEY' ; > IF SMF30_RAXFLAGS='C0'X THEN USERKEY='CSA' ; > IF SMF30_RAXFLAGS='D0'X THEN USERKEY='CSA+CHGKEY' ; > IF SMF30_RAXFLAGS='E0'X THEN USERKEY='CSA+CADS' ; > IF SMF30_RAXFLAGS='F0'X THEN USERKEY='CSA+CADS+CHGKEY' ; > RUN; > > PROC MEANS DATA=LIMIT SUM NWAY MISSING NONOBS PRINT; > CLASS SYSTEM JOB PROGRAM SMF30_RAXFLAGS USERKEY; > VAR CPUTM; > OUTPUT OUT=POSTAV1(DROP=_TYPE_) SUM = GCPU ; > > OPTIONS LS=80 ; > > PROC PRINTTO FILE=USERKEY ; > > PROC PRINT DATA=POSTAV1; > TITLE1 ' ' ; > TITLE2 'SMF30_USERKEY &SYSN. &DATE.'; > ID SYSTEM PROGRAM SMF30_RAXFLAGS USERKEY ; > VAR JOB; > RUN; > /* > > ---------------------------------------------------------------------- > 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
