CPADB2SD - Statistics DB2 table maintenance

This JCL is an example of running the DB2 utility to delete all rows in a CICS PA Statistics DB2 table that contain a specific resource value. Additional interval identification data can be included to delete specific rows.

Figure 1. Sample JCL CPADB2SD - Statistics DB2 table maintenance
//CPADB2SD   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_HST060B        /* Dispatcher TCB Modes table */
  WHERE                                                               
       APPLID = 'applid' AND                                          
       TCB_MODE_NAME = 'QR' ;                                         
COMMIT;                                                               
/*