zOs/WK/PKGUSUNL

//A540769B JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//DEL      EXEC PGM=IEFBR14
//SYSREC00 DD  DISP=(MOD,DELETE),DSN=A540769.TMP.PKGUS.PDBUNL
//SYSREC01 DD  DISP=(MOD,DELETE),DSN=A540769.TMP.PKGUS.USDUNL
//SYSPUN   DD  DISP=(MOD,DELETE),DSN=A540769.TMP.PKGUS.PUN
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN  DD *
    DSN SYSTEM(DBOC)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSPUNCH DD  DISP=(NEW,CATLG),DSN=*.DEL.SYSPUN,
//             SPACE=(CYL,(1,1)),MGMTCLAS=COM#A069
//SYSREC00 DD  DISP=(NEW,CATLG),DSN=*.DEL.SYSREC00,
//             SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//SYSREC01 DD  DISP=(NEW,CATLG),DSN=*.DEL.SYSREC01,
//             SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//*DCARD   DD  SYSOUT=*,RECFM=FB,LRECL=80
//SYSIN      DD *
  SELECT COUNT(*) CNT
       , SUM(OCCURRENCES) OCCS
       , SUM(SQL_STMTS_ISSUED) SQLS
       , SUM(CLASS7_ELAPSED) ELA
       , SUM(CLASS7_CPU_TOTAL) CPU
       , MIN(TIMESTAMP) TSTFR
       , MAX(TIMESTAMP) TSTTO
       , MIN(SUBSYSTEM_ID) MBRFR
       , MAX(SUBSYSTEM_ID) MBRTO
       , PCK_ID PKG, PCK_COLLECTION_ID COL
    FROM RZ2DD.TACCT_PROGRAM
    WHERE PCK_COLLECTION_ID LIKE 'AV%'
    GROUP BY PCK_ID, PCK_COLLECTION_ID
    ORDER BY PCK_ID, PCK_COLLECTION_ID
    WITH UR
;
  SELECT LASTUSED
       , PCK_ID PKG
       , PCK_CONSIST_TOKEN  CONTOKEN
      FROM RZ2.TACCT_PKGUSED
    WITH UR
;