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
//STEPLIB  DD  DSN=CICSPA.V5R4M0.SCPALINK,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
//CPAOEX01 DD DSN=ABC.CPU5LEX2.CSV,DISP=OLD         
//CPAORS02 DD DSN=ABC.RECSEL1.CSV,DISP=OLD          
//CPAOSX03 DD DSN=ABC.STATEXT1.CSV.TCBMODES,DISP=OLD
//TS029B02 DD DSN=ABC.STATEXT2.CSV.STTS029B,DISP=OLD
//*  
//* External work files for use by reports that invoke SORT
//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))
//CPAXW006 DD DSN=&&CPAXW006,DISP=(NEW,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(10,10))  
//CPAXW007 DD DSN=&&CPAXW007,DISP=(NEW,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(10,10))  
//CPAXW008 DD DSN=&&CPAXW008,DISP=(NEW,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(10,10))  
//CPAXW009 DD DSN=&&CPAXW009,DISP=(NEW,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(10,10))  
//*  
//* Sort work files
//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))
//CPASWK05 DD DSN=&&CPASWK05,DISP=(NEW,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSOUT   DD  SYSOUT=*

Figure 2. JCL for generating CICS PA reports and extracts (part 2 of 2)

//* 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
            IN(SMFIN001),
            APPLID(CICSP),
            LINECNT(60),    
            FORMAT(':','/'),
            PRECISION(4),   
        LIST(OUTPUT(MYLIST),
            SELECT(PERFORMANCE(INCL(USERID(MYID))))),
        LISTX,
        SUMMARY,
        TOTAL,
        WAITANALYSIS,
        PROFILING(ID(001),REPORT(SMF)),    
        PROFILING(ID(001),BASELINE(SCEN1)),
        CROSS(NOWRITE),
        TRANGROUP,
        BTS,
        WORKLOAD,
        TRACKINGLIST,
        TRACKINGSUMMARY,
        LISTEXCEPTION,
        SUMEXCEPTION,
        RECSEL(OUTPUT(RSEL0001),
               DDNAME(CPAORS02)),
        RESUSAGE(OUTPUT(RESU0001),
            TRANLIST(FILE,TEMPSTOR,DPL)),
        STATISTICSLIST(
          FIELDS(DSRDS_TCB_ADDRESS,
                 DSRDS_TCB_NAME)), 
        STATISTICSSUMMARY(
          FIELDS(APPLID(ASCEND),       
                 SMSMEMLIMITSRC(FIN),  
                 SMSHWMGDSAALLOC(MAX))),
        STATSALERT(STALTDEF(SOS)),
        CTGSTATISTICS,
        DB2,
        MQ,
        OMEGAMON,
        LOGGER,                
        EXTRACTPERFORMANCE(DDNAME(CPAOSX03)),
        EXTRACTSTATISTICS(STTS010A(TS029B02))
/*
//* Dictionary records
//CPADICTR DD DISP=SHR,DSN=CICSPA.CICSP.DICT
//