oracle 获取某个包 依赖的所有对象包括其子对象
发布时间:2020-05-23 08:38:14 所属栏目:MySql 来源:互联网
导读:oracle 获取某个包 依赖的所有对象包括其子对象
下面是脚本之家 jb51.cc 通过网络收集整理的代码片段。 脚本之家小编现在分享给大家,也给大家做个参考。 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; 以上是脚本之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。 如果觉得脚本之家网站内容还不错,欢迎将脚本之家网站推荐给程序员好友。 (编辑:安卓应用网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |