This, I think, could use some Symbols love. Cheers, Martin
Martin Packer > On 14 Dec 2017, at 05:54, Bruce Hewson <[email protected]> wrote: > > 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 [email protected] with the message: INFO IBM-MAIN >Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
