On Mon, 16 Sep 2019 23:15:40 +0000, Gibney, Dave <gib...@wsu.edu> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN