(1) You can run program IRRDBU00 against the RACF database which unloads it into a sequential dataset.
Code:
//STEP010 EXEC PGM=IRRDBU00,REGION=48M,PARM=NOLOCKINPUT
//SYSPRINT DD SYSOUT=*
//INDD1 DD DISP=SHR,
// DSN=SYS1.RACFDS
//OUTDD DD DSN=IBMUSER.SYS1.RACFDS.DUMP,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(20,5),RLSE),
// DCB=(RECFM=VB,LRECL=4096,BLKSIZE=20480)
(2) The output file will contain a variety of record types. The 0404 will contain dataset profiles with the RACF groups or RACF users that can reference them:
Code:
//ST0404 EXEC PGM=SORT
//SORTIN DD DSN=IBMUSER.SYS1.RACFDS.DUMP,DISP=SHR
//SORTOUT DD DSN=IBMUSER.SYS1.RACFDS.DUMP.C404DSPA,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(15,15),RLSE),
// DCB=(RECFM=VB,LRECL=4096,BLKSIZE=20480)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(5,4,CH,EQ,C'0404')
/*
沒有留言:
張貼留言