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

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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;

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：91站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!