[prev in list] [next in list] [prev in thread] [next in thread] 

List:       racf-l
Subject:    Re: Report - Accounts Deleted / Added Per month?
From:       Elardus Engelbrecht <elardus.engelbrecht () SITA ! CO ! ZA>
Date:       2017-09-26 7:52:10
Message-ID: 8327808183365729.WA.elardus.engelbrechtsita.co.za () listserv ! uga ! edu
[Download RAW message or body]

Longnecker, Dennis wrote:

> Looking a report that can show me the number of racf accounts added & deleted per \
> month.  Anyone aware of such a beast?   Hoping there is an out of the box one that \
> can utilize SMF records.....

You have gotten good replies.

No RACFRW report examples... ;-)

You could use zSecure, that should be easy to setup and is handy to read SMF records \
directly.

For zSecure, try out this selection criteria (for all and every RACF commands):

   select event=allcommand       (... or whatever command you can try out)


If you are using IRRADU00 to collect RACF commands issued (Yes, I know it eats up \
DASD, but...) you can try out these reports for delete and adding of RACF ids.

//SELECT  EXEC PGM=ICETOOL                                   
//TOOLMSG  DD SYSOUT=*                                       
//DFSMSG   DD SYSOUT=*                                       
//PRINT1   DD SYSOUT=*
//PRINT2   DD SYSOUT=*
//DEL1WK01 DD UNIT=SYSDA,SPACE=(CYL,(200,100))               
//DEL1WK02 DD UNIT=SYSDA,SPACE=(CYL,(200,100))               
//INDD     DD DISP=SHR,DSN=<IRRADU00 output>
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(20,5,0)), 
//            UNIT=3390                                      
//TOOLIN   DD *                                              
 SORT    FROM(INDD) TO(TEMP0001) USING(DEL1)                 
 DISPLAY FROM(TEMP0001) LIST(PRINT1) -                       
         PAGE -                                              
         WIDTH(200) -                                        
         TITLE('RACF DELUSER REPORT') -                      
         DATE(4MD/) -                                        
         TIME(24:) -                                         
         BLANK -                             
         ON(63,8,CH) HEADER('ISSUER') -      
         ON(295,20,CH) HEADER('USER NAME') - 
         ON(72,8,CH) HEADER('GROUP') -       
         ON(32,10,CH) HEADER('DATE') -       
         ON(23,8,CH) HEADER('TIME') -        
         ON(498,8,CH) HEADER('USER ID') -    
         ON(462,8,CH) HEADER('GROUP') -      
         ON(286,8,CH) HEADER('OWNER  ') -    
         ON(43,4,CH) HEADER('SMFID') -       
         ON(175,8,CH) HEADER('TERMINAL') -   
         ON(184,8,CH) HEADER('JOBNAME ') -   
         ON(14,8,CH) HEADER('RESULT')        
                                             
OCCUR  FROM(TEMP0001) LIST(PRINT2) -         
       TITLE('DEL USER COMMANDS') -          
       WIDTH(200) -                          
       ON(63,8,CH) HEADER('ISSUER') -        
       ON(VALCNT,N05)   HEADER('COUNT')      
                                             
//DEL1CNTL   DD *                            
 SORT FIELDS=(32,10,CH,A,23,8,CH,A)          
 INCLUDE COND=(5,8,CH,EQ,C'DELUSER ')

//SELECT   EXEC PGM=ICETOOL                      
//TOOLMSG  DD SYSOUT=*                           
//DFSMSG   DD SYSOUT=*                           
//PRINT1   DD SYSOUT=*
//PRINT2   DD SYSOUT=*
//ADD1WK01 DD UNIT=SYSDA,SPACE=(CYL,(200,100))   
//ADD1WK02 DD UNIT=SYSDA,SPACE=(CYL,(200,100))   
//INDD     DD DISP=SHR,DSN=<IRRADU00 output>
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL
//            UNIT=3390                          
//TOOLIN   DD *                                  
 SORT    FROM(INDD) TO(TEMP0001) USING(ADD1)
 DISPLAY FROM(TEMP0001) LIST(PRINT1) -      
         PAGE -                             
         WIDTH(300) -                       
         TITLE('RACF ADDUSER REPORT') -     
         DATE(4MD/) -                       
         TIME(24:) -                        
         BLANK -                            
         ON(63,8,CH) HEADER('ISSUER') -     
         ON(295,20,CH) HEADER('USER NAME') -
         ON(72,8,CH) HEADER('GROUP') -      
         ON(32,10,CH) HEADER('DATE') -      
         ON(23,8,CH) HEADER('TIME') -       
         ON(508,8,CH) HEADER('USER ID') -   
         ON(43,4,CH) HEADER('SMFID') -      
         ON(175,8,CH) HEADER('TERMINAL') -  
         ON(184,8,CH) HEADER('JOBNAME ') -  
         ON(14,8,CH) HEADER('RESULT') -     
         ON(517,50,CH) HEADER('KEYWORDS')   
                                            
OCCUR  FROM(TEMP0001) LIST(PRINT2) -        
       TITLE('ADD USER COMMANDS') -         
       WIDTH(300) -                         
       ON(63,8,CH) HEADER('ISSUER') -       
       ON(VALCNT,N05)   HEADER('COUNT')     
//ADD1CNTL   DD *                         
 SORT FIELDS=(5,8,CH,A)                   
 INCLUDE COND=(5,8,CH,EQ,C'ADDUSER ')
 OPTION VLSHRT                            

Groete / Greetings
Elardus Engelbrecht


[prev in list] [next in list] [prev in thread] [next in thread]