if you are licensed for SAS/MXG it's easy to get PDB created as below :
//STEP1 EXEC MXGSAS,WORK='1600,1600'
//LIBRARY DD DISP=SHR,DSN=XXXXX.MXG.FORMATS
//SMF DD DISP=SHR,DSN=XXXXX
//PDB DD DSN=XXXXXXX.PDB.TYPE30,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(100,50))
//SYSIN DD *
%INCLUDE SOURCLIB(VMACSMF,VMAC30,IMACKEEP);
DATA
_VAR30
_SMF
_CDE30
_S30
RUN;
PROC COPY IN=WORK OUT=PDB;
//
Then use that pdb to generate whatever report you like (including USERKEYALLOW)
- It's just an example however to look at what variables you need in output etc
you should look at MXG.SOURCLIB (ADOC30)
//STEP1 EXEC MXGSAS,WORK='1600,1600'
//WORK DD UNIT=SYSDA,SPACE=(CYL,(150,50))
//LIBRARY DD DISP=SHR,DSN=SYS3A.MXG.FORMATS
//PDB DD DISP=OLD,DSN=XXXXXXX.PDB.XXXX
//SOURCLIB DD DISP=SHR,DSN=SYS3A.MXG.SOURCLIB
//SYSIN DD *
options nodate ps=max nocenter ls=255;
data job_rpt;
set pdb.type30_5;
date_read = datepart(readtime);
time_read = timepart(readtime);
time_Init = timepart(jinitime);
format time_read time5.0 date_read date7. SMF30HQT time12.2
smf30sqt time12.2 time_init time5.0;
dprty=input(put(dprty,hex4.),hex4.);
if job =:'xxxxxx';
proc sort data=job_rpt nodupkey out=job_rpt1;
by descending smf30sqt;
run;
proc print data=job_rpt1 noobs split='/';
var date_read time_read time_Init job jesnr jobclass rptclass
smf30hqt smf30pfl smf30rqt smf30sqt;
title 'PCRBST Job Report For Time(01:00-04:30ET)';
label
job = 'Job-Name'
time_read = 'Job-In/Time'
time_init = 'Job-Start/Time'
DPRTY = 'Dispatch/Priority'
Jesnr = 'Job/Number'
Jobclass = 'Job/Class'
Rptclass = 'Wlm/Reporting Class'
SMF30HQT = 'Job Class/Queue Hold'
SMF30PFL = 'Job/Scheduling Env '
SMF30RQT = 'Ineligible Due to System/scheduling environment'
SMF30SQT = 'Waited for WLM/Initiator';
run ;
Now We have DIAGxx member which is SET after IPL and also during shutdown which
has ALLOWUSERKEYCSA(NO) so that overcome what would be restricted with 2.3.
VSM ALLOWUSERKEYCSA(NO)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
