The following JCL is an example of the job stream for requesting reports and extracts from CICS PA. The sample library SCPASAMP provided with CICS PA includes JCL members to generate all the CICS PA reports and extracts. See Sample library for a complete list of these job streams.
//CPASAMP JOB (Job Accounting)
//*
//CICSPA EXEC PGM=CPAMAIN,PARM='UPPER'
//STEPLIB DD DSN=CICSPA.V5R1M0.SCPALINK,DISP=SHR
//CMDLIB DD DSN=CICSPA.CMDLIB,DISP=SHR
//CPAHDBRG DD DSN=USER.CICSPA.XYX.REPOSTRY,DISP=SHR
//*
//* CICS PA messages
//SYSPRINT DD SYSOUT=*
//*
//* SMF Files for APPLID=CICSP
//SMFIN001 DD DSN=CICS.APPL1.FILE1,DISP=SHR
// DD DSN=CICS.APPL1.FILE2,DISP=SHR,UNIT=AFF=SMFIN001
//*
//* Report output files - dynamically allocated by CICS PA,
//* or you can specify them in the JCL
//MYLIST DD SYSOUT=*
//*
//* Extract data sets
//CPAOXSYS DD DSN=CICSPA.CROSSSYS.EXTRACT,
// UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,CATLG)
//CPAOEXPT DD DSN=CICSPA.PERF.EXTRACT,
// UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,CATLG)
//CPAORSEL DD DSN=CICSPA.RECSEL.EXTRACT,
// UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,CATLG)
//*
//* External work files for use by reports that invoke SORT
//CPAXW001 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPAXW002 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPAXW003 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPAXW004 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPAXW005 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//*
//* Sort work files
//CPASWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPASWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPASWK03 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPASWK04 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//CPASWK05 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(NEW,DELETE)
//SYSOUT DD SYSOUT=*
//* Command input
//SYSIN DD *
* Report Set : SAMPLE
* Description: Sample CICS PA Report Set
CICSPA SMFSTART(2012/01/12,),
SMFSTOP(2012/01/13,)
* Reports for APPLID=CICSP
CICSPA IN(SMFIN001),
APPLID(CICSP),
LIST(OUTPUT(MYLIST),
SELECT(PERFORMANCE(INCL(USERID(MYID))))),
LISTX,
SUMMARY,
TOTAL,
WAITANALYSIS,
PROFILING
CROSS,
TRANGROUP,
BTS,
WORKLOAD,
TRACKINGLIST
TRACKINGSUMMARY
LISTEXCEPTION,
SUMEXCEPTION,
RESUSAGE,
STATSALERT,
CTGSTATISTICS,
DB2,
MQ,
OMEGAMON,
LOGGER,
GRAPH(TRANRATE,RESPONSE),
EXTRACTPERFORMANCE,
RECSEL
HDB(LOAD(hdbname)
EXTRACTSTATISTICS)
/*
//* Dictionary records
//CPADICTR DD DISP=SHR,DSN=CICSPA.CICSP.DICT
//