Thanks Ravi for the starting point! And yes, that’s the point I want to get too. But I know I have at least one long running task using userkeycsa that needs to be retired.
_________________________________________________________________ Dave Jousma Manager Mainframe Engineering, Assistant Vice President [email protected] 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Ravi Gaur Sent: Wednesday, April 25, 2018 7:41 AM To: [email protected] Subject: Re: OA53355 - USERKEY COMMON MIGRATION SUPPORT **CAUTION EXTERNAL EMAIL** **DO NOT open attachments or click on links from unknown senders or unexpected emails** 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 **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 [email protected] with the message: INFO IBM-MAIN
