Thanks for this.. can this be updated to add accesses available through UACC?
– Vignesh Mainframe Infrastructure -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Elardus Engelbrecht Sent: 08 November 2018 15:29 To: [email protected] Subject: [EXTERNAL] Re: Profiles specific to user Sankaranarayanan, Vignesh wrote: >Thanks all, so we've roughly come to the same answer, i.e., processing DBU00 >using SORT/ICETOOL/REXX or Nigel's utilities.. >Will wait to hear from Elardus on whether he can share his sweet >pre-existing REXX 😊 Sorry that you have to wait 1000 years, but I got tied up with 1001 things ... Not that 'sweet' ... ;-) Here is a sample one for Datasets. This one select ALL profiles for two ids/group: //SELECT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //PRINT DD SYSOUT=* //DBUDATA DD DISP=SHR,DSN=....RACF.UNLOAD //TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(20,5,0)), // UNIT=3390 //TOOLIN DD * SORT FROM(DBUDATA) TO(TEMP0001) USING(RACF) DISPLAY FROM(TEMP0001) LIST(PRINT) - PAGE - TITLE('DATASET ACCESS LIST') - DATE(4MD/) - TIME(24:) - BLANK - ON(62,8,CH) HEADER('ID') - ON(71,8,CH) HEADER('ACCESS') - ON(10,44,CH) HEADER('PROFILE NAME') //RACFCNTL DD * SORT FIELDS=(10,44,CH,A,10,62,CH,A) INCLUDE COND=(5,4,CH,EQ,C'0404',AND, (62,8,CH,EQ,C'<id or group>',OR, 62,8,CH,EQ,C'<id or group>')) OPTION VLSHRT // Another sample, but for General Resources with selection of a single id: //SELECT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //PRINT DD SYSOUT=* //DBUDATA DD DISP=SHR,DSN=....RACF.UNLOAD //TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(20,5,0)), // UNIT=3390 //TOOLIN DD * SORT FROM(DBUDATA) TO(TEMP0001) USING(RACF) DISPLAY FROM(TEMP0001) LIST(PRINT) - PAGE - TITLE('GEN RESOURCES ACCESS LIST') - DATE(4MD/) - TIME(24:) - BLANK - ON(266,8,CH) HEADER('ID') - ON(275,8,CH) HEADER('ACCESS') - ON(257,8,CH) HEADER('CLASS') - ON(10,80,CH) HEADER('PROFILE NAME') //RACFCNTL DD * SORT FIELDS=(10,246,CH,A,10,266,CH,A) INCLUDE COND=(5,4,CH,EQ,C'0505',AND,266,7,CH,EQ,C'<id or group>') OPTION VLSHRT // You can insert your own selection for Class, profiles, etc. Just check the length of the profile name in this example. HTH! Groete / Greetings Elardus Engelbrecht ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN MARKSANDSPENCER.COM ________________________________ Unless otherwise stated above: Marks and Spencer plc Registered Office: Waterside House 35 North Wharf Road London W2 1NW Registered No. 214436 in England and Wales. Telephone (020) 7935 4422 Facsimile (020) 7487 2670 www.marksandspencer.com Please note that electronic mail may be monitored. This e-mail is confidential. If you received it by mistake, please let us know and then delete it from your system; you should not copy, disclose, or distribute its contents to anyone nor act in reliance on this e-mail, as this is prohibited and may be unlawful. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
