Do you have SAS and MXG at your location? If so, I run a weekly SAS job that
reads SMF30 data (from a PDB) and produces a report. We do have a few items
to take care of before z/OS 2.4 that are being worked on.
DATA LIMIT;
SET PDB1.SMFINTRV PDB2.SMFINTRV PDB3.SMFINTRV PDB4.SMFINTRV
PDB5.SMFINTRV PDB6.SMFINTRV PDB7.SMFINTRV ;
IF CPUTM NE . ;
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 ;
PROC PRINT DATA=POSTAV1;
TITLE 'SMF30_USERKEY';
ID SYSTEM PROGRAM SMF30_RAXFLAGS USERKEY ;
VAR JOB;
RUN;
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Rob JACKSON
Sent: Wednesday, August 29, 2018 11:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ALLOWUSERKEYCSA
**CAUTION EXTERNAL EMAIL**
**DO NOT open attachments or click on links from unknown senders or unexpected
emails**
I have been tasked with 'Preparing for the removal of support for user key
common areas (Recommended, as of V2R3)'. I have been testing setting
ALLOWUSERKEYCSA to NO in the DIAGxx member and have encountered sporadic errors
(0C4, etc). Is there anyone that might be able to offer any suggestions
relative to this issue.
Thanks,
Rob Jackson
rwjackso...@msn.com<mailto:rwjackso...@msn.com>
Cell: (615) 689-1435
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL
EMAIL**
**DO NOT open attachments or click on links from unknown senders or unexpected
emails**
This e-mail transmission contains information that is confidential and may be
privileged. It is intended only for the addressee(s) named above. If you
receive this e-mail in error, please do not read, copy or disseminate it in any
manner. If you are not the intended recipient, any disclosure, copying,
distribution or use of the contents of this information is prohibited. Please
reply to the message immediately by informing the sender that the message was
misdirected. After replying, please erase it from your computer system. Your
assistance in correcting this error is appreciated.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
