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
