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
