Sample DPRSMF JCL


The following BBSAMP members contain sample job control statements:

  • DPRSMF (IBM LOAD method)
  • DPRSMFNL (BMC AMI Load method)

The following figure displays sample statements from the BBSAMP member DPRSMF for the IBM LOAD method. For the BMC AMI Load sample, see DPRSMFNL. (BMC.AMIOPS.SPE2304)

//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.                          *
//*                                                            *
//*++++++ IMPORTANT NOTE ++++++++++ IMPORTANT NOTE ++++++++++++*
//*                                                            *
//* THE DYNAMIC AND GROUP BUFFER POOL TABLE DMRDGPDT SHOULD BE *
//* USED ONLY IF THE DATA IS REQUIRED.                         *
//*                                                            *
//* THE DYNAMIC AND GROUP BUFFER POOL IFCID'S CONTAIN A LARGE  *
//* VOLUME OF DATA RESULTING IN TO HIGH CONSUMPTION OF CPU AND *
//* DASD                                                       *
//*                                                            *
//* NOTE: FOR DYNAMIC AND GROUP BUFFER POOL ATTRIBUTE DATA     *
//*       1. CREATE THE TABLE SPACE, TABLE AND INDEX           *
//*          USING THE SUPPLIED JOBS                           *
//*                                                            *
//*       2. UNCOMMENT THE DDNAME DPDDGBP FROM STEP1 AND STEP4 *
//*                                                            *
//*       3. IN DPRCNTL CONTROL CARD OF STEP1 SUPPLY THE       *
//*          TYPE AS DGPASTAT                                  *
//*                                                            *
//*          EX : TYPE=(STAT,DDFSTAT,BUFSTAT,DGPASTAT)         *
//*                                                            *
//*       4. IN DPSYSIN CONTROL CARD OF STEP3 PROVIDE THE LOAD *
//*          AND PURGE STATEMENT                               *
//*                                                            *
//*          EX :                                              *
//*                                                            *
//*LOAD   TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,FROMDD=DPDDGBP    *
//*PURGE  TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,RETPD=10D         *
//*------------------------------------------------------------*
//DPPSMF  PROC HIDP='HILVL.RUN.LIB',              <-- UPDATE                   
//             HIDB2=DSN1210,                     <-- VERIFY    2095879        
//             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                                         
//DPDAUDIT  DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),       
//             DCB=BLKSIZE=27998                                         
//DPDAUDIX  DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),       
//             DCB=BLKSIZE=27998                                         
//*DPDDGBP   DD DSN=&RPTHI..DPDDGBP,  INTERIM DYNAMIC AND GRP BPOOL FILE
//*             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,    FOR LOAD/RPTS   
//*             SPACE=(CYL,(400,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=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//SUMMACCA  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),            
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//SUMMACCS  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),            
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//SUMMSYMB  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),            
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//DDFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//PKGSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//BUFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//SUMMSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//DDFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//BUFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),               
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004       
//*                                                                           
//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                       
//*DPDDGBP   DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDDGBP                       
//*                                                                         
//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,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                                                              
/*                                                                          
//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 TABLESPACE DMRPRDB1.DMRPRDGD NOCOPYPEND   
       SET TABLESPACE DMRPRDB1.DMRPRDGD NORCVRPEND   
       SET TABLESPACE DMRPRDB1.DMRPRAFI NOCOPYPEND   
       SET TABLESPACE DMRPRDB1.DMRPRAFI NORCVRPEND   
       SET TABLESPACE DMRPRDB1.DMRPRAIC NOCOPYPEND   
       SET TABLESPACE DMRPRDB1.DMRPRAIC NORCVRPEND   
       SET TABLESPACE DMRPRDB1.DMRPRALS NOCOPYPEND   
       SET TABLESPACE DMRPRDB1.DMRPRALS 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     
       SET INDEX      DMRPRDB1.DGDTRIDX NORBDPEND      
       SET INDEX      DMRPRDB1.DGDTRIDX NORCVRPEND     
       SET INDEX      DMRPRDB1.DGDTINDX NORBDPEND      
       SET INDEX      DMRPRDB1.DGDTINDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AUFIRIDX NORBDPEND      
       SET INDEX      DMRPRDB1.AUFIRIDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AUFIINDX NORBDPEND      
       SET INDEX      DMRPRDB1.AUFIINDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AUICRIDX NORBDPEND      
       SET INDEX      DMRPRDB1.AUICRIDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AUICINDX NORBDPEND      
       SET INDEX      DMRPRDB1.AUICINDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AULSRIDX NORBDPEND      
       SET INDEX      DMRPRDB1.AULSRIDX NORCVRPEND     
       SET INDEX      DMRPRDB1.AULSINDX NORBDPEND      
       SET INDEX      DMRPRDB1.AULSINDX 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                     
*  LOAD   TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,FROMDD=DPDDGBP                   
   PURGE  TYPE=STAT,TABLE=DMRPR.DMRSTAT,RETPD=10D                             
   PURGE  TYPE=DDFSTAT,TABLE=DMRPR.DMRSTDF,RETPD=10D                          
   PURGE  TYPE=BUFSTAT,TABLE=DMRPR.DMRSBFDT,RETPD=10D                         
*  PURGE  TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,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 FAST INDEX         *        
*             TRAVERSAL BLOCK AND INCOMPATIBLE FUNCTION EXECUTED    *        
*             TABLE                                                 *        
*-------------------------------------------------------------------*        
   LOAD TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,FROMDD=AUDITDD                     
   LOAD TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,FROMDD=AUDITDD                     
   PURGE  TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,RETPD=10D                        
   PURGE  TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,RETPD=10D                        
*-------------------------------------------------------------------*        
*             THE FOLLOWING STATEMENTS WILL LOAD REMOTE LOCATION    *        
*             STATISTICS TABLE                                      *        
*-------------------------------------------------------------------*        
   LOAD TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,FROMDD=AUDITDD                     
   PURGE  TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,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          
/*                                                             
//                                                                                                    

7. On the page “Sample DPRSMFAU JCL”
https://docs.bmc.com/docs/opsmdb2/131/sample-dprsmfau-jcl-1082082132.html
Paste the below provided Job

//*------------------------------------------------------------*      
//*JOB3 : DPRSMFAU                                             *      
//*       THIS JOB PROCESSES THE AUDIT RECORDS                 *      
//*------------------------------------------------------------*      
//DPRSMFAU JOB                                                        
//*                                                                   
//PROCLIB  JCLLIB ORDER=HIDP.BBSAMP                  <====UPDATE      
//*                                                                   
//JS010   EXEC DPPSMFA,                                               
//             PARM.STEP5='SYSTEM,UID',              <====UPDATE      
//             PARM.STEP6='SYSTEM,UID'               <====UPDATE      
//*                                                                   
//*      STEP4 DPSYSIN INPUT PARAMETERS                               
//*                                                                   
//STEP4.DPSYSIN DD *                                                  
   GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD  <-- UPDATE   
*-------------------------------------------------------------------*
*             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 FAST INDEX         *
*             TRAVERSAL BLOCK AND INCOMPATIBLE FUNCTION EXECUTED    *
*             TABLE                                                 *
*-------------------------------------------------------------------*

   LOAD TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,FROMDD=AUDITDD               
   LOAD TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,FROMDD=AUDITDD               
   PURGE  TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,RETPD=10D                  
   PURGE  TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,RETPD=10D                  
*-------------------------------------------------------------------*  
*             THE FOLLOWING STATEMENTS WILL LOAD REMOTE LOCATION    *  
*             STATISTICS TABLE                                      *  
*-------------------------------------------------------------------*  
   LOAD TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,FROMDD=AUDITDD               
   PURGE  TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,RETPD=10D                  
/*                                                                     
//*                                                                    
//*      STEP4 DFSPARM                                                 
//*                                                                    
//STEP4.DFSPARM DD *                                                   
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,           
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000     
/*                                                                     
//*                                                                    
//*      STEP5 INPUT DATASETS                                          
//*                                                                    
//STEP5.AUDITDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDAUDIT              
//*                                                                    
//*      STEP5 DFSPARM                                                 
//*                                                                    
//STEP5.DFSPARM DD *                                                   
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,           
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000     
/*                                                                     
//*                                                                     
//*      DELETE DATASETS                                                
//*                                                                     
//STEP7.AUDITDD   DD  DISP=(OLD,DELETE,DELETE),DSN=&RPTHI..DPDAUDIT     
//                                                                      
//*------------------------------------------------------------*        
//*JOB4 : DPRSMFSG                                             *        
//*       THIS JOB PROCESSES THE STORAGE RECORDS               *        
//*------------------------------------------------------------*        
//DPRSMFSG JOB                                                          
//*                                                                     
//PROCLIB  JCLLIB ORDER=HIDP.BBSAMP                  <====UPDATE        
//*                                                                     
//JS010   EXEC DPPSMFA,                                                 
//             PARM.STEP5='SYSTEM,UID',              <====UPDATE        
//             PARM.STEP6='SYSTEM,UID'               <====UPDATE        
//*                                                                     
//*      STEP4 DPSYSIN INPUT PARAMETERS                                 
//*                                                                     
//STEP4.DPSYSIN DD *                                                    
   GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD  <-- UPDATE     
*-------------------------------------------------------------------*   
*             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                 
/*                                                                      
//*                                                                     
//*      STEP4 DFSPARM                                                  
//*                                                                     
//STEP4.DFSPARM DD *                                                  
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,          
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000    
/*                                                                    
//*                                                                   
//*      STEP5 INPUT DATASETS                                         
//*                                                                   
//STEP5.STORDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTOR              
//*                                                                   
//*      STEP5 DFSPARM                                                
//*                                                                   
//STEP5.DFSPARM DD *                                                  
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,          
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000    
/*                                                                    
//*                                                                   
//*      DELETE DATASETS                                              
//*                                                                   
//STEP7.STORDD    DD  DISP=(OLD,DELETE,DELETE),DSN=&RPTHI..DPDSTOR    
//                                                                    

//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.                          *                
//*                                                            *                
//*++++++ IMPORTANT NOTE ++++++++++ IMPORTANT NOTE ++++++++++++*                
//*                                                            *                
//* THE DYNAMIC AND GROUP BUFFER POOL TABLE DMRDGPDT SHOULD BE *                
//* USED ONLY IF THE DATA IS REQUIRED.                         *                
//*                                                            *                
//* THE DYNAMIC AND GROUP BUFFER POOL IFCID'S CONTAIN A LARGE  *                
//* VOLUME OF DATA RESULTING IN TO HIGH CONSUMPTION OF CPU AND *                
//* DASD                                                       *                
//*                                                            *                
//* NOTE: FOR DYNAMIC AND GROUP BUFFER POOL ATTRIBUTE DATA     *                
//*       1. CREATE THE TABLE SPACE, TABLE AND INDEX           *                
//*          USING THE SUPPLIED JOBS                           *                
//*                                                            *                
//*       2. UNCOMMENT THE DDNAME DPDDGBP FROM STEP1 AND STEP4 *                
//*                                                            *                
//*       3. IN DPRCNTL CONTROL CARD OF STEP1 SUPPLY THE       *  
//*          TYPE AS DGPASTAT                                  *             
//*                                                            *             
//*          EX : TYPE=(STAT,DDFSTAT,BUFSTAT,DGPASTAT)         *             
//*                                                            *             
//*       4. IN DPSYSIN CONTROL CARD OF STEP3 PROVIDE THE LOAD *             
//*          AND PURGE STATEMENT                               *             
//*                                                            *             
//*          EX :                                              *             
//*                                                            *             
//*LOAD   TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,FROMDD=DPDDGBP    *             
//*PURGE  TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,RETPD=10D         *             
//*------------------------------------------------------------*                           
//DPPSMF  PROC HIDP='HILVL.RUN.LIB',              <-- UPDATE              
//             HIDB2=DSN1310,                     <-- 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                                             
//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 DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),          
//             DCB=BLKSIZE=27998                                            
//DPDAUDIX  DD DISP=(,PASS),UNIT=&UNIT,SPACE=(CYL,(200,100),RLSE),          
//             DCB=BLKSIZE=27998                                            
//*DPDDGBP   DD DSN=&RPTHI..DPDDGBP,  INTERIM DYNAMIC AND GRP BPOOL FILE    
//*             DISP=(&DSSTAT,PASS),UNIT=&RPTUNIT,    FOR LOAD/RPTS         
//*             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,PASS),                                   
//             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..SPINA            READ OLD SPIN DATA    
//DPDSPIN   DD DISP=OLD,DSN=&HIDP..SPINA            WRITE NEW SPIN DATA   
//DPDSTAT   DD DSN=&RPTHI..DPDSTATA,   INTERIM STATS FILE FOR LOAD/RPTS   
//             DISP=(&DSSTAT,PASS),                                       
//             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..SPINB            READ OLD SPIN DATA    
//DPDSPIN   DD DISP=OLD,DSN=&HIDP..SPINB            WRITE NEW SPIN DATA   
//DPDSTAT   DD DSN=&RPTHI..DPDSTATB,   INTERIM STATS FILE FOR LOAD/RPTS   
//             DISP=(&DSSTAT,PASS),                                       
//             UNIT=&RPTUNIT,                                             
//             SPACE=(CYL,(5,1),RLSE),                                    
//             DCB=BLKSIZE=27998                                          
//*                                                                       
//DPSUMLD  IF RC < 8 THEN                                              
//*                                                                    
//*------------------------------------------------------------*       
//*            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=*                                                
//DPSYSIN   DD DUMMY            CONTROL STATEMENTS                     
//DPLOAD    DD UNIT=&UNIT,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),         
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)                    
//DPREPAIR  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(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                      
//ACCADD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACACC                      
//STATDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTAT                       
//STATADD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTATA                      
//STATBDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTATB                      
//SUMMACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),       
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//SUMMACCA  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),       
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//SUMMACCS  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),       
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//SUMMSYMB  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(600,300),RLSE),       
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//DDFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//PKGSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//BUFSACCT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//SUMMSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//SUMMSTAA  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)                   
//SUMMSTAB  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)                   
//DDFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//BUFSSTAT  DD UNIT=&UNIT,DISP=(,PASS),SPACE=(CYL,(10,2),RLSE),          
//             DCB=(LRECL=6024,BLKSIZE=27998,RECFM=VB)          HXC1004  
//*                                                                      
//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))                             
//SYSUT1    DD UNIT=&UNIT,SPACE=(CYL,(5,2))                              
//SYSIN     DD DISP=(OLD,DELETE),DSN=*.STEP3.DPLOAD                      
//*                                                                      
//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                      
//ACCADD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDACACC                      
//STATDD    DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTAT                       
//STATADD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTATA                      
//STATBDD   DD DISP=(OLD,PASS),DSN=&RPTHI..DPDSTATB                      
//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                    
//SUMMSTAA  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMSTAA                    
//SUMMSTAB  DD DISP=(OLD,DELETE),DSN=*.STEP3.SUMMSTAB                    
//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                    
//*DPDDGBP   DD DISP=(OLD,DELETE),DSN=*.STEP1.DPDDGBP                    
//*                                                                   
//REPAIR   IF  RC < 8 THEN                                            
//*------------------------------------------------------------*      
//*            REPAIR THE TABLESPACES                                 
//*------------------------------------------------------------*      
//*                                                                   
//STEP5   EXEC PGM=&LOADPGM,REGION=4096K,                             
//             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))                           
//*                                                                   
//SYSIN     DD DISP=(OLD,DELETE),DSN=*.STEP3.DPREPAIR                 
//*                                                                   
//*------------------------------------------------------------*      
//*                                                                   
//STEP5    ENDIF       - REPAIR                                       
//STEP4    ENDIF       - LOAD                                         
//STEP3    ENDIF       - DPSUMLD                                      
//STEP2    ENDIF       - DPRSTAT                                      
//         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             
//*                                                                            
//STEP2A.DFSPARM DD *                                                          
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,                   
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000             
//*                                                                            
//STEP2B.DFSPARM DD *                                                          
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,                   
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000             
//*                                                                            
/*                                                                             
//STEP3.DFSPARM DD *                                                           
LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,             
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000       
//*                                                                      
//STEP3.DPSYSIN DD *                                                     
   GLOBAL LOG=NO,SSID=DDDD,INVFIELD=IGNORE,PLAN=DPSUMLD  <-- UPDATE      
   LOAD   TYPE=STAT,TABLE=DMRPR.DMRSTAT,FROMDD=STATDD                    
   LOAD   TYPE=STATA,TABLE=DMRPR.DMRSTATA,FROMDD=STATADD                 
   LOAD   TYPE=STATB,TABLE=DMRPR.DMRSTATB,FROMDD=STATBDD                 
   LOAD   TYPE=DDFSTAT,TABLE=DMRPR.DMRSTDF,FROMDD=STATDD                 
   LOAD   TYPE=BUFSTAT,TABLE=DMRPR.DMRSBFDT,FROMDD=STATDD                
*  LOAD   TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,FROMDD=DPDDGBP              
   PURGE  TYPE=STAT,TABLE=DMRPR.DMRSTAT,RETPD=10D                        
   PURGE  TYPE=STATA,TABLE=DMRPR.DMRSTATA,RETPD=10D                      
   PURGE  TYPE=STATB,TABLE=DMRPR.DMRSTATB,RETPD=10D                      
   PURGE  TYPE=DDFSTAT,TABLE=DMRPR.DMRSTDF,RETPD=10D                     
   PURGE  TYPE=BUFSTAT,TABLE=DMRPR.DMRSBFDT,RETPD=10D                    
*  PURGE  TYPE=DGBPSTAT,TABLE=DMRPR.DMRDGPDT,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 STATSA TABLE (60-MINUTE INTERVAL)              
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                   
*                                                                         
   SUMMARIZE TYPE=SUMSTATA,FROMDD=STATADD,                                
       TABLE=DMRPR.DMRSTASM,                                              
       TODD=SUMMSTAA,                                                     
       SUMMSTART=*_1,                                                     
       SUMMEND=*,                                                         
       SUMMINT=60M,                                                       
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION)                              
*                                                                         
   LOAD   TYPE=SUMSTATA,TABLE=DMRPR.DMRSTASM,FROMDD=SUMMSTAA              
   PURGE  TYPE=SUMSTATA,TABLE=DMRPR.DMRSTASM,RETPD=10D                    
*                                                                         
*-------------------------------------------------------------------*     
*                                                                         
*         --- LOAD SUMMARY STATSB TABLE (60-MINUTE INTERVAL)              
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                   
*                                                                         
   SUMMARIZE TYPE=SUMSTATB,FROMDD=STATBDD,                                
       TABLE=DMRPR.DMRSTBSM,                                              
       TODD=SUMMSTAB,                                                     
       SUMMSTART=*_1,                                                     
       SUMMEND=*,                                                         
       SUMMINT=60M,                                                       
       SUMMKEY=(SUBSYSTEM,SYSTEMID,LOCATION)                              
*                                                                         
   LOAD   TYPE=SUMSTATB,TABLE=DMRPR.DMRSTBSM,FROMDD=SUMMSTAB              
   PURGE  TYPE=SUMSTATB,TABLE=DMRPR.DMRSTBSM,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   TYPE1=ACCT,TABLE=DMRPR.DMRACDTL,FROMDD=ACCTDD             *      
*  LOAD   TYPE1=DDFACCT,TABLE=DMRPR.DMRADDTL,FROMDD=ACDDFDD         *      
*  LOAD   TYPE1=PKGACCT,TABLE=DMRPR.DMRAPDTL,FROMDD=ACPKGDD         *      
*  LOAD   TYPE1=BUFACCT,TABLE=DMRPR.DMRABDTL,FROMDD=ACBUFDD         *      
*  PURGE  TYPE1=ACCT,TABLE=DMRPR.DMRACDTL,RETPD=10D                 *      
*  PURGE  TYPE1=DDFACCT,TABLE=DMRPR.DMRADDTL,RETPD=10D              *      
*  PURGE  TYPE1=PKGACCT,TABLE=DMRPR.DMRAPDTL,RETPD=10D              *      
*  PURGE  TYPE1=BUFACCT,TABLE=DMRPR.DMRABDTL,RETPD=10D              *      
*-------------------------------------------------------------------*      
*                                                                          
*         --- LOAD SUMMARY ACCOUNTING TABLE (30-MINUTE INTERVAL) ---       
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                    
*                                                                          
   SUMMARIZE TYPE1=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   TYPE1=SUMACCT,TABLE=DMRPR.DMRACSUM,FROMDD=SUMMACCT              
   PURGE  TYPE1=SUMACCT,TABLE=DMRPR.DMRACSUM,RETPD=10D                    
*                                                                         
*-------------------------------------------------------------------*     
*                                                                         
*         --- LOAD SUMMARY DDF ACCOUNTING TABLE (30-MINUTE INTERVAL)-     
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                   
*                                                                         
   SUMMARIZE TYPE1=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   TYPE1=SUMDDFACCT,TABLE=DMRPR.DMRADSUM,FROMDD=DDFSACCT           
   PURGE  TYPE1=SUMDDFACCT,TABLE=DMRPR.DMRADSUM,RETPD=10D                 
*                                                                         
*-------------------------------------------------------------------*     
*                                                                       
*         --- LOAD SUMMARY PKG ACCOUNTING TABLE (30-MINUTE INTERVAL)-   
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                 
*                                                                       
   SUMMARIZE TYPE1=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   TYPE1=SUMPKGACCT,TABLE=DMRPR.DMRAPSUM,FROMDD=PKGSACCT         
   PURGE  TYPE1=SUMPKGACCT,TABLE=DMRPR.DMRAPSUM,RETPD=10D               
*                                                                       
*-------------------------------------------------------------------*   
*                                                                       
*         --- LOAD SUMMARY BUF ACCOUNTING TABLE (30-MINUTE INTERVAL)-   
*         --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                 
*                                                                       
   SUMMARIZE TYPE1=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   TYPE1=SUMBUFACCT,TABLE=DMRPR.DMRABSUM,FROMDD=BUFSACCT        
   PURGE  TYPE1=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 FAST INDEX         *     
*             TRAVERSAL BLOCK AND INCOMPATIBLE FUNCTION EXECUTED    *     
*             TABLE                                                 *     
*-------------------------------------------------------------------*     
   LOAD TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,FROMDD=AUDITDD                  
   LOAD TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,FROMDD=AUDITDD                  
   PURGE  TYPE3=AUDFTB,TABLE=DMRPR.DMRAUFTB,RETPD=10D                     
   PURGE  TYPE3=AUDIFE,TABLE=DMRPR.DMRAUIFE,RETPD=10D                     
*                                                                         
*-------------------------------------------------------------------*     
*             THE FOLLOWING STATEMENTS WILL LOAD REMOTE LOCATION    *     
*             STATISTICS TABLE                                      *     
*-------------------------------------------------------------------*     
   LOAD TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,FROMDD=AUDITDD                  
   PURGE  TYPE3=AUDRLS,TABLE=DMRPR.DMRAURLS,RETPD=10D                     
*                                                                         
*-------------------------------------------------------------------*     
*             THE FOLLOWING STATEMENTS WILL LOAD ACCEL TABLES.      *     
*-------------------------------------------------------------------*     
   LOAD TYPE4=ACCA,TABLE=DMRPR.DMRAXDTL,FROMDD=ACCADD                     
   LOAD TYPE4=ACCS,TABLE=DMRPR.DMRSXDTL,FROMDD=STATDD                     
   PURGE TYPE4=ACCA,TABLE=DMRPR.DMRAXDTL,RETPD=10D                        
   PURGE TYPE4=ACCS,TABLE=DMRPR.DMRSXDTL,RETPD=10D                        
*                                                                         
*-------------------------------------------------------------------*     
*                                                                         
*     --- LOAD SUMMARY ACCOUNTING ACCEL TABLE (60-MINUTE INTERVAL)-    
*     --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                    
*                                                                      
   SUMMARIZE TYPE4=SUMACCA,FROMDD=ACCADD,                              
       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                  
*                                                                      
*-------------------------------------------------------------------*  
*                                                                      
*     --- LOAD SUMMARY STATS ACCEL TABLE (60-MINUTE INTERVAL)-         
*     --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                    
*                                                                      
   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                  
*                                                                      
*-------------------------------------------------------------------*  
*    THE FOLLOWING STATEMENTS WILL LOAD SIMULATED BUFFERPOOL TABLE  *  
*-------------------------------------------------------------------*       
   LOAD TYPE4=SYMB,TABLE=DMRPR.DMRSYDTL,FROMDD=STATDD                       
   PURGE TYPE4=SYMB,TABLE=DMRPR.DMRSYDTL,RETPD=10D                          
*-------------------------------------------------------------------*       
*                                                                           
*     --- LOAD SUMMARY SIMULATED BP STATS TABLE (60-MINUTE INTERVAL)-       
*     --- PURGE DATA THAT IS OLDER THAN 10 DAYS ---                         
*                                                                           
   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                       
*                                                                           
//STEP4.DFSPARM DD *                                                        
 LIST,LISTX,MOSIZE=MAX,HIPRMAX=OPTIMAL,DSPSIZE=MAX,SIZE=MAX,                
 DYNALLOC=(WORK,24),DYNAPCT=50,DYNSPC=512,FILSZ=E04444440,DSA=2000          
//*                                                                         
/*                                                                          
//


 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*