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

　　('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;