On Fri, Apr 15, 2016 at 7:39 AM, Hilario Garcia <[email protected]> wrote:
> Hello, > > I need to obtain a list of users that access to the Z/OS (CICS, TSO, > Batch) in a specific date. > > ¿ Is there any job to obtain this data from RACF or SMF ? > Yes. There is a RACFRW program which you can run against the SMF data (the data needed is not kept in the RACF data base). An alternative, which I use, is to process the raw SMF data with the IFASMFDP program using the IRRADU00 exit to create an easily parsed, plain text, sequential data set which can used in your own custom batch program, or even loaded into a DB2 data base for use in an SQL query (see SYS1.SAMPLIB(IRRADU*) members). The RACFRW program would use JCL similar to: ==== //STEP010 EXEC PGM=IKJEFT01, // REGION=0M //SYSTSPRT DD SYSOUT=* //SORTIN DD SPACE=(CYL,(300,100)),UNIT=(SYSDA,5) //SORTWK01 DD SPACE=(CYL,(1000,200)) //SORTWK02 DD SPACE=(CYL,(1000,200)) //RSMFIN DD DISP=SHR,DSN=...smf input data set... //SYSPRINT DD SYSOUT=* //SYSTSIN DD * RACFRW SELECT DATE(yyddd:yyddd) EVENT LOGON EVQUAL(0,8,12,13) LIST SORT(USER,DATE,TIME) NEWPAGE END /* // ==== Event qualifiers that I used are 0: logon (tso, batch job start, etc), 8: logoff (or batch job end), 12 (RACINITI - CICS type logon), 13 (RACINITD - CICS type logoff). The EVQUAL meanings are explained here: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha800/xpln.htm%23xpln The RACFRW program is documented here: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha800/racfrw.htm As mentioned in the RACRW documentation, it is "no longer recommended". IBM strongly recommends using the IRRADU00 exit of the IFASMFDP program. You run that something like: ==== //STEP0001 EXEC PGM=IFASMFDP //SYSPRINT DD SYSOUT=* //ADUPRINT DD SYSOUT=* //OUTDD DD DSN=... output data set..., // RECFM=VB,LRECL=12288,BLKSIZE=0, // SPACE=(CYL,(?,?)),UNIT=SYSDA //SMFDATA DD DSN=...smf input data set..., // DISP=SHR //SMFOUT DD DUMMY //SYSIN DD * INDD(SMFDATA,OPTIONS(DUMP)) OUTDD(SMFOUT,TYPE(000:255)) ABEND(NORETRY) USER2(IRRADU00) USER3(IRRADU86) /* ==== https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha800/racfsmf.htm%23racfsmf look at SYS1.SAMPLIB(IRRICE) for some DFSORT examples of how to use this for reports. > Thanks in advance. > > Hilario > > -- "He must have a Teflon brain -- nothing sticks to it" Phyllis Diller Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
