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
