Thanks, for every one who responded. The technique below is just what I needed to produce the reports. Thanks again for the response.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Alvaro Quintupray B. Sent: Friday, November 11, 2005 11:38 AM To: [email protected] Subject: Re: Racf Reports Hello. I see that you suffers with the auditors...like me. First step. Unload from RACF DB to flat file. //*-------------------------------------------------------------- //* HACE UNLOAD DE BASE RACF A UN ARCHIVO PLANO //*-------------------------------------------------------------- //UNLOAD EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT //SYSPRINT DD SYSOUT=* //INDD1 DD DISP=SHR,DSN=SYS1.NEX0.RACFP //OUTDD DD DSN=IBMUSER.RACF.PLANO.DB, // DISP=SHR //* DISP=(NEW,CATLG,KEEP), //* UNIT=SYSDA,VOL=SER=NXPP30, //* SPACE=(CYL,(20,10),RLSE), //* DCB=(RECFM=VB,LRECL=4096) Second Step... //RACFICE EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //*PRINT DD SYSOUT=* //PRINT DD DISP=SHR,DSN=IBMUSER.RACF.LISUSER //DFSMSG DD SYSOUT=* //DBUDATA DD DISP=SHR,DSN=IBMUSER.RACF.PLANO.DB //ADUDATA DD DISP=SHR,DSN=IBMUSER.RACF.PLANO.SMF //TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(60,10,0)) //*RACFCNTL DD DISP=SHR,DSN=IBMUSER.RACF.IRRICE(USERCNTL) //RACFCNTL DD * SORT FIELDS=(10,8,CH,A) INCLUDE COND=(5,4,CH,EQ,C'0200') OPTION VLSHRT /* //TOOLIN DD * ********************************************************************** * NAME: USER * BUSCA A LOS USUARIOS Y SUS DATOS MAS RELEVANTES ********************************************************************** SORT FROM(DBUDATA) TO(TEMP0001) USING(RACF) DISPLAY FROM(TEMP0001) LIST(PRINT) - PAGE - TITLE(' LISTADO USUARIOS DE PRODUCCION ') - DATE(YMD/) - TIME(12:) - BLANK - ON(010,08,CH) HEADER('USER ID') - ON(079,20,CH) HEADER('USER NAME ') - ON(019,10,CH) HEADER('FECHA CREA') - ON(118,10,CH) HEADER('FEC ULT ACCESO') - ON(054,03,CH) HEADER('REVOKED') - ON(044,04,CH) HEADER('ES SPECIAL') - ON(049,04,CH) HEADER('ES OPERATION') - ON(390,04,CH) HEADER('ES AUDITOR') /* The fields position are descrived in the 7.2.1 from SEcurity Server (RACF) Macros and Interfaces. Good Lucky. Saludos. Alvaro. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
