This JCL runs the Performance List and Summary reports for a region
using DB2®.
Figure 1. Sample JCL CPADB2# - Performance reports for DB2 region//CPADB2# JOB ,CLASS=A,NOTIFY=&SYSUID
//CICSPA EXEC PGM=CPAMAIN,REGION=4M,PARM=NOSTAE
//STEPLIB DD DSN=CPA.V3R2M0.SCPALINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//* SMF Input Files
//SMFIN001 DD DISP=SHR,DSN=<SMF.Input.DSN.applid1>
//* External Work Data Sets
//CPAXW001 DD DSN=&&CPAXW001,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//* Sort Work Data Sets
//CPASWK01 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(20,5))
//CPASWK02 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(20,5))
//CPASWK03 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(20,5))
//CPASWK04 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(20,5))
//SYSOUT DD SYSOUT=*
//* Commands to request CICS PA reports
//SYSIN DD *
CICSPA IN(SMFIN001),
APPLID(<applid1>),
LIST(OUTPUT(LIST0001),
FIELDS(TRAN, Transaction identifier
PROGRAM, Program name
TASKNO, Transaction identification number
STOP(TIMET), Task stop time
RESPONSE, Transaction response time
DISPATCH(TIME), Dispatch time
CPU(TIME), CPU time
SUSPEND(TIME), Suspend time
DISPWAIT(TIME), Redispatch wait time
SYNCTIME(TIME), SYNCPOINT processing time
DB2CONWT(TIME), DB2 Connection wait time
DB2RDYQW(TIME), DB2 Thread wait time
DB2REQCT, DB2 requests
DB2WAIT(TIME))), DB2 SQL/IFI wait time
SUMMARY(OUTPUT(SUMM0001),
EXTERNAL(CPAXW001),
INTERVAL(01:00),
FIELDS(TRAN, Transaction identifier
TASKCNT, Total Task count
RESPONSE(AVE), Transaction response time
DISPATCH(TIME(AVE)), Dispatch time
CPU(TIME(AVE)), CPU time
SUSPEND(TIME(AVE)), Suspend time
DISPWAIT(TIME(AVE)), Redispatch wait time
SYNCTIME(TIME(AVE)), SYNCPOINT processing time
DB2CONWT(TIME(AVE)), DB2 Connection wait time
DB2RDYQW(TIME(AVE)), DB2 Thread wait time
DB2REQCT(AVE), DB2 requests
DB2WAIT(TIME(AVE)))) DB2 SQL/IFI wait time
/*