zOs/SQL/PRPLPK

$#@
call sqlConnect dp4g
$;
$<=[
set current path oa1p ;
with p as
(
  select           sum(real(p2Commits+aborts)) comR
                 , sum(real(EDB2TCB)) placpu
                 , groupName, planName
   from pbdd.tacct_general
   where dateTime between '2013-11-13-00.00.00'
                      and '2013-11-13-23.59.59'
   group by groupName, planName
)
, q as
(
  select
         real(occurrences) occ
       , real(sqlcount) sqls
       , real(cputcbpkg) cpu
       , groupName, planName -- , programName
   from pbdd.tacct_program
   where dateTime between '2013-11-13-00.00.00'
                      and '2013-11-13-23.59.59'
)
, s as
(
  select sum(occ) occ
       , sum(sqls) sqls
       , sum(cpu) cpu
       , groupName, planName--, programName
    from q
    group by groupName, planName--, programName
)
  select fosFmte7(comR) comR
       , fosFmte7(plaCpu) plaCpu
       , fosFmte7(occ) pkgOcc
       , fosFmte7(sqls) sqls
       , fosFmte7(cpu) cpu
       , p.groupName, p.planName--, programName
    from s left join p
      on s.groupName = p.groupName and s.planName = p.planName
    order by s.occ  desc
   fetch first 2000 rows only
$]
call sqlStmts
$#out                                              20131120 09:28:03
sqlCode 0: set current path oa1p
  COMR   PLACPU PKGOCC   SQLS      CPU GROUPNAM PLANNAME
1.10E6  6.52E03 1.64E7 2.81E8  6.24E03 DBOF     NZ0610
5.91E5  5.61E03 7.65E6 2.00E8  5.53E03 DBOF     KC0680
5.28E5  1.16E04 7.45E6 1.36E9  1.11E04 DBOF     NZ0920
8.12E5  1.74E03 5.60E6 2.47E7  1.64E03 DBOF     CI0700
1.67E5  2.35E03 4.93E6 7.47E7  2.34E03 DBOF     CA0410
1.94E5  2.68E03 4.83E6 1.04E8  2.66E03 DBOF     KC0830
4.27E5  3.01E03 4.18E6 1.00E8  2.95E03 DBOF     BE0630
8.15E5  2.10E03 3.39E6 4.98E7  2.05E03 DBOF     CI0900