Limited supportBMC provides limited support for this version of the product. As a result, BMC no longer accepts comments in this space. If you encounter problems with the product version or the space, contact BMC Support.BMC recommends upgrading to the latest version of the product. To see documentation for that version, see BMC AMI Ops Monitor for Db2 13.1 
.
.
Sample DPRSMFA JCL
The following BBSAMP members contain sample job control statements:
- DPRSMFA (IBM LOAD method)
- DPRSMFNA (BMC AMI Load method)
The following figure shows the sample statements from the BBSAMP member DPRSMFA for the IBM LOAD method. For the BMC AMI Load, see DPRSMFNA.
//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) |
//* |______________| |______________| |______________| |______________|
//*
//*------------------------------------------------------------*
//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
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,
// 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
//*
//*------------------------------------------------------------*
//* 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
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//*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
//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
//*
//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=(ACCT,DDFACCT,PKGACCT,BUFACCT)
TYPE=(STAT,DDFSTAT,BUFSTAT)
TYPE2=(AUDSUM,AUDFAIL,AUDGRV,AUDDDL,AUDDML,AUDDMB,AUDCHG,AUDUTL)
TYPE3=(ASPCSTOR,SYSTSTOR,AUDCMD,AUDATH,AUDTRC,AUDFTB,AUDIFE)
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=1024MB,FILSZ=E04444440,DSA=MAX
//*
//STEP2.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
//*
/*
//
//*
//*------------------------------------------------------------*
//* 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) |
//* |______________| |______________| |______________| |______________|
//*
//*------------------------------------------------------------*
//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
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,
// 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
//*
//*------------------------------------------------------------*
//* 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
//*
//DPDAUDIX DD DSN=&RPTHI..DPDAUDIX,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//*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
//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
//*
//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=(ACCT,DDFACCT,PKGACCT,BUFACCT)
TYPE=(STAT,DDFSTAT,BUFSTAT)
TYPE2=(AUDSUM,AUDFAIL,AUDGRV,AUDDDL,AUDDML,AUDDMB,AUDCHG,AUDUTL)
TYPE3=(ASPCSTOR,SYSTSTOR,AUDCMD,AUDATH,AUDTRC,AUDFTB,AUDIFE)
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=1024MB,FILSZ=E04444440,DSA=MAX
//*
//STEP2.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
//*
/*
//
//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) |
//* |______________| |______________| |______________| |______________|
//*
//*------------------------------------------------------------*
//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
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
// SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//*------------------------------------------------------------*
//* 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
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//*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
//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
//*
//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=(ACCT,DDFACCT,PKGACCT,BUFACCT)
TYPE=(STAT,DDFSTAT,BUFSTAT)
TYPE2=(AUDSUM,AUDFAIL,AUDGRV,AUDDDL,AUDDML,AUDDMB,AUDCHG,AUDUTL)
TYPE3=(ASPCSTOR,SYSTSTOR,AUDCMD,AUDATH,AUDTRC,AUDFTB,AUDIFE)
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=1024MB,FILSZ=E04444440,DSA=MAX
//*
//STEP2.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
//*
/*
//
//*
//*------------------------------------------------------------*
//* 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) |
//* |______________| |______________| |______________| |______________|
//*
//*------------------------------------------------------------*
//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
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(MOD,DELETE,DELETE),UNIT=&RPTUNIT,
// SPACE=(TRK,(1,1),RLSE),DCB=BLKSIZE=27998
//*
//*------------------------------------------------------------*
//* 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
//*
//DPDAUDIT DD DSN=&RPTHI..DPDAUDIT,
// DISP=(&DSSTAT,CATLG,DELETE),UNIT=&UNIT,
// DCB=BLKSIZE=27998,SPACE=(CYL,(200,100),RLSE)
//*
//*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
//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
//*
//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=(ACCT,DDFACCT,PKGACCT,BUFACCT)
TYPE=(STAT,DDFSTAT,BUFSTAT)
TYPE2=(AUDSUM,AUDFAIL,AUDGRV,AUDDDL,AUDDML,AUDDMB,AUDCHG,AUDUTL)
TYPE3=(ASPCSTOR,SYSTSTOR,AUDCMD,AUDATH,AUDTRC,AUDFTB,AUDIFE)
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=1024MB,FILSZ=E04444440,DSA=MAX
//*
//STEP2.DFSPARM DD *
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,
DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=1024MB,FILSZ=E04444440,DSA=MAX
//*
/*
//
Related topics
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*