CREATE FUNCTION OBJ_DEP(
  p_btype varchar( 1 )
, p_bschema varchar( 128 )
, p_bname varchar( 128 )
)
returns table (
  lvl int
, otype char( 1 ), oschema varchar( 128 ), oname varchar( 128 )
, btype char( 1 ), bschema varchar( 128 ), bname varchar( 128 )
)
return
WITH A (LVL, OTYPE, OSCHEMA, ONAME, BTYPE, BSCHEMA, BNAME) AS (
SELECT  1  LVL, OTYPE, OSCHEMA, ONAME, BTYPE, BSCHEMA, BNAME
FROM (
select 
  DTYPE OTYPE, TABSCHEMA OSCHEMA, TABNAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.tabdep
where btype=upper(p_btype) and bschema=upper(p_bschema) and bname=upper(p_bname)
  union all 
select 
  'F' OTYPE, ROUTINESCHEMA OSCHEMA, ROUTINENAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.routinedep
where btype=upper(p_btype) and bschema=upper(p_bschema) and bname=upper(p_bname)
  union all 
select 
  'K' OTYPE, PKGSCHEMA OSCHEMA, PKGNAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.packagedep
where btype=upper(p_btype) and bschema=upper(p_bschema) and bname=upper(p_bname)
  union all 
select 
  'B' OTYPE, TRIGSCHEMA OSCHEMA, TRIGNAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.trigdep
where btype=upper(p_btype) and bschema=upper(p_bschema) and bname=upper(p_bname)
  union all 
select 
  'I' OTYPE, INDSCHEMA OSCHEMA, INDNAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.indexes
where upper(p_btype) in ('T', 'S') and tabschema=upper(p_bschema) and tabname=upper(p_bname)
  union all 
select 
  'I' OTYPE, INDSCHEMA OSCHEMA, INDNAME ONAME
, p_btype BTYPE, p_bschema BSCHEMA, p_bname BNAME
from syscat.indexdep
where btype=upper(p_btype) and bschema=upper(p_bschema) and bname=upper(p_bname)
) T
  UNION ALL
select 
  A.LVL+ 1  LVL
, d.DTYPE OTYPE, d.TABSCHEMA OSCHEMA, d.TABNAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.tabdep d, a
where d.btype=a.otype and d.bschema=a.oschema and d.bname=a.oname
  UNION ALL
select 
  A.LVL+ 1  LVL
, 'F' OTYPE, d.ROUTINESCHEMA OSCHEMA, d.ROUTINENAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.routinedep d, a
where d.btype=a.otype and d.bschema=a.oschema and d.bname=a.oname
  UNION ALL
select 
  A.LVL+ 1  LVL
, 'K' OTYPE, d.PKGSCHEMA OSCHEMA, d.PKGNAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.packagedep d, a
where d.btype=a.otype and d.bschema=a.oschema and d.bname=a.oname
  UNION ALL
select 
  A.LVL+ 1  LVL
, 'B' OTYPE, d.TRIGSCHEMA OSCHEMA, d.TRIGNAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.trigdep d, a
where d.btype=a.otype and d.bschema=a.oschema and d.bname=a.oname
  UNION ALL
select 
  A.LVL+ 1  LVL
, 'I' OTYPE, d.INDSCHEMA OSCHEMA, d.INDNAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.indexdep d, a
where d.btype=a.otype and d.bschema=a.oschema and d.bname=a.oname
  UNION ALL
select 
  A.LVL+ 1  LVL
, 'I' OTYPE, d.INDSCHEMA OSCHEMA, d.INDNAME ONAME
, a.otype BTYPE, a.oschema BSCHEMA, a.oname BNAME
from syscat.indexes d, a
where a.otype in ('T', 'S') and d.tabschema=a.oschema and d.tabname=a.oname
)
SELECT DISTINCT LVL, OTYPE, OSCHEMA, ONAME, BTYPE, BSCHEMA, BNAME
FROM A;

  union all 
select 
  'T' OTYPE, TABSCHEMA OSCHEMA, TABNAME ONAME
, p_btype BTYPE, 'REF:'||reftabschema BSCHEMA, reftabname BNAME
from syscat.references r
where upper(p_btype) in ('T', 'S') and reftabschema=upper(p_bschema) and reftabname=upper(p_bname)

where btype=upper(p_btype)

create procedure command(stmt varchar( 128 ))
begin
 EXECUTE IMMEDIATE stmt;
end@