zOs/SQL/PKGDEP

select char(bname,12), char(bqualifier,12), btype
    from sysibm.syspackdep
    where dname = 'DBWK2'
;
x
select distinct p.collid, p.Name, p.version, p.type from
sysibm.syspackdep d join sysibm.syspackage p on p.location =
d.dLocation and p.collid = d.dCollid and p.name = d.dName
and  p.conToken = d.dConToken where ( bQualifier = 'OA1A03'
and bName in ('TAV408A1'))
;
 x
select distinct p.collid, p.Name, p.version, p.type from
sysibm.syspackdep d join sysibm.syspackage p on p.location =
d.dLocation and p.collid = d.dCollid and p.name = d.dName
and  p.conToken = d.dConToken where ( bQualifier = 'VDPS2'
and bName in ('DTUNDERFIXCOMQ', 'DTUNDERFIXCOMP', 'IIXDU',
'IIXDUZWEI')) or ( bQualifier = 'VDPS3 ' and bName in ('vdps
table drei ')) or ( bQualifier = 'EFG' and bName in ('HIK'))
or ( (bQualifier, bName) in ( select tbcreator, tbname from
sysibm.sysindexes where ( creator = 'VDPS2' and name in
('IIXDU', 'IIXDUZWEI')) ) )
;
select distinct p.collid, p.Name, p.version, p.type from sysibm.syspackd
in sysibm.syspackage p on p.location = d.dLocation and p.collid = d.dCol
 p.name = d.dName and  p.conToken = d.dConToken where ( bQualifier = 'VD
d bName in ('DTUNDERFIXCOMQ', 'DTUNDERFIXCOMP', 'IIXDU', 'IIXDUZWEI')) o
alifier = 'VDPS3 ' and bName in ('vdps table drei ')) or ( bQualifier =
nd bName in ('HIK')) or ( (bQualifier, bName) in ( select tbcreator, tbn
m sysibm.sysindexes where ( creator = 'VDPS2' and name in ('IIXDU', 'IIX
)) ) )
;
select char(bname,12), char(bqualifier,12), btype
    from sysibm.syspackdep
    where dname = 'DBWK2'
    ;
select distinct char(p.collid, 8), char(p.Name,12), char(p.version, 30),
                p.type
    from sysibm.syspackdep d join sysibm.syspackage p
        on p.location = d.dLocation and p.collid = d.dCollid
           and p.name = d.dName and  p.conToken = d.dConToken
    where
    --  ( bType in ('A', 'M', 'S', 'T', 'V') and
             (   ( bQualifier = 'gDB9998' and
                   bName in ('TWK003A', 'TWK001A')
                 ) or
                 ( bQualifier = 'dGDB9998' and
                   bName in ('TWK003A', 'TWK001A')
                 ) or
                 ( (bQualifier, bName) in
                     ( select tbcreator, tbname
                         from sysibm.sysindexes
                         where creator = 'GDB9998' and
                               name = 'IQQ051A0'
                     )
                 )
             )
    --  )
;
x