zOs/SQL/TUNELOAD

//A540769W JOB (CP00,KE50),'LOADWEEK',                                  00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040001
//S1       EXEC PGM=DSNUTILB,PARM='DBOC,A540769W.LOADWE'                00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOC.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
     DECLARE CUR1 CURSOR FOR
SELECT
       DATE(TRUNC_TIMESTAMP(TIMESTAMP, 'WW')) TIMESTAMP,
       INT(SUM(OCCURRENCES ))   OCC,
       SUM(SQL_STMTS_ISSUED)   STMTS,
       SUM(CLASS7_CPU_TOTAL) C7CPU,
       SUM(CLASS7_SU_CPU) C7SU,
       SUM(CLASS7_ELAPSED)   C7ELA,
       SUBSTR(PCK_ID, 1, 8) PKG,
       MIN(SUBSTR(PCK_COLLECTION_ID, 1, 8)) COLLMIN ,
       MAX(SUBSTR(PCK_COLLECTION_ID, 1, 8)) COLLMAX ,
       COUNT(DISTINCT TRUNC_TIMESTAMP(TIMESTAMP, 'DDD')) DAYCNT
    FROM RZ2DD.TACCT_PROGRAM
    WHERE   SUBSYSTEM_ID LIKE 'DOF%'
        AND TIMESTAMP >= TRUNC_TIMESTAMP('2012-06-01-00.00.00','WW')
    GROUP BY
       TRUNC_TIMESTAMP(TIMESTAMP, 'WW'), SUBSTR(PCK_ID, 1, 8)
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME NO REPLACE
     COPYDDN(TCOPYS) STATISTICS INDEX(ALL KEYCARD)
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  A540769.TTUNEWEEK
//A540769P JOB (CP00,KE50),'LOADPEAK',                                  00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040001
//S1       EXEC PGM=DSNUTILB,PARM='DBOC,A540769P.LOADPE'                00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOC.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
     DECLARE CUR1 CURSOR FOR
SELECT
       DATE(TRUNC_TIMESTAMP(TIMESTAMP, 'WW')) TIMESTAMP,
       INT(SUM(OCCURRENCES ))   OCC,
       SUM(SQL_STMTS_ISSUED)   STMTS,
       SUM(CLASS7_CPU_TOTAL) C7CPU,
       SUM(CLASS7_SU_CPU) C7SU,
       SUM(CLASS7_ELAPSED)   C7ELA,
       SUBSTR(PCK_ID, 1, 8) PKG,
       MIN(SUBSTR(PCK_COLLECTION_ID, 1, 8)) COLLMIN ,
       MAX(SUBSTR(PCK_COLLECTION_ID, 1, 8)) COLLMAX ,
       COUNT(DISTINCT TRUNC_TIMESTAMP(TIMESTAMP, 'HH')) HHCNT
    FROM RZ2HH.TACCT_PROGRAM
    WHERE   SUBSYSTEM_ID LIKE 'DOF%'
        AND TIMESTAMP >= TRUNC_TIMESTAMP('2012-03-01-00.00.00', 'WW')
        AND  DAYOFWEEK_ISO(TIMESTAMP) <= 5
        AND  HOUR(TIMESTAMP) BETWEEN 9 AND 11
    GROUP BY
       TRUNC_TIMESTAMP(TIMESTAMP, 'WW'), PCK_ID
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME NO REPLACE
     COPYDDN(TCOPYS) STATISTICS INDEX(ALL KEYCARD)
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  A540769.TTUNEWEEK