JCL for HDB housekeeping

The following JCL is an example of the job stream for requesting HDB housekeeping.
Figure 1. JCL for HDB housekeeping
//CPAHDBK  JOB (Job Accounting)
//*
//CICSPA   EXEC PGM=CPAMAIN,PARM='UPPER'
//STEPLIB  DD  DSN=CICSPA.V5R1M0.SCPALINK,DISP=SHR
//CPAHDBRG DD  DSN=USER.CICSPA.XYX.REPOSTRY,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
   CICSPA HDB(HKEEP)                           
/*                                             
//CPAHKDEL DD  DSN=&CPAHKDEL,DISP=(NEW,PASS),  
//         UNIT=DASD,                          
//         SPACE=(CYL,(1,1))                   
//*                                            
//DELETE EXEC PGM=IDCAMS,COND=(0,NE,HKEEP)     
//SYSPRINT DD  SYSOUT=*                        
//SYSIN    DD  DSN=&CPAHKDEL,DISP=(OLD,DELETE) 
//*
//* DELETE EXPIRED DB2 TABLE ROWS 
//RUNTIAD EXEC PGM=IKJEFT01,DYNAMNBR=20                       
//STEPLIB  DD DISP=SHR,DSN=DB2.SDSNLOAD 
//         DD DISP=SHR,DSN=DB2.SDSNEXIT 
//SYSTSPRT DD SYSOUT=*                                        
//SYSTSIN  DD *                                               
 DSN SYSTEM(DB2P)                                             
 RUN PROGRAM(DSNTIAD) -                                       
     LIB('DB2.RUNLIB.LOAD') PLAN(DSNTIAD)                     
/*                                                            
//SYSPRINT DD SYSOUT=*                                        
//SYSUDUMP DD SYSOUT=*                                        
//SYSIN    DD *                                               
DELETE FROM CPAX.CPA_TRANTLST
WHERE                                                         
 START_DATE < '2012-12-29' or 
 (START_DATE = '2012-12-29' AND START_TIME <= '12.00.00'); 
COMMIT;                                                       
/*

Note that the data sets and DB2 data are deleted by subsequent job steps.


Information Information

Feedback


Timestamp icon Last updated: Thursday, 7 November 2013


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic//users-guide/housekeepjcl.htm