主页 / dba / 问题 / 343194
Accepted
Pro West
Asked: 2024-10-24 17:53:23 +0800 CST

确定调用了哪些 PLSQL 重载过程

  • 772

考虑以下代码：

CREATE OR REPLACE PACKAGE the_package AS
   PROCEDURE procA ( pval1 IN VARCHAR2 );
   PROCEDURE procA ( pval1 IN NUMBER );
END;
/

创建了一个具有重载程序的PLSQL包procA。

现在我们创建调用这些的过程：

CREATE OR REPLACE testProc1 AS
  l_val VARCHAR2 := 'Boncho';
BEGIN
   the_package.procA( l_val );
END;
/

CREATE OR REPLACE testProc21 AS
  l_val NUMBER := 88;
BEGIN
   the_package.procA( l_val );
END;
/

我想要做的是能够识别哪些变体testProc1并testProc2进行调用。

我无法使用，DBA_DEPENDENCIES因为它只是告诉我testProc1和testProc2依赖于包the_package。

我无法使用DBA_PROCEDURES，因为它只告诉我可以调用哪些程序。

似乎唯一的选择是以某种方式使用DBA_PROCEDURES和的组合DBA_ARGUMENTS并DBA_SOURCE进行一些类似编译器的分析来获得所需的输出：

第 2 行的包的过程testProc1调用。 第 3 行的包的过程调用。procAthe_packagetestProc2procAthe_package

但是谁想编写 PLSQL 编译器？

但是我认为 Oracle 在编译时会进行验证，即在编译过程时会检查所调用的过程是否存在。因此，我想也许在元数据的某个地方存储了有关所调用过程的确切信息。

是否有人知道在元数据视图中这些信息被保存在哪里？

oracle

1 个回答

  1. Best Answer
    ALTER SESSION SET PLSCOPE_SETTINGS='IDENTIFIERS:ALL, STATEMENTS:ALL';

CREATE OR REPLACE PACKAGE the_package AS
   PROCEDURE procA ( pval1 IN VARCHAR2 );
   PROCEDURE procA ( pval1 IN NUMBER );
END;
/

CREATE OR REPLACE procedure testProc1 AS
  l_val VARCHAR2(100) := 'Boncho';
BEGIN
   the_package.procA( l_val );
END;
/

CREATE OR REPLACE procedure testProc21 AS
  l_val NUMBER := 88;
BEGIN
   the_package.procA( l_val );
END;
/

select a.object_name, a.usage, b.object_name as called_object_name, b.name, b.line from
(select * From user_identifiers where name = 'PROCA' and usage in ('CALL')) a
join
(select * From user_identifiers where name = 'PROCA' and usage in ('DECLARATION')) b
on a.signature = b.signature
order by 1;

OBJECT_NAME          USAGE       CALLED_OBJECT_NAME   NAME             LINE
-------------------- ----------- -------------------- ---------- ----------
TESTPROC1            CALL        THE_PACKAGE          PROCA               2
TESTPROC21           CALL        THE_PACKAGE          PROCA               3
    • 1

相关问题