CPAPXSYS - Cross-System Work report and extract

This JCL runs the CICS PA Cross-System report and extract. The second Job Step (STEP2) then runs the Performance List report against the extract created in the first Job Step.
Figure 1. Sample JCL CPAPXSYS - Cross-System Work report and extract (part 1 of 2)
//CPAPXSYS 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>
//SMFIN002 DD  DISP=SHR,DSN=<SMF.Input.DSN.applid2>
//* Extract Data Sets
//PCRSX001 DD DSN=<CICSPA.CrossSys.Extract>,
//            DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(10,10))
//*
//* External Work Data Sets
//CPAXW001 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(50,10))
//CPAXW002 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(50,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,SMFIN002),
                APPLID(<applid1>,<applid2>),
*           Cross-System Report
            CROSS(OUTPUT(PCRS0001),
                EXTERNAL(CPAXW001),
                PRINTMULTIPLE,NOWRITE),
*           Cross-System Extract
            CROSS(DDNAME(PCRSX001),
                EXTERNAL(CPAXW002),
                WRITEALL,NOPRINT)
/*
Figure 2. Sample JCL CPAPXSYS - Cross-System Work report and extract (part 2 of 2)
//*
//STEP2    EXEC PGM=CPAMAIN,REGION=4M,PARM=NOSTAE
//STEPLIB  DD  DSN=CPA.V3R2M0.SCPALINK,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//*
//* SMF Input Files
//PCRSX001 DD DSN=<CICSPA.CrossSys.Extract>,
//            DISP=(SHR)
//*
//*  Additional Extract Fields:
//*
//*  CICSPA A001 TOTRECS      The total number of input records that
//*                           were added to produce this record.
//*
//*  CICSPA A002 APPLRECS     The total number of application program
//*                           records that were added to produce this
//*                           record.
//*
//*  CICSPA A003 TRANROUT     The total number of terminal-owning
//*                           region records that were added to
//*                           produce this record.
//*
//*  CICSPA A004 FUNCSHIP     The total number of function shipping
//*                           request records that were added to
//*                           produce this record.
//*
//*  CICSPA A005 DPLRECS      The total number of function shipping
//*                           distributed program link (DPL) request
//*                           records that were added into this
//*                           record. This field is a subset of the
//*                           total number of function shipping
//*                           requests field.
//*
//SYSIN    DD  *
         CICSPA IN(PCRSX001),
            LIST(FIELDS(TRAN,TASKNO,STOP(TIMES),RESP,
                        DISPATCH,CPU,SUSPEND,DISPWAIT,
                        IRWAIT(COUNT),RMISUSP(COUNT),
                        COUNT(OWNER(CICSPA),NUMBER(1)),   TOTRECS
                        COUNT(OWNER(CICSPA),NUMBER(2)),   APPLRECS
                        COUNT(OWNER(CICSPA),NUMBER(3)),   TRANROUT
                        COUNT(OWNER(CICSPA),NUMBER(4)),   FUNCSHIP
                        COUNT(OWNER(CICSPA),NUMBER(5))))  DPLRECS