Sample DPRSMFA JCL

The following BBSAMP members contain sample job control statements:

DPRSMFA (IBM LOAD method)
DPRSMFNA (BMC AMI Load method)

Related topics

The following figure shows the sample statements from the BBSAMP member DPRSMFA for the IBM LOAD method. For the BMC AMI Load, see DPRSMFNA.

(BMC.AMIOPS.SPE2304)

//DPRSMFA JOB
//*
//*------------------------------------------------------------*
//*       JOB TO EXTRACT DB2-RELATED RECORDS FROM              *
//*       SMF OR MVDB2-DATA COLLECTOR ARCHIVE FILES AND LOAD   *
//*       THEM INTO MVDB2 PERFORMANCE REPORTER TABLES          *
//*       FOR REPORTING.                                       *
//* NOTE: SEE OVER-RIDE STEP: STEP1.DFSPARM DD *              *
//*       THE ENTRY: MODS E15=(DPRSE15,0,,N)                   *
//*       IS VALID FOR BOTH DFSORT AND SYNCSORT AND IT WILL    *
//*       LOAD THE DPRSE15 LOAD MODULE FROM EITHER STEPLIB,    *
//*       LINKLST, OR THE JOBLIB DD.                           *
//* NOTE: FOR INPUT FROM MVDB2-DATA COLLECTOR ARCHIVE FILES,   *
//*       SPECIFY THE DSNAME WITH THE SMF PARAMETER.           *
//* NOTE: FOR ACCT, DDFACCT, PKGACCT, BUFACCT SEPARATE STEP1   *
//*       OUTPUT FILES ARE SUPPORTED.                          *
//*------------------------------------------------------------*
//* FLOW OF DPRSMFA JOB
//*
//*                         _________________
//*                        |                 |
//*                        |     DPRSMFA     |
//*                        |-----------------|
//*                        | STEP1 (DPRSMF) |
//*                        |                 |
//*                        | STEP2 (DPDSTAT)|
//*                        |                 |
//*                        | STEP3 (SUBMIT) |
//*                        |_________________|
//*                                 |
//*                                 |
//*                                 |
//*                                 |
//*         ________________________V_________________________
//*        |                |                |                |
//*        |                |                |                |
//*        |                |                |                |
//*        |                |                |                |
//* ______V_______   ______V_______   ______V_______   ______V_______
//* |              | |              | |              | |              |
//* |   DPRSMFST   | |   DPRSMFAC   | |   DPRSMFAU   | |   DPRSMFSG   |
//* |              | |              | |              | |              |
//* | (STATISTIC) | | (ACCOUNTING) | |    (AUDIT)   | | (STORAGE)   |
//* |--------------| |--------------| |--------------| |--------------|
//* |STEP4(DPSUMLD)| |STEP4(DPSUMLD)| |STEP4(DPSUMLD)| |STEP4(DPSUMLD)|
//* |              | |              | |              | |              |
//* |STEP5(LOAD)   | |STEP5(LOAD)   | |STEP5(LOAD)   | |STEP5(LOAD)   |
//* |              | |              | |              | |              |
//* |STEP6(REPAIR) | |STEP6(REPAIR) | |STEP6(REPAIR) | |STEP6(REPAIR) |
//* |              | |              | |              | |              |
//* |STEP7(DELETE) | |STEP7(DELETE) | |STEP7(DELETE) | |STEP7(DELETE) |
//* |______________| |______________| |______________| |______________|
//*
//*------------------------------------------------------------*
//*------------ IMPORTANT NOTE ----- IMPORTANT NOTE ------------------*
//*                                                                   *
//* THIS JOB USES DFSPARM PARAMETERS FOR DFSORT. IT IS RECOMMENDED TO *
//* UPDATE THE PARAMETERS ACCORDING TO THE SITE REQUIREMENTS BEFORE   *
//* USING THIS JCL.                                                   *
//*                                                                   *
//*------------ IMPORTANT NOTE ----- IMPORTANT NOTE ------------------*
//***** CHANGE LOG **********(=J)************** CHANGE LOG ************
//*
//* MM/DD/YY AAA DESCRIPTION
//* -------- --- -----------
//* 04/29/20 HXC CREATION                                       BPD4939
//* 01/20/21 PSH ADD DPDAUDIX DD CARD IN STEP1 TO FACILITATE    BPD4991
//*              EXTRACTION PROGRAM REDESIGN                    BPD4991
//* 02/11/22 HXC CORRECTED DYNSPC AND DSA PARAMETERS            HXC0225
//* 08/30/22 HXC ZENG-264018 ADDED REMOTE LOCATION STATISTICS   BPD5196
//*              TABLE (IFCID 365)                              BPD5196
//* 12/20/22 PSH ZENG-278509 - STATISTICS TABLE SPLIT           BPD5263
//*
//***** CHANGE LOG **************************** CHANGE LOG ************
//DPPSMF PROC HIDP='HILVL.RUN.LIB',              <-- UPDATE
//             SMF='SYS3.SMF.DAILY(0)',           <-- SMF DATASET
//             UNIT=SYSDA,                        <-- VERIFY
//*                      THE FOLLOWING IS FOR REPORTS FROM SMF
//* RPTHI SETS THE HIGH LEVEL QUALIFIER FOR THE DATASETS. THIS
//* PARAMETER SHOULD BE SET TO SAME VALUE IN DPPSMFA PROC
//             RPTHI=HILVL,                       <-- UPDATE
//             RPTUNIT=SYSDA,                     <-- VERIFY
//             DSSTAT=NEW                         <-- OR OLD STAT
//*------------------------------------------------------------*
//*            DELETE THE INTERMEDIATE FILES                   *
//*------------------------------------------------------------*
//*
//STEP0   EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//*
//DPDACCT   DD DSN=&RPTHI..DPDACCT, INTERIM ACCT FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTOR   DD DSN=&RPTHI..DPDSTOR, INTERIM STOR FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDACPKG DD DSN=&RPTHI..DPDACPKG, INTERIM PKGACCT FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDACDDF DD DSN=&RPTHI..DPDACDDF, INTERIM DDFACCT FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDACBUF DD DSN=&RPTHI..DPDACBUF, INTERIM BUFACCT FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDACACC DD DSN=&RPTHI..DPDACACC,
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTAT   DD DSN=&RPTHI..DPDSTAT, INTERIM STATS FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTATA DD DSN=&RPTHI..DPDSTATA, INTERIM STATA FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTATB DD DSN=&RPTHI..DPDSTATB, INTERIM STATB FILE FOR LOAD/RPTS
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,                           BPD4991
//             DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,         BPD4991
//             SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998        BPD4991
//*
//*------------------------------------------------------------*
//*            EXTRACT 100 AND 101 RECORDS FROM SMF,           *
//*            SORT, AND REFORMAT TO DPDACXXX AND DPDSTAT      *
//*            DATASETS. OPTIONALLY EXTRACT 102 AUDIT          *
//*            RECORDS, SORT AND REFORMAT TO DPDAUDIT          *
//*------------------------------------------------------------*
//*
//STEP1   EXEC PGM=DPRDSMF,REGION=4096K
//STEPLIB   DD DISP=SHR,DSN=&HIDP..BBLINK
//DPRLOG    DD SYSOUT=*              SMF EXTRACT LOG
//SYSOUT    DD SYSOUT=*              SORT MESSAGES
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//*
//DPDACCT   DD DSN=&RPTHI..DPDACCT, INTERIM ACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTOR   DD DSN=&RPTHI..DPDSTOR, INTERIM STOR FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDACPKG DD DSN=&RPTHI..DPDACPKG, INTERIM PKGACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDACDDF DD DSN=&RPTHI..DPDACDDF, INTERIM DDFACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDACBUF DD DSN=&RPTHI..DPDACBUF, INTERIM BUFACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDACACC DD DSN=&RPTHI..DPDACACC,
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//DPDSTAT   DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(20,10),RLSE),
//             DCB=BLKSIZE=27998
//*
//DPDSTATA DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(20,10),RLSE),
//             DCB=BLKSIZE=27998
//*
//DPDSTATB DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(20,10),RLSE),
//             DCB=BLKSIZE=27998
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
//             DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,                           BPD4991
//             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,         BPD4991
//             DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)    BPD4991
//*
//*DPDDGBP   DD DSN=&RPTHI..DPDDGBP, INTERIM DYNAMIC AND GRP BPOOL FILE
//*             DISP=(&DSSTAT,CATLG,DELETE),UNIT=&RPTUNIT,
//*             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//*
//SORTIN    DD DISP=SHR,DSN=&SMF
//*
//DPRCNTL   DD DUMMY           CONTROL STATEMENTS
//*
//DPRSTAT IF RC < 8 THEN
//*------------------------------------------------------------*
//*            CHANGE STATS RECORDS FROM DB2 ACCUMULATED VALUES*
//*            TO INTERVAL (DELTA) VALUES.                     *
//**************************************************************
//*****WARNING - THIS STEP MUST BE RUN FOR STATISTICS **********
//*****WARNING - PROCESSING OR ELSE VERY LARGE NUMBERS**********
//*****WARNING - IN STATISTICS REPORTS WILL OCCUR     **********
//**************************************************************
//*------------------------------------------------------------*
//*
//STEP2   EXEC PGM=DPRSTAT,REGION=4096K,PARM='STAT '
//STEPLIB   DD DISP=SHR,DSN=&HIDP..BBLINK
//DPRLOG    DD SYSOUT=*
//SYSOUT    DD SYSOUT=*              SORT MESSAGES
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//SORTIN    DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDSTAT
//          DD DISP=OLD,DSN=&HIDP..SPIN READ OLD SPIN DATA
//DPDSPIN   DD DISP=OLD,DSN=&HIDP..SPIN WRITE NEW SPIN DATA
//DPDSTAT   DD DSN=&RPTHI..DPDSTAT, INTERIM STATS FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),
//             UNIT=&RPTUNIT,
//             SPACE=(CYL,(5,1),RLSE),
//             DCB=BLKSIZE=27998
//*
//*
//STEP2A EXEC PGM=DPRSTAT,REGION=4096K,PARM='STATA'
//STEPLIB   DD DISP=SHR,DSN=&HIDP..BBLINK
//DPRLOG    DD SYSOUT=*
//SYSOUT    DD SYSOUT=*              SORT MESSAGES
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//SORTIN    DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDSTATA
//          DD DISP=OLD,DSN=&HIDP..SPIN READ OLD SPIN DATA
//DPDSPIN   DD DISP=OLD,DSN=&HIDP..SPIN WRITE NEW SPIN DATA
//DPDSTAT   DD DSN=&RPTHI..DPDSTATA, INTERIM STATS FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),
//             UNIT=&RPTUNIT,
//             SPACE=(CYL,(5,1),RLSE),
//             DCB=BLKSIZE=27998
//*
//*
//STEP2B EXEC PGM=DPRSTAT,REGION=4096K,PARM='STATB'
//STEPLIB   DD DISP=SHR,DSN=&HIDP..BBLINK
//DPRLOG    DD SYSOUT=*
//SYSOUT    DD SYSOUT=*              SORT MESSAGES
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//SYSUDUMP DD SYSOUT=*
//SORTIN    DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDSTATB
//          DD DISP=OLD,DSN=&HIDP..SPIN READ OLD SPIN DATA
//DPDSPIN   DD DISP=OLD,DSN=&HIDP..SPIN WRITE NEW SPIN DATA
//DPDSTAT   DD DSN=&RPTHI..DPDSTATB, INTERIM STATS FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,CATLG,DELETE),
//             UNIT=&RPTUNIT,
//             SPACE=(CYL,(5,1),RLSE),
//             DCB=BLKSIZE=27998
//*
//STEP3    IF RC < 8 THEN
//*
//*------------------------------------------------------------*
//* THE BELOW STEP SUBMITS THE JOB WITH INTERNAL READER
//*------------------------------------------------------------*
//STEP3    EXEC PGM=IEBGENER
//*
//* SYSUT1 REFERENCES A PDS MEMBER CONTAINING JCL STATEMENTS
//* SYSUT2 REFERENCES SYSOUT THAT REFERENCES THE INTERNAL READER
//*
//SYSUT1   DD DSN=&HIDP..BBSAMP(DPRSMFB),         <-- UPDATE
//         DISP=SHR
//SYSUT2   DD SYSOUT=(,INTRDR)
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//STEP3    ENDIF
//*
//DPRSTAT ENDIF
//*
//         PEND
//*
//JS010   EXEC DPPSMF
//STEP1.DPRCNTL DD *
   TYPE=(STAT,STATA,STATB,DDFSTAT,BUFSTAT)
   TYPE1=(ACCT,DDFACCT,PKGACCT,BUFACCT)
   TYPE2=(AUDSUM,AUDFAIL,AUDGRV,AUDDDL,AUDDML,AUDDMB,AUDCHG,AUDUTL)
   TYPE3=(ASPCSTOR,SYSTSTOR,AUDCMD,AUDATH,AUDTRC,AUDFTB,AUDIFE,AUDRLS)
   TYPE4=(ACCA,ACCS,SYMB)
//*
//* NOTE: SEE OVER-RIDE STEP: STEP1.DFSPARM DD *              *
//*       THE ENTRY: MODS E15=(DPRSE15,0,,N)                   *
//*       IS VALID FOR BOTH DFSORT AND SYNCSORT AND IT WILL    *
//*       LOAD THE DPRSE15 LOAD MODULE FROM EITHER STEPLIB,    *
//*       LINKLST, OR THE JOBLIB DD.                           *
//*
//STEP1.DFSPARM DD *
MODS E15=(DPRSE15,0,,N)
OPTION VLSHRT
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000
//*
//STEP2.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000
//*
/*
//

Sample DPRSMFA JCL

On this page