CPADB2PD - Performance Summary DB2 table maintenance

This JCL runs a DB2 utility to execute SQL statements to delete a block of rows from the CICS PA Performance Summary table using start and end date and time. The values in the WHERE statement identify the date and time range.

Figure 1. Sample JCL CPADB2PD - Performance Summary DB2 table maintenance
//CPADB2PD   JOB ,CLASS=A,NOTIFY=&SYSUID
//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(ssid)                                             
 RUN PROGRAM(DSNTIAD) -                                       
     LIB('db2.runlib.load') PLAN(DSNTIAD)                     
/*                                                            
//SYSPRINT DD SYSOUT=*                                        
//SYSUDUMP DD SYSOUT=*                                        
//SYSIN    DD *                                               
DELETE FROM schema.CPA_CMFPSUM                                
WHERE                                                         
 (((START_DATE = 'yyyy-mm-dd' AND START_TIME >= 'hh.mm.ss') OR
    START_DATE > 'yyyy-mm-dd') AND                            
  ((START_DATE = 'yyyy-mm-dd' AND START_TIME <= 'hh.mm.ss') OR
    START_DATE < 'yyyy-mm-dd')) ;                             
COMMIT;                                                       
/*