zOs/SQL/CATPKGST

select CHAR(strip(a.location) || '.'
        || strip(a.collid) || '.' || strip(a.name) || '.'
        || HEX(a.CONTOKEN) || '.' || strip(a.VERSION) , 80),
        a.seqNo, a.stmtno, a.stmt
    from sysibm.syspackstmt a, sysibm.syspackdep d
    where       a.location = d.dLocation
            and a.collid   = d.dCollid
            and a.name     = d.dName
            and a.contoken = d.dConToken
  --  and  bQualifier = 'GDB9998'
      and  bName   like 'TRT%'
     ; --                  and contoken = x'17CAABC306F936E8'
                           and stmtno = 3679
;
select distinct
        char(strip(dCollid) || '.'  || strip(dName), 24) "package",
        pcTimeStamp "preCompile",
        hex(dConToken) "conToken"
    from sysibm.syspackdep
    left join sysibm.syspackage
        on dCollid = collid and dName = name and dConToken = conToken
    where bType in ('P', 'R')
        and bQualifier like 'BJA_0001'
    order by 1
    ;
    x
x
select * -- count(*), seqno, sectno
    from sysibm.syspackstmt
    where  location = ''
      and  collid = 'CZ'   and name = 'YCZTCOC'
                           and contoken = x'17CAABC306F936E8'
                           and stmtno = 3679
;
x
select count(*), location, collid, name, hex(contoken), stmtno
    from sysibm.syspackstmt
    group by location, collid, name, hex(contoken), stmtno
    order by 1 desc
    fetch first 100 rows only
    with ur
;
    where  seqno = 10 and sectno = 10
    -- order by 2, 3
select * -- count(*), seqno, sectno
    from sysibm.syspackstmt
    where  seqno = 10 and sectno = 10
    -- order by 2, 3
select * -- count(*), seqno, sectno
    from sysibm.syspackstmt
    where  seqno = 10 and sectno = 10
    -- order by 2, 3