This JCL runs the CICS PA Statistics HDB Alert report in various sort orders.
//CPASAHDB JOB ,CLASS=A,NOTIFY=&SYSUID
//CICSPA EXEC PGM=CPAMAIN,REGION=0M,PARM=NOSTAE
//STEPLIB DD DSN=CPA.V3R2M0.SCPALINK,DISP=SHR
//*
//* HDB Register
//CPAHDBRG DD DISP=SHR,DSN=<CICSPA.HDB.Register>
//*
//* External Work Data Sets
//CPAXW001 DD DSN=&&CPAXW001,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPAXW002 DD DSN=&&CPAXW002,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPAXW003 DD DSN=&&CPAXW003,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPAXW004 DD DSN=&&CPAXW004,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPAXW005 DD DSN=&&CPAXW005,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//*
//* Sort Work Data Sets
//CPASWK01 DD DSN=&&CPASWK01,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPASWK02 DD DSN=&&CPASWK02,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPASWK03 DD DSN=&&CPASWK03,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//CPASWK04 DD DSN=&&CPASWK04,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* Commands to request CICS PA reports
//SYSIN DD *
CICSPA NOAPPLID,
* Statistics Alerts List and Summary reports for all Interval types
* sorted by APPLID
HDB(OUTPUT(STAL0001),
STATSALERT(<hdbname>),
EXTERNAL(CPAXW001),
STALTDEF(<alertdefinitionname>),
BY(APPLID(LIST,SUMMARY)),
TYPE(EOD,INT,USS,REQ,RRT)),
* Statistics Alerts List and Summary reports for all Interval types
* sorted by ALERT
HDB(OUTPUT(STAL0002),
STATSALERT(<hdbname>),
EXTERNAL(CPAXW002),
STALTDEF(<alertdefinitionname>),
BY(ALERT(LIST,SUMMARY)),
TYPE(EOD,INT,USS,REQ,RRT)),
* Statistics Alerts report for all Interval types sorted by statistics
* interval collection time
HDB(OUTPUT(STAL0003),
STATSALERT(<hdbname>),
EXTERNAL(CPAXW003),
STALTDEF(<alertdefinitionname>),
BY(COLLECT),
TYPE(EOD,INT,USS,REQ,RRT)),
* Statistics Alerts report for all Interval types sorted by statistics
* interval
HDB(OUTPUT(STAL0004),
STATSALERT(<hdbname>),
EXTERNAL(CPAXW004),
STALTDEF(<alertdefinitionname>),
BY(INTERVAL),
TYPE(EOD,INT,USS,REQ,RRT)),
* Statistics Alerts reports for all Interval types sorted by statistics
* record resource
HDB(OUTPUT(STAL0005),
STATSALERT(<hdbname>),
EXTERNAL(CPAXW005),
STALTDEF(<alertdefinitionname>),
BY(RESOURCE),
TYPE(EOD,INT,USS,REQ,RRT))
/*