Using SET2PURG to purge history records for jobs that no longer run

Products

• CA-11

Issue/Introduction

History records for the CA 11 JHF601 are retained via the mutually inclusive installation options of MAXDAY and MINCNT.    If a job's history retention is not met during a MANT run, the JHF601 potentially grows in size.  How can  jobs that no longer run and will never reach the defined  MAXDAY and MINCNT  be purged from the history file? 

 

Environment

Release:  All
 

Resolution

  The SET2PURG function may be used to purge records that have not yet reached the MAXDAY and MINCNT values.  Perform the following to change the SET2PURG flag online

1.   Select the JUPD function from the CA 11/ISPF menu. 
2.   Next, choose REP DATA: SET2PURG and mark the Control RECORD TYPE:C 
        This flag is found only in the Control record.  See example below: 

              OPTION  ===>                                                       
             Jobname     : MYJOBA                        Record Type : C                 Profile  :           
             PROD Date :                                       RRUN Date   :                 Remote   :                
             PROD Time :                                       RRUN Time   :                                    
             Rep Data     : SET2PURG=YES                                                          

 

To change the SET2PURG flag for multiple jobs in batch, use the U11OBD program as shown below:

//STEP1    EXEC PGM=U11OBD,PARM='(profile)'                       
//STEPLIB  DD    DISP=SHR,DSN=CA11.CAL7LOAD                 
//RMSRPT   DD  SYSOUT=*                                          
//SYSUDUMP DD  SYSOUT=*                                          
//SYSIN    DD  *                                                 
JUPD MYJOBA,RECORD=C                                             
REP SET2PURG=YES                                                  
U                                                                
CANCEL                                                           
JUPD MYJOBB,RECORD=C                                            
REP SET2PURG=YES                                                  
U       
CANCEL                                                           
JUPD MYJOBC,RECORD=C                                            
REP SET2PURG=YES                                                 
U                                                         
CANCEL                                                           
END                                                              
*/