oracle 獲取某個包 依賴的所有對象包括其子對象
使用了一個一個臨時表 記錄了已經遍歷的 節點
同時 使用了層數來記錄已經遍歷的 包
效率一般，可以改動性大
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;
