Example 26: Using MODIFY with MAXRECDAYS to delete copies but assure recoverability for a specific number of days

//ACPEX26 JOB (PACP),'EXAMPLE 26',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID             
//******************************************************************************
//*                                                                             
//*  Use MODIFY with MAXRECDAYS 30 to delete entries from SYSIBM.SYSCOPY,       
//*  BMCXCOPY, and SYSLGRNX that are not required for recovery to a point       
//*  in time that is within the last 30 days.                                   
//*                                                                             
//*  ICFDELETE YES causes image copy datasets to be deleted when the            
//*  associated row is deleted from sysibm.syscopy or BMCXCOPY.                 
//*                                                                             
//*  Note that ANALYZE YES is specified, so the MODIFY command will             
//*  report what it would do without deleting anything.                         
//*                                                                             
//******************************************************************************
//BMCMOD   EXEC PGM=ACPMAIN,REGION=0M,                                          
//         PARM='DEJM,ACPEX26,NEW/RESET,MSGLEVEL(1)'                            
//STEPLIB  DD DSN=DB2QA.INST1210.BMCLINK,DISP=SHR                               
//         DD DSN=DB2QA.INST1210.UBMCLINK,DISP=SHR                              
//         DD DSN=DB2QA.INST1210.BMCPSWD,DISP=SHR                               
//         DD DSN=CSG.DEJM.DSNEXIT,DISP=SHR                                     
//         DD DSN=CSGI.DB2V12M.DSNLOAD,DISP=SHR                                 
//SYSPRINT DD SYSOUT=*                                                          
//ACPERROR DD SYSOUT=*                                                          
//SYSIN           DD *                                                          
                                                                               
  MODIFY TABLESPACE ACPEXDB1.*                                                  
   DELETE                                                                       
     MAXRECDAYS 30                                                              
     ICFDELETE YES                                                              
     ANALYZE YES