How can we implement Cleanup for ACF2 to prevent the deletion of rule entries with no access(PREVENT)?

Document ID : KB000013686
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

How can we implement Cleanup for ACF2 to prevent the deletion of rule entries with no access(PREVENT)?

Answer:

The Cleanup for ACF2 OPTION(COMMENTACCESSNONE) can be used to cause rule entries with ACCESS NONE permission(PREVENT) to appear as commented commands rather than deletes.

The OPTION(COMMENTACCESSNONE) works for both dataset and resource rule sets. 

The OPTION(COMMENTACCESSNONE) will cause rule entries with ACCESS NONE permission(PREVENT) to appear as commented commands. However if the entire rule set unreferenced date meets the Report's UNREF days, the command generated in the CMDS DD will delete entire rule even if one or some of the rule entries have ACCESS NONE permission(PREVENT). 

For example Given: 

Date     Date      Days    Item   Item 
Loaded Referenced Unused   Class  Name 
------ ---------- ------ -------- --------------------------------------- 
10.162   11.066    2200    RSAF   $KEY(TEST) 
10.162   11.063    2203    RSAF    UID(T44AFGP) LOG ?
10.162     .       2469    RSAF    UID(T44CGYW) PREVENT 

If the REPORT was run with OPTION(COMMENTACCESSNONE) and with UNREF=400 the entry $KEY(TEST) would be deleted because all of entires for the rule are >400. 

If the REPORT was run with OPTION(COMMENTACCESSNONE) and UNREF=2400 the ' UID(T44CGYW) PREVENT' entry will be deleted and the command will be a commented command(DELETE) command, the '$KEY(TEST)' and ' UID(T44AFGP) LOG' would not be deleted because the 'Days Unused' is less than 2400.

Example showing the OPTION(COMMENTACCESSNONE) with Resource rule entries: 

- UID(*) SERVICE(READ) PREVENT 
- UID(*) PREVENT 
- UID(*) PREVENT DATA(701) 

Same report with UNFER=0: 

2017/03/24 (17.083) 08:26     ACF2 Entries Unreferenced over 000 days          

Date       Date     Days  Item  Item                                           
Loaded  Referenced Unused Class Name                                           
------  ---------- ------ ----- -----------------------------------------------
17.080    17.081    002   DSN   $KEY(ETC)                                      
17.080      .       003   DSN    PDS UID(NOACCESSSSSS)                         
17.080      .       003   DSN    PDS UID(NOACCPREVENT)                         
17.080    17.081    002   DSN    PDS UID(S**A*********SSSTEST) READ(A) WRITE(A)

17.080    17.081    002   DSN   $KEY(ETC2)                                     
17.080      .       003   DSN    PDS UID(NOACCESSSSS)                          

                          RXFC  $KEY(HZS)                                      
17.082      .       001   RXFC   - UID(*) SERVICE(READ) PREVENT                

                          RXFC  $KEY(HZS2)                                     
17.082      .       001   RXFC   - UID(*) PREVENT                              

                          RXFC  $KEY(HZS3)                                     
17.082      .       001   RXFC   - UID(*) PREVENT DATA(701)                    

2017/03/24 (17.083) 08:26     ACF2 Entries Unreferenced over 000 days          

End-Of-Job Summary...                                                          

Record Type              Total      Unreferenced                               
---------------      ---------      ------------                               
DSN  Rule Sets               2                 2    100%                       
DSN  Rule Lines              4                 4    100%                       
RXFC Rule Sets               3                 0      0%                       
RXFC Rule Lines              3                 3    100%                       
---------------      ---------      ------------    ----                       
Totals                      12                 9     75%                       

End-Of-Job, RC=00                                                              

-------------------------------------------------------------------------------

This report was created using the following:                                   

  OPTION(DELETEUSERS)                   
  OPTION(COMMENTACCESSNONE)             

Input values from INCLUDE file:         

  CLASS(DSN) NAME(ETC)                  
  CLASS(DSN) NAME(ETC2)                 

  CLASS(RXFC) NAME(HZS)                 
  CLASS(RXFC) NAME(HZS2)

CMDS DD commands generated: 

/* PREVENT rule line follows: - 

AT5NRUL KEY(HZS) TYPE(XFC) - 
DEL( - 
- UID(*) SERVICE(READ) PREVENT- 
) NOLIST NOVERIFY 

/* PREVENT rule line follows: - 
AT5NRUL KEY(HZS2) TYPE(XFC) - 
DEL( - 
- UID(*) PREVENT- 
) NOLIST NOVERIFY 

/* PREVENT rule line follows: - 
AT5NRUL KEY(HZS3) TYPE(XFC) - 
DEL( - 
- UID(*) PREVENT DATA(701)- 
) NOLIST NOVERIFY