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