zOs/SQL/CATPKG

select length(version), lastUsed, bindtime, version, p.*
    from sysibm.syspackage p
    where lastUsed > date(timestamp('2002-01-01-00.00.00'))
       or pctimestamp > '2000-01-01-00.00.00'
    order by length(version) desc
    fetch first 100 rows only
;;;
select count(*), lastUsed
    from sysibm.syspackage p
    group by lastUsed
order by lastUsed
    fetch first 100 rows only
    ;;;,
select length(version), version, p.*
    from sysibm.syspackage p
    order by length(version) desc
    fetch first 100 rows only
;;;
select count(*), dbProtocol, valid, operative
    from sysibm.syspackage
    group by dbProtocol, valid, operative
    order by dbProtocol, valid, operative
    with ur
;
x;
select substr(collid, 1, 8) coll,
       substr(name  , 1, 8) pkg ,
       dbProtocol,
       hex(contoken),
       p.*
    from sysibm.sysPackage p
    where conToken = x'18B70ABB0DFD8CC6'
    ;
    where name in ('TP5000' ,
                   'YCDSGET',
                   'YCDUVGE',
                   'YDESTEU',
                   'YDIEURE',
                   'YDIT001',
                   'YDIT002',
                   'YDIT003',
                   'YDIT004',
                   'YTPFLAG',
                   'YTPOBS' ,
                   'YTPTPS' ,
                   'YTREDB2')
    order by 2, 4, 1
    with ur