Skip to content

Instantly share code, notes, and snippets.

@wizardofzos
Last active May 23, 2021 22:15
Show Gist options
  • Save wizardofzos/20dc44afc618fc94281471f4c0f951fb to your computer and use it in GitHub Desktop.
Save wizardofzos/20dc44afc618fc94281471f4c0f951fb to your computer and use it in GitHub Desktop.
Delete remnant DISCRETE datasetprofiles and remove non-existing users from accesslists ADCD 24B RACF
//FIXIT EXEC PGM=IKJEFT01,REGION=0M
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
/* Cleanup the DB@ ARCHLOG stuff :) */
DELDSD 'DSN710.ARCHLOG2.D01351.T1945222.B0000008' NOSET
DELDSD 'DSN710.ARCHLOG2.D01352.T1413499.A0000009' NOSET
DELDSD 'DSN710.ARCHLOG2.D01352.T1413499.B0000009' NOSET
DELDSD 'DSN710.ARCHLOG2.D01352.T1426322.A0000010' NOSET
DELDSD 'DSN710.ARCHLOG2.D01352.T1426322.B0000010' NOSET
DELDSD 'DSN710.ARCHLOG2.D01353.T1301406.A0000011' NOSET
DELDSD 'DSN710.ARCHLOG2.D01353.T1301406.B0000011' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T1731260.A0000012' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T1731260.B0000012' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T2025145.A0000013' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T2025145.B0000013' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T2043554.A0000014' NOSET
DELDSD 'DSN710.ARCHLOG2.D02018.T2043554.B0000014' NOSET
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS1) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS2) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS3) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS4) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS5) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS6) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS7) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS8) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUS9) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(ADCDUSA) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(JOHNWD) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(RGONZAL) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST01) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST02) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST03) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST04) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST101) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST102) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST103) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST104) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST11) DELETE
PERMIT ACCT# CLASS(ACCTNUM) ID(TEST123) DELETE
PERMIT ACCT CLASS(TSOAUTH) ID(JOHNWD) DELETE
PERMIT ACCT CLASS(TSOAUTH) ID(RGONZAL) DELETE
PERMIT AOPADMIN CLASS(FACILITY) ID(AOPADMIN) DELETE
PERMIT AOPSTART.* CLASS(STARTED) ID(LARRYWD) DELETE
PERMIT AOPSTOP.* CLASS(STARTED) ID(LARRYWD) DELETE
PERMIT BBOPROC CLASS(TSOPROC) ID(DSN1SPAS) DELETE
PERMIT BPX.DAEMON CLASS(FACILITY) ID(AOPSTC) DELETE
PERMIT BPX.DAEMON CLASS(FACILITY) ID(CBLDAP) DELETE
PERMIT BPX.FILEATTR.PROGCTL CLASS(FACILITY) ID(TEST2) DELETE
PERMIT BPX.SERVER CLASS(FACILITY) ID(CBLDAP) DELETE
PERMIT BPX.SERVER CLASS(FACILITY) ID(IMWEBSRV) DELETE
PERMIT BPX.SRV.INTERNAL CLASS(SURROGAT) ID(IMWEBSRV) DELETE
PERMIT BPX.SRV.PRIVATE CLASS(SURROGAT) ID(IMWEBSRV) DELETE
PERMIT BPX.SRV.PUBLIC CLASS(SURROGAT) ID(IMWEBSRV) DELETE
PERMIT BPX.SRV.WEBADM CLASS(SURROGAT) ID(IMWEBSRV) DELETE
PERMIT CB.*.BBOASR1 CLASS(SERVER) ID(CBASRU1) DELETE
PERMIT CB.*.BBOASR2 CLASS(SERVER) ID(CBASRU2) DELETE
PERMIT CB.*.CBINTFRP CLASS(SERVER) ID(CBINTSR1) DELETE
PERMIT CB.*.CBNAMING CLASS(SERVER) ID(CBNAMSR1) DELETE
PERMIT CB.*.CBSYSMGT CLASS(SERVER) ID(CBSYMSR1) DELETE
PERMIT CBS390 CLASS(PTKTDATA) ID(CBCLGP) DELETE
PERMIT CBS390 CLASS(PTKTDATA) ID(CBCTL1) DELETE
PERMIT CBS390 CLASS(PTKTDATA) ID(CBIVPGP2) DELETE
PERMIT CBS390 CLASS(PTKTDATA) ID(CBIVPGP) DELETE
PERMIT DBCG.BATCH CLASS(DSNR) ID(DBUSER) DELETE
PERMIT DBSPROC9 CLASS(TSOPROC) ID(RGONZAL) DELETE
PERMIT DBSPROCA CLASS(TSOPROC) ID(RGONZAL) DELETE
PERMIT DBSPROCC CLASS(TSOPROC) ID(RGONZAL) DELETE
PERMIT DCEAUDD.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCEAUDD.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCECDSD.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCECDSD.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCEDTSTP.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCEDTSTP.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCEGDAD.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCEGDAD.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCEKERN.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCEKERN.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCEPWDD.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCEPWDD.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DCESECD.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DCESECD.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DFSKERN.START.REQUEST CLASS(FACILITY) ID(DCEADM) DELETE
PERMIT DFSKERN.START.REQUEST CLASS(FACILITY) ID(DCEKERN) DELETE
PERMIT DFSKERN.START.REQUEST CLASS(FACILITY) ID(DFSCM) DELETE
PERMIT DFSKERN.START.REQUEST CLASS(FACILITY) ID(DFS) DELETE
PERMIT DSN1.RRSAF CLASS(DSNR) ID(CBASR1) DELETE
PERMIT DSN1.RRSAF CLASS(DSNR) ID(CBASR2) DELETE
PERMIT DSN1.RRSAF CLASS(DSNR) ID(CBCTL1) DELETE
PERMIT DSN1.RRSAF CLASS(DSNR) ID(CBSR1) DELETE
PERMIT GIM.* CLASS(FACILITY) ID(JOHNWD) DELETE
PERMIT IBMUSER.SUBMIT CLASS(SURROGAT) ID(IMS61RC1) DELETE
PERMIT IBMUSER.SUBMIT CLASS(SURROGAT) ID(IMS61RD1) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS1) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS2) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS3) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS4) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS5) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS6) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS7) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS8) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUS9) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(ADCDUSA) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(JOHNWD) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(RGONZAL) DELETE
PERMIT ISPFPROC CLASS(TSOPROC) ID(TESTER) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS1) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS2) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS3) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS4) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS5) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS6) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS7) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS8) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUS9) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(ADCDUSA) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(JOHNWD) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(LWH) DELETE
PERMIT JCL CLASS(TSOAUTH) ID(RGONZAL) DELETE
PERMIT MOUNT CLASS(TSOAUTH) ID(RGONZAL) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS1) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS2) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS3) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS4) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS5) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS6) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS7) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS8) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUS9) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(ADCDUSA) DELETE
PERMIT OPER CLASS(TSOAUTH) ID(RGONZAL) DELETE
PERMIT RECOVER CLASS(TSOAUTH) ID(DSN1SPAS) DELETE
PERMIT RECOVER CLASS(TSOAUTH) ID(TESTEG) DELETE
PERMIT RECOVER CLASS(TSOAUTH) ID(TESTER) DELETE
SETROPTS GENERIC(TSOAUTH) REFRESH
SETROPTS GENERIC(TSOPROC) REFRESH
SETROPTS GENERIC(SURROGAT) REFRESH
SETROPTS GENERIC(FACILITY) REFRESH
SETROPTS GENERIC(PTKTDATA) REFRESH
SETROPTS GENERIC(DSNR) REFRESH
SETROPTS GENERIC(SERVER) REFRESH
SETROPTS GENERIC(ACCTNUM) REFRESH
SETROPTS GENERIC(STARTED) REFRESH
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment