oracle获取某个包依赖的所有对象包括其子对象

来源：意榕旅游网

使用了一个一个临时表记录了已经遍历的节点同时使用了层数来记录已经遍历的包 PL/SQL dba_dependencies Oracle declare -- 获取相应的某个程序包所需要应用的包 cursor p_cur(p_name varchar2) is select dd.name, dd.type, dd.referenced_name, dd.re

使用了一个一个临时表记录了已经遍历的节点
同时使用了层数来记录已经遍历的包 PL/SQL dba_dependencies Oracle $velocityCount-->

declare
 -- 获取相应的 某个程序包 所需要应用的包
 cursor p_cur(p_name varchar2) is
 select dd.name, dd.type, dd.referenced_name, dd.referenced_type
 from dba_dependencies dd
 where 1 = 1
 and dd.referenced_type in
 ('PACKAGE', 'SYNONYM', 'TABLE', 'SEQUENCE')
 and dd.type in ('PACKAGE', 'PACKAGE BODY')
 AND dd.name = p_name;

 cursor p_temp(l_level number) is
 select attribute1, attribute2
 from cux_common_imports_temp
 where attribute2 = l_level;

 p_root_name varchar2(30);
 p_level number := 0;
 p_count number := 0;

begin
 --将根节点 放入到表中
 p_root_name := 'CUX_SBU_COMMON';
 insert into cux_common_imports_temp
 (attribute1, attribute2)
 values
 (p_root_name, p_level);
 p_count := 1;
 --循环这一层的 节点 并获得其子节点

 while p_count != 0 loop
 
 for p_loop in p_temp(p_level) loop
 --下一层
 p_level := p_level + 1;
 p_root_name := p_loop.attribute1;
 for p_rec in p_cur(p_root_name) loop
 if p_rec.referenced_type = 'PACKAGE' then
 --如果表内 没有这个程序就 加入到 临时表中
 select count(*)
 into p_count
 from cux_common_imports_temp
 where attribute1 = p_rec.referenced_name;
 
 if p_count = 0 then
 insert into cux_common_imports_temp
 (attribute1, attribute2)
 values
 (p_rec.referenced_name, p_level);
 end if;
 --

输出相应的子节点信息 dbms_output.put_line(p_level || '-Name:' || p_rec.referenced_name || '-Type:' || p_rec.referenced_type); end if; end loop; end loop; --获取该层是否为空 select count(*) into p_count from cux_common_imports_temp where attribute2 = p_level; end loop; end;