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.V5R3M0.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.