zOs/SQL/BINDRES

            -- neueste bind results
            -- in spufi Default maxChar=2000 fuer errMsg
            -- das not exists zuunterst putzt die alten fehler weg
            --        mit oder ohne cmPkg?
            --
select rz, dbSys
     , char(left(
         case when cmRes = '' then '  ' else strip(cmRes) || ' ' end
      || case when result is null then '- ' else strip(result)||' ' end
      || case
           when errMsg is null then '--- errMsg null ---'
           when errMsg =  ''   then ''
           when posStr(errMsg, 'SQLCODE=') > 0
               then substr(errMsg, posStr(errMsg, 'SQLCODE='), 40)
           when posStr(errMsg, 'RESOURCE UNAVAILABLE') > 0
                then 'unAvail: '
              || case
              when posStr(substr(errMsg
                  , posStr(errMsg, 'RESOURCE UNAVAILABLE') + 20)
                  , ' NAME ') < 1
                then substr(errMsg
                    , posStr(errMsg, 'RESOURCE UNAVAILABLE') + 22)
                else substr(errMsg
                    , posStr(errMsg, 'RESOURCE UNAVAILABLE')
                    + posStr(substr(errMsg
                      , posStr(errMsg, 'RESOURCE UNAVAILABLE') + 20)
                      , ' NAME ')+ 25)
              end
           else '? ' || errMsg
       end, 40), 40) "c b error"
     , hex(contok)
     , g.*
    from oa1p.TQZ043BINDGEN g
       where rz = 'RZY'
  --   where pgm = 'YAU001D'
   --  and   appl = 'AURA'
    -- where (result is null or result <> '0' or cmRes <> '0' )
    --  where pgm = 'XBLE81'
    -- where result not in('0') --
    -- where cmJob like 'CSBI%'
    -- where gentst < '2014-09-19-00.17.48.142237'
                      -- History nicht anzeigen
    -- and not exists (select 1 from oa1p.TQZ043BINDGEN n
    --     where g.rz = n.rz and g.pgm = n.pgm
    --         and g.cmPkg = n.cmPkg
    --         and g.genTst < n.genTst
    --     )
    order by gentst desc
    fetch first 500  rows only
;x;
select rz, dbSys, result
                , sum(case when genTst >= timestamp(current date)
                      then 1 else 0 end) heute
                , count(*)
    from oa1p.TQZ043BINDGEN g
    where genTst >= '2015-01-01-00.00.00'
    group by rz, dbSys, result
;x;