Thanks all, especially to Kolusu & Elardus. My final JCL:-
//*******************************************************************
//EXTRACT EXEC PGM=ICETOOL
//IRRADU00 DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.ALL
//EXTRACT DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
//PRINT DD DISP=(MOD,DELETE),
// UNIT=3390,
// LRECL=500,RECFM=FB,BLKSIZE=0,
// SPACE=(TRK,(15,15)),
// DSN=XYZZY.RACFICE.REPORT.CSMADMIN
//TOOLMSG DD DUMMY
//DFSMSG DD DUMMY
//SYSIN DD *
/*
//*------------------------------------------------------------------
//TOOLIN DD *
COPY FROM(IRRADU00) TO(EXTRACT) USING(RACF)
/*
//*------------------------------------------------------------------
//RACFCNTL DD *
OUTFILE FNAMES=EXTRACT,
INCLUDE=(1,8192,SS,EQ,C'XYZZY')
OPTION VLSCMP
/*
//REPORT EXEC PGM=ICETOOL
//EXTRACT DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0002 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0003 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0004 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0005 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0006 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//TEMP0007 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
//PRINT DD DISP=(MOD,CATLG),
// UNIT=3390,
// LRECL=500,RECFM=FB,BLKSIZE=0,
// SPACE=(TRK,(15,15)),
// DSN=XYZZY.RACFICE.REPORT.CSMADMIN
//TOOLMSG DD DUMMY
//DFSMSG DD DUMMY
//SYSIN DD *
/*
//*------------------------------------------------------------------
//TOOLIN DD *
SORT FROM(EXTRACT) TO(TEMP0001) USING(ADDU)
DISPLAY FROM(TEMP0001) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF ADDUSER Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(508,8,CH) HEADER('USER ID') -
ON(517,138,CH) HEADER('KEYWORDS') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(295,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0002) USING(ALTU)
DISPLAY FROM(TEMP0002) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF ALTUSER Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(522,8,CH) HEADER('USER ID') -
ON(286,8,CH) HEADER('OWNER ') -
ON(531,127,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(295,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0003) USING(CONU)
DISPLAY FROM(TEMP0003) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF CONNECT Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(498,8,CH) HEADER('USER ID') -
ON(507,138,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(295,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0004) USING(PSWD)
DISPLAY FROM(TEMP0004) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF PASSWORD Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(286,8,CH) HEADER('OWNER ') -
ON(498,138,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(295,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0005) USING(PRMT)
DISPLAY FROM(TEMP0005) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF PERMIT Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(286,8,CH) HEADER('CLASS ') -
ON(507,35,CH) HEADER('RESOURCE') -
ON(763,100,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(304,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0006) USING(RALT)
DISPLAY FROM(TEMP0006) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF RALTER Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(295,8,CH) HEADER('OWNER ') -
ON(286,8,CH) HEADER('CLASS ') -
ON(516,24,CH) HEADER('RESOURCE') -
ON(772,100,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(304,20,CH) HEADER('USER NAME')
SORT FROM(EXTRACT) TO(TEMP0007) USING(RDEF)
DISPLAY FROM(TEMP0007) LIST(PRINT) -
NOCC -
WIDTH(500) -
TITLE('RACF RDEFINE Command Report') -
DATE(4MD/) -
TIME(24:) -
PAGE -
BLANK -
ON(32,10,CH) HEADER('DATE') -
ON(23,8,CH) HEADER('TIME') -
ON(43,4,CH) HEADER('SMFID') -
ON(14,8,CH) HEADER('RESULT') -
ON(5,8,CH) HEADER('COMMAND') -
ON(295,8,CH) HEADER('OWNER ') -
ON(286,8,CH) HEADER('CLASS ') -
ON(516,24,CH) HEADER('RESOURCE') -
ON(772,100,CH) HEADER('KEYWORDS USED') -
ON(63,8,CH) HEADER('ISSUER') -
ON(72,8,CH) HEADER('GROUP') -
ON(175,8,CH) HEADER('TERMINAL') -
ON(184,8,CH) HEADER('JOB NAME') -
ON(304,20,CH) HEADER('USER NAME')
/*
//ADDUCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'ADDUSER ')
OPTION VLSHRT
/*
//ALTUCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'ALTUSER ')
OPTION VLSHRT
/*
//CONUCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'CONNECT ')
OPTION VLSHRT
/*
//PSWDCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'PASSWORD')
OPTION VLSHRT
/*
//PRMTCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'PERMIT ')
OPTION VLSHRT
/*
//RALTCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'RALTER ')
OPTION VLSHRT
/*
//RDEFCNTL DD *
SORT FIELDS=(5,8,CH,A)
INCLUDE COND=(5,8,CH,EQ,C'RDEFINE ')
OPTION VLSHRT
/*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
