Sample DPRSMF JCL

//DPRSMF   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.                          *
//*------------------------------------------------------------*
//DPPSMF  PROC HIDP='HILVL.RUN.LIB',              <-- UPDATE
//             HIDB2=DSN1210,                      <-- VERIFY
//             SMF='SYS3.SMF.DAILY(0)',           <-- SMF DATASET
//             UNIT=SYSDA,                        <-- VERIFY
//*                      THE FOLLOWING IS FOR DB2 LOAD UTILITY
//             SYSTEM=DDDD,                       <-- UPDATE
//             UID=ANYUTID,                       <-- UPDATE
//*                      THE FOLLOWING IS FOR REPORTS FROM SMF
//             RPTHI=HILVL,                       <-- UPDATE
//             RPTUNIT=SYSDA,                     <-- VERIFY
//             DSSTAT=NEW,                        <-- OR OLD STAT
//*                      THE FOLLOWING CAN DISABLE SUM / LOAD
//             SUMPGM=DPSUMLD,                    <-- OR IEFBR14
//             LOADPGM=DSNUTILB                   <-- OR IEFBR14
//*------------------------------------------------------------*
//*            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,PASS),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//DPDSTOR   DD DSN=&RPTHI..DPDSTOR,  INTERIM STOR FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//DPDACPKG  DD DSN=&RPTHI..DPDACPKG, INTERIM PKGACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//DPDACDDF  DD DSN=&RPTHI..DPDACDDF, INTERIM DDFACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//DPDACBUF  DD DSN=&RPTHI..DPDACBUF, INTERIM BUFACCT FILE FOR LOAD/RPTS
//             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,
//             SPACE=(CYL,(400,100),RLSE),DCB=BLKSIZE=27998
//DPDACACC  DD DSN=&RPTHI..DPDACACC,
//             DISP=(&DSSTAT,PASS),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 DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),
//             DCB=BLKSIZE=27998
//DPDAUDIT  DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),
//             DCB=BLKSIZE=27998
//SORTIN    DD DISP=SHR,DSN=&SMF
//SORTWK01  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK02  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK03  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK04  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK05  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK06  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//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,PASS),
//             UNIT=&RPTUNIT,
//             SPACE=(CYL,(5,1),RLSE),
//             DCB=BLKSIZE=27998
//SORTWK01  DD UNIT=&UNIT,SPACE=(CYL,(2,2))
//SORTWK02  DD UNIT=&UNIT,SPACE=(CYL,(2,2))
//SORTWK03  DD UNIT=&UNIT,SPACE=(CYL,(2,2))
//*
//DPSUMLD  IF RC < 8 THEN
//*
//REPAIR  EXEC PGM=&LOADPGM,REGION=4096K,      DSNUTILB OR IEFBR14
//             PARM='&SYSTEM,&UID'
//STEPLIB   DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
//          DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//*SYSUDUMP  DD SYSOUT=*
//SYSUT1    DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//*------------------------------------------------------------*
//*            BUILD DB2 LOAD CONTROL STATEMENTS,              *
//*            SUMMARIZE ACCOUNTING AND DDF ACCOUNTING RECORDS,*
//*            PURGE OLD RECORDS                               *
//*------------------------------------------------------------*
//*
//STEP3   EXEC PGM=&SUMPGM,REGION=4096K          DPSUMLD OR IEFBR14
//STEPLIB   DD DISP=SHR,DSN=&HIDB2..SDSNLOAD
//          DD DISP=SHR,DSN=&HIDB2..SDSNEXIT
//          DD DISP=SHR,DSN=&HIDP..BBLINK
//DPSYSOUT  DD SYSOUT=*            PROGRAM MESSAGES
//SYSOUT    DD SYSOUT=*            SORT MESSAGE
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//SYSUDUMP  DD SYSOUT=*
//SORTWK01  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK02  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK03  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK04  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK05  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK06  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//DPSYSIN   DD DUMMY            CONTROL STATEMENTS
//DPLOAD    DD UNIT=&UNIT,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*                  USER-DEFINED DD STATEMENTS
//ACCTDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACCT
//ACPKGDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACPKG
//ACDDFDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACDDF
//ACBUFDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACBUF
//STATDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTAT
//ACCELDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACACC
//SUMMACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//SUMMACCA  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//SUMMACCS  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//SUMMSYMB  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//DDFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//PKGSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//BUFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//SUMMSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//DDFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//BUFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=2048,BLKSIZE=27998,RECFM=VB)
//*
//DB2LOAD  IF  RC < 8 THEN
//*
//*------------------------------------------------------------*
//*            LOAD INTO DB2 TABLES                            *
//*------------------------------------------------------------*
//*
//STEP4   EXEC PGM=&LOADPGM,REGION=4096K,      DSNUTILB OR IEFBR14
//             PARM='&SYSTEM,&UID'
//STEPLIB   DD DSN=&HIDB2..SDSNLOAD,DISP=SHR
//          DD DSN=&HIDB2..SDSNEXIT,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SORTMSG   DD SYSOUT=*              SORT MESSAGES
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SORTOUT   DD UNIT=&UNIT,SPACE=(CYL,(10,2))
//SORTWK01  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK02  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK03  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK04  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK05  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SORTWK06  DD UNIT=&UNIT,SPACE=(CYL,(100,50))
//SYSUT1    DD UNIT=&UNIT,SPACE=(CYL,(5,2))
//SYSIN     DD DISP=(OLD,DELETE),DSN=*.STEP3.DPLOAD
//*
//ACCTDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACCT
//ACCELDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACACC
//ACPKGDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACPKG
//ACDDFDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACDDF
//ACBUFDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACBUF
//STATDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTAT
//STORDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTOR
//SUMMACCT  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMACCT
//DDFSACCT  DD DISP=(OLD,DELETE),DSN=*.STEP3.DDFSACCT
//PKGSACCT  DD DISP=(OLD,DELETE),DSN=*.STEP3.PKGSACCT
//BUFSACCT  DD DISP=(OLD,DELETE),DSN=*.STEP3.BUFSACCT
//SUMMSTAT  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMSTAT
//DDFSSTAT  DD DISP=(OLD,DELETE),DSN=*.STEP3.DDFSSTAT
//BUFSSTAT  DD DISP=(OLD,DELETE),DSN=*.STEP3.BUFSSTAT
//SUMMACCA  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMACCA
//SUMMACCS  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMACCS           2086949
//SUMMSYMB  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMSYMB
//AUDITDD   DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDAUDIT
//*
//DB2LOAD  ENDIF
//DPSUMLD  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)
   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
/*
//REPAIR.SYSIN DD *
  REPAIR OBJECT LOG NO
         SET TABLESPACE DMRPRDB1.DMRPRAAA NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAAA NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRADT NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRADT NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRATR NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRATR NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUB NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUB NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUC NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUC NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUF NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUF NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUG NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUG NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUM NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUM NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUN NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUN NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUU NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRAUU NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRSDT NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRSDT NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRSYM NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRSYM NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRSYS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRSYS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRSY2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRSY2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTA2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTA2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTAD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTAD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTAS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTAS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTB2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTB2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTBD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTBD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTBS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTBS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTD2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTD2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTDD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTDD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTDS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTDS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTF2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTF2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTFS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTFS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTI2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTI2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTID NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTID NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTIS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTIS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTP2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTP2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTPD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTPD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTPS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTPS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTSF NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTSF NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTSS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTSS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTT2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTT2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRTTS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRTTS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXA2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXA2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXAD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXAD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXAS NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXAS NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXS2 NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXS2 NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXSD NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXSD NORCVRPEND
         SET TABLESPACE DMRPRDB1.DMRPRXSM NOCOPYPEND
         SET TABLESPACE DMRPRDB1.DMRPRXSM NORCVRPEND
         SET INDEX      DMRPRDB1.ABDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.ABDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ABDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ABDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ABS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.ABS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.ABS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.ABS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ABSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.ABSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ABSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ABSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.ACDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ACDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.ACS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.ACS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.ACSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ACSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ACSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.ADDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ADDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.ADS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.ADS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.ADSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.ADSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.ADSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.APDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.APDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.APDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.APDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.APS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.APS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.APS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.APS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.APSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.APSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.APSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.APSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUAAINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUAAINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUAARIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUAARIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUCHINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUCHINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUCHRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUCHRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUCMINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUCMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUCMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUCMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDBINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDBINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDBRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDBRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDLINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDLINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDLRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDLRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDMINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUDMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUDMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUFLINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUFLINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUFLRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUFLRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUGRINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUGRINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUGRRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUGRRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUTRINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUTRINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUTRRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUTRRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUUTINDX NORBDPEND
         SET INDEX      DMRPRDB1.AUUTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AUUTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AUUTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.AXDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AXDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.AXS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.AXS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.AXSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.AXSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.AXSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.BFDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.BFDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.BFDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.BFDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SADTINDX NORBDPEND
         SET INDEX      DMRPRDB1.SADTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SADTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SADTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SBS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.SBS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.SBS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.SBS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SBSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.SBSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SBSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SBSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SDS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.SDS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.SDS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.SDS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SDSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.SDSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SDSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SDSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SSDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.SSDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SSDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SSDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.STATINDX NORBDPEND
         SET INDEX      DMRPRDB1.STATINDX NORCVRPEND
         SET INDEX      DMRPRDB1.STATRIDX NORBDPEND
         SET INDEX      DMRPRDB1.STATRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.STDFINDX NORBDPEND
         SET INDEX      DMRPRDB1.STDFINDX NORCVRPEND
         SET INDEX      DMRPRDB1.STDFRIDX NORBDPEND
         SET INDEX      DMRPRDB1.STDFRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.STS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.STS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.STS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.STS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.STSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.STSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.STSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.STSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXDTINDX NORBDPEND
         SET INDEX      DMRPRDB1.SXDTINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SXDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXS2INDX NORBDPEND
         SET INDEX      DMRPRDB1.SXS2INDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.SXS2RIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXSMINDX NORBDPEND
         SET INDEX      DMRPRDB1.SXSMINDX NORCVRPEND
         SET INDEX      DMRPRDB1.SXSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SXSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SYDTRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SYDTRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SYSMRIDX NORBDPEND
         SET INDEX      DMRPRDB1.SYSMRIDX NORCVRPEND
         SET INDEX      DMRPRDB1.SYS2RIDX NORBDPEND
         SET INDEX      DMRPRDB1.SYS2RIDX NORCVRPEND
//STEP3.DPSYSIN DD *
   GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD  <-- UPDATE
   LOAD   TYPE=STAT,TABLE=DMRPR.DMRSTAT,FROMDD=STATDD
   LOAD   TYPE=DDFSTAT,TABLE=DMRPR.DMRSTDF,FROMDD=STATDD
   LOAD   TYPE=BUFSTAT,TABLE=DMRPR.DMRSBFDT,FROMDD=STATDD
   PURGE  TYPE=STAT,TABLE=DMRPR.DMRSTAT,RETPD=10D
   PURGE  TYPE=DDFSTAT,TABLE=DMRPR.DMRSTDF,RETPD=10D
   PURGE  TYPE=BUFSTAT,TABLE=DMRPR.DMRSBFDT,RETPD=10D
*-------------------------------------------------------------------*
*
*         --- LOAD SUMMARY STATISTICS TABLE (60-MINUTE INTERVAL) ---
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMSTAT,FROMDD=STATDD,
       TABLE=DMRPR.DMRSTSUM,
       TODD=SUMMSTAT,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION)
*
   LOAD   TYPE=SUMSTAT,TABLE=DMRPR.DMRSTSUM,FROMDD=SUMMSTAT
   PURGE  TYPE=SUMSTAT,TABLE=DMRPR.DMRSTSUM,RETPD=10D
*
*         --- LOAD SUMMARY DDF STATISTICS TABLE (60-MINUTE INTERVAL)-
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMDDFSTAT,FROMDD=STATDD,
       TABLE=DMRPR.DMRSDSUM,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       TODD=DDFSSTAT,
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION,DDFLOCATION)
*
   LOAD   TYPE=SUMDDFSTAT,TABLE=DMRPR.DMRSDSUM,FROMDD=DDFSSTAT
   PURGE  TYPE=SUMDDFSTAT,TABLE=DMRPR.DMRSDSUM,RETPD=10D
*
*         --- LOAD SUMMARY BUF STATISTICS TABLE (60-MINUTE INTERVAL)-
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMBUFSTAT,FROMDD=STATDD,
       TABLE=DMRPR.DMRSBSUM,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       TODD=BUFSSTAT,
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION,BPNAME)
*
   LOAD   TYPE=SUMBUFSTAT,TABLE=DMRPR.DMRSBSUM,FROMDD=BUFSSTAT
   PURGE  TYPE=SUMBUFSTAT,TABLE=DMRPR.DMRSBSUM,RETPD=10D
*-------------------------------------------------------------------*
*             THE FOLLOWING STATEMENTS ARE COMMENTED TO AVOID       *
*             THE OVERHEAD OF LOADING THE DETAIL ACCOUNTING TABLES. *
*             REMOVE THE COMMENTS IF THE DETAIL ACCOUNTING TABLES   *
*             ARE DESIRED.                                          *
*  LOAD   TYPE=ACCT,TABLE=DMRPR.DMRACDTL,FROMDD=ACCTDD              *
*  LOAD   TYPE=DDFACCT,TABLE=DMRPR.DMRADDTL,FROMDD=ACDDFDD          *
*  LOAD   TYPE=PKGACCT,TABLE=DMRPR.DMRAPDTL,FROMDD=ACPKGDD          *
*  LOAD   TYPE=BUFACCT,TABLE=DMRPR.DMRABDTL,FROMDD=ACBUFDD          *
*  PURGE  TYPE=ACCT,TABLE=DMRPR.DMRACDTL,RETPD=10D                  *
*  PURGE  TYPE=DDFACCT,TABLE=DMRPR.DMRADDTL,RETPD=10D               *
*  PURGE  TYPE=PKGACCT,TABLE=DMRPR.DMRAPDTL,RETPD=10D               *
*  PURGE  TYPE=BUFACCT,TABLE=DMRPR.DMRABDTL,RETPD=10D               *
*-------------------------------------------------------------------*
*
*         --- LOAD SUMMARY ACCOUNTING TABLE (30-MINUTE INTERVAL) ---
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMACCT,FROMDD=ACCTDD,
       TABLE=DMRPR.DMRACSUM,
       TODD=SUMMACCT,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=30M,
       SUMMKEY=(LOCATION,SUBSYSTEM,PLANNAME,AUTHID)
*-------------------------------------------------------------------*
*      OTHER POSSIBLE SUMMARY KEY VALUES ARE CONNECTION, CORRID     *
*      ORIGPRIMID, LUWIDNID.                                        *
*-------------------------------------------------------------------*
   LOAD   TYPE=SUMACCT,TABLE=DMRPR.DMRACSUM,FROMDD=SUMMACCT
   PURGE  TYPE=SUMACCT,TABLE=DMRPR.DMRACSUM,RETPD=10D
*
*         --- LOAD SUMMARY DDF ACCOUNTING TABLE (30-MINUTE INTERVAL)-
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMDDFACCT,FROMDD=ACDDFDD,
       TABLE=DMRPR.DMRADSUM,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=30M,
       TODD=DDFSACCT,
       SUMMKEY=(LOCATION,SUBSYSTEM,PLANNAME,AUTHID,DDFLOCATION)
*-------------------------------------------------------------------*
*      OTHER POSSIBLE SUMMARY KEY VALUES ARE CONNECTION, CORRID     *
*      ORIGPRIMID, LUWIDNID.                                        *
*-------------------------------------------------------------------*
   LOAD   TYPE=SUMDDFACCT,TABLE=DMRPR.DMRADSUM,FROMDD=DDFSACCT
   PURGE  TYPE=SUMDDFACCT,TABLE=DMRPR.DMRADSUM,RETPD=10D
*
*         --- LOAD SUMMARY PKG ACCOUNTING TABLE (30-MINUTE INTERVAL)-
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMPKGACCT,FROMDD=ACPKGDD,
       TABLE=DMRPR.DMRAPSUM,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=30M,
       TODD=PKGSACCT,
       SUMMKEY=(LOCATION,SUBSYSTEM,PLANNAME,AUTHID,PROGRAMNAME)
*-------------------------------------------------------------------*
*      OTHER POSSIBLE SUMMARY KEY VALUES ARE CONNECTION, CORRID     *
*      ORIGPRIMID, COLLECTIONID.                                    *
*-------------------------------------------------------------------*
   LOAD   TYPE=SUMPKGACCT,TABLE=DMRPR.DMRAPSUM,FROMDD=PKGSACCT
   PURGE  TYPE=SUMPKGACCT,TABLE=DMRPR.DMRAPSUM,RETPD=10D
*
*         --- LOAD SUMMARY BUF ACCOUNTING TABLE (30-MINUTE INTERVAL)-
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---
*
   SUMMARIZE TYPE=SUMBUFACCT,FROMDD=ACBUFDD,
       TABLE=DMRPR.DMRABSUM,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=30M,
       TODD=BUFSACCT,
       SUMMKEY=(LOCATION,SUBSYSTEM,PLANNAME,AUTHID,BPNAME)
*-------------------------------------------------------------------*
*      OTHER POSSIBLE SUMMARY KEY VALUES ARE CONNECTION, CORRID     *
*      ORIGPRIMID                                                   *
*-------------------------------------------------------------------*
   LOAD   TYPE=SUMBUFACCT,TABLE=DMRPR.DMRABSUM,FROMDD=BUFSACCT
   PURGE  TYPE=SUMBUFACCT,TABLE=DMRPR.DMRABSUM,RETPD=10D
*-------------------------------------------------------------------*
*             THE FOLLOWING STATEMENTS WILL LOAD AUDIT TABLES.      *
*-------------------------------------------------------------------*
   LOAD TYPE2=AUDSUM,TABLE=DMRPR.DMRAUSUM,FROMDD=AUDITDD
   LOAD TYPE2=AUDFAIL,TABLE=DMRPR.DMRAUFAL,FROMDD=AUDITDD
   LOAD TYPE2=AUDGRV,TABLE=DMRPR.DMRAUGRV,FROMDD=AUDITDD
   LOAD TYPE2=AUDDDL,TABLE=DMRPR.DMRAUDDL,FROMDD=AUDITDD
   LOAD TYPE2=AUDDML,TABLE=DMRPR.DMRAUDML,FROMDD=AUDITDD
   LOAD TYPE2=AUDDMB,TABLE=DMRPR.DMRAUDMB,FROMDD=AUDITDD
   LOAD TYPE2=AUDCHG,TABLE=DMRPR.DMRAUCHG,FROMDD=AUDITDD
   LOAD TYPE2=AUDUTL,TABLE=DMRPR.DMRAUUTL,FROMDD=AUDITDD
   LOAD TYPE3=AUDCMD,TABLE=DMRPR.DMRAUCMD,FROMDD=AUDITDD
   LOAD TYPE3=AUDTRC,TABLE=DMRPR.DMRAUTRC,FROMDD=AUDITDD
   LOAD TYPE3=AUDATH,TABLE=DMRPR.DMRAUADM,FROMDD=AUDITDD
   PURGE  TYPE2=AUDSUM,TABLE=DMRPR.DMRAUSUM,RETPD=10D
   PURGE  TYPE2=AUDFAIL,TABLE=DMRPR.DMRAUFAL,RETPD=10D
   PURGE  TYPE2=AUDGRV,TABLE=DMRPR.DMRAUGRV,RETPD=10D
   PURGE  TYPE2=AUDDDL,TABLE=DMRPR.DMRAUDDL,RETPD=10D
   PURGE  TYPE2=AUDDML,TABLE=DMRPR.DMRAUDML,RETPD=10D
   PURGE  TYPE2=AUDDMB,TABLE=DMRPR.DMRAUDMB,RETPD=10D
   PURGE  TYPE2=AUDCHG,TABLE=DMRPR.DMRAUCHG,RETPD=10D
   PURGE  TYPE2=AUDUTL,TABLE=DMRPR.DMRAUUTL,RETPD=10D
   PURGE  TYPE3=AUDCMD,TABLE=DMRPR.DMRAUCMD,RETPD=10D
   PURGE  TYPE3=AUDTRC,TABLE=DMRPR.DMRAUTRC,RETPD=10D
   PURGE  TYPE3=AUDATH,TABLE=DMRPR.DMRAUADM,RETPD=10D
*-------------------------------------------------------------------*
*             THE FOLLOWING STATEMENTS WILL LOAD STORAGE TABLES.    *
*-------------------------------------------------------------------*
   LOAD TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,FROMDD=STORDD
   LOAD TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,FROMDD=STORDD
   PURGE  TYPE3=ASPCSTOR,TABLE=DMRPR.DMRSTADT,RETPD=10D
   PURGE  TYPE3=SYSTSTOR,TABLE=DMRPR.DMRSTSDT,RETPD=10D
*-------------------------------------------------------------------*
*             THE FOLLOWING STATEMENTS WILL LOAD ACCEL   TABLES.    *
*-------------------------------------------------------------------*
   LOAD TYPE4=ACCA,TABLE=DMRPR.DMRAXDTL,FROMDD=ACCELDD
   LOAD TYPE4=ACCS,TABLE=DMRPR.DMRSXDTL,FROMDD=STATDD
   LOAD TYPE4=SYMB,TABLE=DMRPR.DMRSYDTL,FROMDD=STATDD
   PURGE TYPE4=ACCA,TABLE=DMRPR.DMRAXDTL,RETPD=10D
   PURGE TYPE4=ACCS,TABLE=DMRPR.DMRSXDTL,RETPD=10D
   PURGE TYPE4=SYMB,TABLE=DMRPR.DMRSYDTL,RETPD=10D
   SUMMARIZE TYPE4=SUMACCA,FROMDD=ACCELDD,
       TABLE=DMRPR.DMRAXSUM,
       TODD=SUMMACCA,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION)
   LOAD TYPE4=SUMACCA,TABLE=DMRPR.DMRAXSUM,FROMDD=SUMMACCA
   PURGE TYPE4=SUMACCA,TABLE=DMRPR.DMRAXSUM,RETPD=10D
   SUMMARIZE TYPE4=SUMACCS,FROMDD=STATDD,
       TABLE=DMRPR.DMRSXSUM,
       TODD=SUMMACCS,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION)
   LOAD TYPE4=SUMACCS,TABLE=DMRPR.DMRSXSUM,FROMDD=SUMMACCS
   PURGE TYPE4=SUMACCS,TABLE=DMRPR.DMRSXSUM,RETPD=10D
   SUMMARIZE TYPE4=SUMSYMB,FROMDD=STATDD,
       TABLE=DMRPR.DMRSYSUM,
       TODD=SUMMSYMB,
       SUMMSTART=*_1,
       SUMMEND=*,
       SUMMINT=60M,
       SUMMKEY=(BPNAME,SUBSYSTEM,SYSTEMID)
   LOAD TYPE4=SUMSYMB,TABLE=DMRPR.DMRSYSUM,FROMDD=SUMMSYMB
   PURGE TYPE4=SUMSYMB,TABLE=DMRPR.DMRSYSUM,RETPD=10D
/*
//