Running reports

Preparing to Run Reports › Sample Job Streams For Running Reports › Running reports— z/OS

Running reports— z/OS

CULPRIT for running Performance Monitor reports (z/OS)

 //***********************************************************
 //*                                                         *
 //*               Performance Monitor REPORTS               *
 //*                                                         *
 //*  THE JOB EXECUTES THE CULPRIT REPORTS USING THE ARCHIVE *
 //*  FILES AS INPUT AND PRODUCES THE REPORTS AND/OR A       *
 //*  MACHINE-READABLE FILE AS OUTPUT.  THE USER HAS THE     *
 //*  RESPONSIBILITY OF DEFINING THE FOLLOWING OPTIONS:      *
 //*                                                         *
 //*  1.  REPORTS SELECTION - //SYSIN  DD *                  *
 //*      EACH REPORT REQUESTED IS SPECIFIED BY AN           *
 //*      = COPY PARAMETER INSERTED IMMEDIATELY              *
 //*      AFTER THE SYSIN DD * STATEMENT:                    *
 //*           APPLICATION MONITOR .. PMARPTnn               *
 //*           INTERVAL MONITOR ..... PMIRPTnn               *
 //*                                                         *
 //*  2.  SELECTION CRITERIA -  //SYS010 DD                  *
 //*      SELECTION CRITERIA ARE SPECIFIED BY THE SELECTION  *
 //*      CRITERIA PARAMETER CARDS INSERTED IMMEDIATELY      *
 //*      AFTER THE SYS010 DD * STATEMENT.  TO SPECIFY NO    *
 //*      SELECTION CRITERIA, INCLUDE THE FOLLOWING:         *
 //*            //SYS010  DD  DUMMY                          *
 //*                                                         *
 //*  3.  ARCHIVE INPUT SET DEFINITION - //SYS011 DD DSN=    *
 //*      DEFINE THE ARCHIVE FILES BY CODING THE FOLLOWING:  *
 //*         //SYS011 DD  DSN=idms.archive,DISP=OLD         *
 //*         //       DD  DSN=idms.archiven,DISP=OLD         *
 //*         //           UNIT=AFF=SYS011                    *
 //*                                                         *
 //*  4.  MACHINE-READABLE OUTPUT SET (PMARPT90)             *
 //*        DEFINITION -   //SYS020  DD DSN=                 *
 //*      TO PRODUCE MACHINE-READABLE OUTPUT, THE OUTPUT     *
 //*      FILE MUST BE DEFINED AS FOLLOWS:                   *
 //*            //SYS020 DD DSN=rpt90.output.dataset         *
 //*                                                         *
 //***********************************************************
 //CULPRIT  EXEC PGM=CULPRIT,REGION=1024K
 //STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
 //         DD   DSN=idms.custom.loadlib,DISP=SHR
 //         DD   DSN=idms.cagjload,DISP=SHR
 //SORTLIB  DD   DSN=sys1.sortlib,DISP=SHR
 //SYSOUT   DD   SYSOUT=A
 //SYSPRINT DD   SYSOUT=A
 //SORTPRNT DD   SYSOUT=A
 //SORTMSG  DD   SYSOUT=A
 //SYS004   DD   SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
 //SYS005   DD   DSN=&.&UPRMWORK.,DISP=(NEW,DELETE),
 //             UNIT=disk,SPACE=(CYL,(5,2)),
 //             DCB=(RECFM=FB,LRECL=320,BLKSIZE=1600)
 //SYS006   DD   DSN=&.&UEXTWORK.,DISP=(NEW,DELETE),
 //             UNIT=disk,SPACE=(CYL,(5,2)),
 //             DCB=(RECFM=VB,LRECL=2044,BLKSIZE=4628)
 //SYS007   DD   DSN=&.&SRTPWORK.,DISP=(NEW,DELETE),
 //             UNIT=disk,SPACE=(TRK,(1,1)),
 //             DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
 //SYS008   DD   DSN=&.&NSRTWORK.,DISP=(NEW,DELETE),
 //             UNIT=disk,SPACE=(CYL,(5,2)),
 //             DCB=(RECFM=VB,LRECL=512,BLKSIZE=4628)
 //SORTWK01 DD   DSN=&.&WRKAWORK.,
 //             UNIT=disk,SPACE=(CYL,(5,2))
 //SORTWK02 DD   DSN=&.&WRKBWORK.,
 //             UNIT=disk,SPACE=(CYL,(5,2))
 //SORTWK03 DD   DSN=&.&WRKCWORK.,
 //             UNIT=disk,SPACE=(CYL,(5,2))
 //SORTWK04 DD   DSN=&.&WRKDWORK.,
 //             UNIT=disk,SPACE=(CYL,(5,2))
 //CULSRT1I DD   DSN=yourHLQ.CAGJSRC(SORT1),DISP=SHR
 //SYSIN4   DD   DUMMY,DCB=BLKSIZE=80
 //VSAMCTRL DD   DUMMY
 //CULLIB   DD   DSN=yourHLQ.CAGJSRC,DISP=SHR
 //sysctl   DD   DSN=idms.sysctl,DISP=SHR
 //dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR
 //SYS010   DD   *
 REPORT FROM 09:00 ON 5/15/10
 /*
 //SYS011   DD   DSN=idms.archive,DISP=OLD,UNIT=tape
 //*SYS020   DD   DSN=rpt90.output.dataset,DISP=(NEW,CATLG,DELETE),
 //*             UNIT=disk,SPACE=(CYL,(1,1)),
 //*             DCB=(RECFM=VB,LRECL=280,BLKSIZE=23244)
 //SYS020   DD   DUMMY
 //SYSIDMS  DD   *
 DMCL=dmcl-name
 Other SYSIDMS parameters, as appropriate
 /*
 //SYSIN    DD   *
  DATABASE DICTNAME=sysdirl
  PARAM=NOLIST
 =COPY 'PMIRPT00'
 =COPY 'PMNAME'
 =COPY 'PMIRPT01'
 .
 .
 .
 =COPY 'PMIRPT99'
 /*
 //*

idms.dba.loadlib	Name of the load library containing the DMCL and database name table load modules
idms.custom.loadlib	Name of the load library containing customized CA IDMS executable modules
idms.cagjload	Name of the load library containing CA IDMS executable modules that do not require customization
yourHLQ.CAGJSRC	CA IDMS source library
sysctl	The ddname of the SYSCTL file
idms.sysctl	Dataset name of the SYSCTL file
dcmsg	Ddname of the dictionary message area (DDLDCMSG)
idms.sysmsg.ddldcmsg	Filename of the dictionary message area (DDLDCMSG)
sys1.sortlib	System sort library
idms.archive idms.archiven	Names of archive logs (n is nth log)
rpt90.output.dataset	Machine-readable output
dmcl-name	Name of the DMCL Note: For more information about other SYSIDMS parameters, see the CA IDMS Database Administration Guide.
dictionary-name	Dictionary name (probably SYSDIRL)

z/OS blocksize considerations

The input JCL for the statistics input file (SYS011) must specify a DCB=BLKSIZE=nnnnn parameter. Nnnnn must be at least 280 bytes larger than the actual block size of the file. If the DCB specified is not large enough, CA Culprit may receive an OC4 abend.

For example, if the input file has a blocksize of 11476, an appropriate SYS011 DD statement is:

//SYS011   DD   DSN=PM.STATS,DISP=OLD,DCB=BLKSIZE=12000

Executing in local mode

CULPRIT for running Performance Monitor reports (z/OS)

//CULPRIT  EXEC PGM=CULPRIT,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.custom.loadlib,DISP=SHR
//         DD   DSN=idms.cagjload,DISP=SHR
//SORTLIB  DD   DSN=sys1.sortlib,DISP=SHR
//SYSOUT   DD   SYSOUT=A
//SYSPRINT DD   SYSOUT=A
//SORTPRNT DD   SYSOUT=A
//SORTMSG  DD   SYSOUT=A
//SYS004   DD   SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYS005   DD   DSN=&.&UPRMWORK.,DISP=(NEW,DELETE),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=FB,LRECL=320,BLKSIZE=1600)
//SYS006   DD   DSN=&.&UEXTWORK.,DISP=(NEW,DELETE),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=VB,LRECL=2044,BLKSIZE=4628)
//SYS007   DD   DSN=&.&SRTPWORK.,DISP=(NEW,DELETE),
//             UNIT=disk,SPACE=(TRK,(1,1)),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYS008   DD   DSN=&.&NSRTWORK.,DISP=(NEW,DELETE),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=VB,LRECL=512,BLKSIZE=4628)
//SORTWK01 DD   DSN=&.&WRKAWORK.,
//             UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK02 DD   DSN=&.&WRKBWORK.,
//             UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD   DSN=&.&WRKCWORK.,
//             UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK04 DD   DSN=&.&WRKDWORK.,
//             UNIT=disk,SPACE=(CYL,(5,2))
//CULSRT1I DD   DSN=yourHLQ.CAGJSRC(SORT1),DISP=SHR
//SYSIN4   DD   DUMMY,DCB=BLKSIZE=80
//VSAMCTRL DD   DUMMY
//CULLIB   DD   DSN=yourHLQ.CAGJSRC,DISP=SHR
//dirldb   DD   DSN=idms.sysdirl.ddldml,DISP=SHR
//dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//sysjrnl  DD   DUMMY
//SYS010   DD   *
REPORT FROM 09:00 ON 5/15/10
/*
//SYS011   DD   DSN=idms.archive1,DISP=OLD,UNIT=tape
//*SYS020   DD   DSN=rpt90.output.dataset,DISP=(NEW,CATLG,DELETE),
//*             UNIT=disk,SPACE=(CYL,(1,1)),
//*             DCB=(RECFM=VB,LRECL=280,BLKSIZE=23244)
//SYS020   DD   DUMMY
//SYSIDMS  DD   *
DMCL=dmcl-name
Other SYSIDMS parameters, as appropriate
/*
//SYSIN    DD   *
 DATABASE DICTNAME=sysdirl
 PARAM=NOLIST
=COPY 'PMIRPT00'
=COPY 'PMNAME'
=COPY 'PMIRPT01'
 .
 .
 .
=COPY 'PMIRPT99'
/*
//*

Note: For more information about the descriptions of variables, see the preceding JCL for running under the central version.