"Deep" list of dependacies

Question

Hello
I'm not too hot with hierarchical queries(and probably spelling too), but I need to get a list of all tables depended on by a given stored procedure, and all of it's subordinate stored procedures. I have an SP which calls 6 other SPs, each of which makes multiple calls, and I need to get a list of all tables referred to by all procs in the call chain. I don't care which proc refers to which table, just that they are all listed.
Any ideas?
Cheers

Answer 1

Oracle has a nice utility that does the opposite of what you are asking for, such that if you provide the lowest level table or procedure, it will provide every procedure that calls or uses it and so on up the chain. With a little modification, this utility can be modified to do what you want, such that if you provide the upper level procedure name, it will provide all procedures that it calls and tables that it uses and so on down the line.
To install the utility, you need to find the utldtree.sql file on your system and start it from SQL*Plus. It should be in the rdbms\admin sub-directory of your Oracle home directory. After you have installed the utility, then you can create the reverse_deptree_fill procedure that I have provided below, which is a modification of the deptree_fill procedure of the utility. Then you can execute that procedure and dispaly the results from the deptree view or in hierarchical format from the ideptree view.
Please see the example below, in which I have first created two procedures for testing and demonstration, then created the reverse_deptree_fill procedure, then executed it, then displayed the results in two different formats by selecting from the deptree and ideptree views.
scott@ORA92> -- sample procedures for testing and demonstration:
scott@ORA92> create or replace procedure test_proc1
  2    (p_deptno in emp.deptno%type)
  3  as
  4    v_count number;
  5  begin
  6    select count(*) into v_count from emp where deptno = p_deptno;
  7  end test_proc1;
  8  /
Procedure created.
scott@ORA92> create or replace procedure test_proc2
  2    (p_dname in dept.dname%type)
  3  as
  4    v_deptno number;
  5  begin
  6    select deptno into v_deptno from dept where dname = upper (p_dname);
  7    test_proc1 (v_deptno);
  8  end test_proc2;
  9  /
Procedure created.
scott@ORA92> -- install the utility,
scott@ORA92> -- substituting your oraclehome for d:\oracle\ora92:
scott@ORA92> --start d:\oracle\ora92\rdbms\admin\utldtree.sql
scott@ORA92> -- create reverse_deptree_fill procedure:
scott@ORA92> create or replace procedure reverse_deptree_fill (type char, schema char, name char) is
  2    obj_id number;
  3  begin
  4    delete from deptree_temptab;
  5    commit;
  6    select object_id into obj_id from all_objects
  7        where owner         = upper(reverse_deptree_fill.schema)
  8        and   object_name  = upper(reverse_deptree_fill.name)
  9        and   object_type  = upper(reverse_deptree_fill.type);
10    insert into deptree_temptab
11        values(obj_id, 0, 0, 0);
12    insert into deptree_temptab
13        select referenced_object_id, object_id,
14            level, deptree_seq.nextval
15          from public_dependency
16          connect by prior referenced_object_id = object_id
17          start with object_id = reverse_deptree_fill.obj_id;
18  exception
19    when no_data_found then
20        raise_application_error(-20000, 'ORU-10013: ' ||
21          type || ' ' || schema || '.' || name || ' was not found.');
22  end;
23  /
Procedure created.
scott@ORA92> -- collect the information,
scott@ORA92> -- substituting your schema for scott and your procedure name for test_proc2:
scott@ORA92> execute reverse_deptree_fill ('procedure', 'scott', 'test_proc2')
PL/SQL procedure successfully completed.
scott@ORA92> -- display the information:
scott@ORA92> set linesize 120
scott@ORA92> select * from deptree where schema <> 'SYS' order by seq#
  2  /
NESTED_LEVEL TYPE               SCHEMA                         NAME                                 SEQ#
           0 PROCEDURE          SCOTT                          TEST_PROC2                              0
           1 TABLE              SCOTT                          DEPT                                   43
           1 PROCEDURE          SCOTT                          TEST_PROC1                             45
           2 TABLE              SCOTT                          EMP                                    46
4 rows selected.
scott@ORA92> -- display the information in a hierarchical tree:
scott@ORA92> select * from ideptree where  dependencies not like '% SYS.%'
  2  /
DEPENDENCIES
PROCEDURE SCOTT.TEST_PROC2
   TABLE SCOTT.DEPT
   PROCEDURE SCOTT.TEST_PROC1
      TABLE SCOTT.EMP
4 rows selected.