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