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.
//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;
/*