salida - procedimientos y funciones oracle pl/sql

Obtenga el nombre del procedimiento o función de llamada en Oracle PL/SQL

Question

¿Alguien sabe si es posible que un procedimiento PL / SQL (un registro de error en este caso) obtenga el nombre de la función / procedimiento que lo llamó?

Obviamente, podría pasar el nombre como un parámetro, pero sería bueno hacer una llamada al sistema o algo para obtener la información; podría devolver un valor nulo o algo si no se llamó desde un procedimiento / función.

Si no hay un método para esto, está bien, solo curiosidad si es posible (las búsquedas no producen nada).

Answer 1

Hay un paquete llamado OWA_UTIL (que no está instalado por defecto en versiones anteriores de la base de datos). Tiene un método WHO_CALLED_ME() que devuelve el PROPIETARIO, OBJECT_NAME, LINE_NO y CALLER_TYPE. Tenga en cuenta que si la persona que llama es un procedimiento empaquetado, devolverá el nombre PAQUETE no el nombre del procedimiento. En este caso, no hay forma de obtener el nombre del procedimiento; esto se debe a que el nombre del procedimiento puede estar sobrecargado, por lo que no es necesariamente muy útil.

Descubra más .

Desde 10gR2 también existe la función especial $$PLSQL_UNIT ; esto también devolverá el NOMBRE DEL OBJETO (es decir, el procedimiento del paquete no empaquetado).

Answer 2

Encontré este foro: http://www.orafaq.com/forum/t/60583/0/ . Puede ser lo que estás buscando.

Básicamente, puede usar el dbms_utility.format_call_stack suministrado por Oracle:

scott@ORA92> CREATE TABLE error_tab
2 (who_am_i VARCHAR2(61),
3 who_called_me VARCHAR2(61),
4 call_stack CLOB)
5 /
Table created.
scott@ORA92>
scott@ORA92> CREATE OR REPLACE PROCEDURE d
2 AS
3 v_num NUMBER;
4 v_owner VARCHAR2(30);
5 v_name VARCHAR2(30);
6 v_line NUMBER;
7 v_caller_t VARCHAR2(100);
8 BEGIN
9 select to_number(''a'') into v_num from dual; -- cause error for testing
10 EXCEPTION
11 WHEN OTHERS THEN
12 who_called_me (v_owner, v_name, v_line, v_caller_t);
13 INSERT INTO error_tab
14 VALUES (who_am_i,
15 v_owner || ''.'' || v_name,
16 dbms_utility.format_call_stack);
17 END d;
18 /
Procedure created.
scott@ORA92> SHOW ERRORS
No errors.
scott@ORA92> CREATE OR REPLACE PROCEDURE c
2 AS
3 BEGIN
4 d;
5 END c;
6 /
Procedure created.
scott@ORA92> CREATE OR REPLACE PROCEDURE b
2 AS
3 BEGIN
4 c;
5 END b;
6 /
Procedure created.
scott@ORA92> CREATE OR REPLACE PROCEDURE a
2 AS
3 BEGIN
4 b;
5 END a;
6 /
Procedure created.
scott@ORA92> execute a
PL/SQL procedure successfully completed.
scott@ORA92> COLUMN who_am_i FORMAT A13
scott@ORA92> COLUMN who_called_me FORMAT A13
scott@ORA92> COLUMN call_stack FORMAT A45
scott@ORA92> SELECT * FROM error_tab
2 /
WHO_AM_I WHO_CALLED_ME CALL_STACK
------------- ------------- ---------------------------------------------
SCOTT.D SCOTT.C ----- PL/SQL Call Stack -----
object line object
handle number name
6623F488 1 anonymous block
66292138 13 procedure SCOTT.D
66299430 4 procedure SCOTT.C
6623D2F8 4 procedure SCOTT.B
6624F994 4 procedure SCOTT.A
66299984 1 anonymous block
scott@ORA92>