zOs/SQL/REFDEP

select char(td.dbName, 8),
       char(strip(r.creator) ||'.'|| strip(r.tbName), 20) "dep",
       char(case when td.dbName = tr.dbName then '=' else tr.dbName end
            , 8),
       char(strip(refTbcreator) ||'.'|| strip(refTbName), 20) "ref par",
       char(relName, 30)
     from sysibm.sysrels r, sysibm.sysTables td, sysibm.sysTables tr
     where   r.creator = td.creator and r.tbName = td.name
         and r.refTbcreator = tr.creator and r.reftbName = tr.name
         and (td.dbname like 'BJAA_0001'
                    or td.dbname = 'DBJ01' or td.dbname like 'DNF%'
                or tr.dbname like 'BJAA_0001'
                    or tr.dbname = 'DBJ01' or tr.dbname like 'DNF%')