zOs/SKELS/NAKDEP
with o (lev, dType, dCreator, dName, bType, bCreator, bName) as 00010000
( select 0, t.type, creator, name, '.', '', t.dbName 00020000
from sysibm.sysTables t 00030000
where t.dbname $DBIN 00040002
union all select o.lev+1, d.dType, d.dCreator, d.dName, 00050000
o.dType, o.dCreator, o.dName 00060000
from o, sysibm.sysviewdep d 00070000
where d.bcreator = o.dCreator and d.bName = o.dName 00080000
and o.lev < 999999 00090000
union all select o.lev+1, a.Type, a.creator, a.name, 00100000
o.dType, o.dCreator, o.dName 00110000
from o, sysibm.systables a 00120000
where a.tbCreator = o.dCreator and a.tbName = o.dName 00130000
and a.type = 'A' and a.location in('', current server) 00140003
and o.lev < 999999 00150003
union all select o.lev+1, 'Y', y.creator, y.name, 00160000
o.dType, o.dCreator, o.dName 00170000
from o, sysibm.sysSynonyms y 00180000
where y.tbCreator = o.dCreator and y.tbName = o.dName 00190000
and o.lev < 999999 00200000
) 00210001
select dType, dCreator, dName, bType, bCreator, bName 00220001
from o 00230001