JCL generation

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.

Figure 1. JCL for generating CICS PA reports and extracts (part 1 of 2)
//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)
Figure 2. JCL for generating CICS PA reports and extracts (part 2 of 2)
//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
//

Information Information

Feedback


Timestamp icon Last updated: Saturday, 8 February 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic///users-guide/rsetjcl.htm