Ottenere il nome della procedura o della funzione di chiamata in Oracle PL/SQL

Question

Qualcuno sa se è possibile una procedura PL/SQL (una registrazione errori in questo caso) per ottenere il nome della funzione/procedura che ha chiamato vero?

Ovviamente potrei passare il nome come parametro, ma sarebbe bello effettuare una chiamata di sistema o qualcosa per ottenere le informazioni - potrebbe solo restituire null o qualcosa se non è stato chiamato da una procedura/funzione.

Se non c'è alcun metodo per questo va bene - solo curioso se è possibile (le ricerche non producono nulla).

Answer 1

C'è un pacchetto chiamato OWA_UTIL (che non è installato di default nelle versioni precedenti di database). Questo ha un metodo WHO_CALLED_ME() che restituisce PROPRIETARIO, OBJECT_NAME, LINE_NO e CALLER_TYPE. Si noti che se il chiamante è una procedura impacchettata restituirà il nome PACKAGE e non il nome della procedura. In questo caso non c'è modo di ottenere il nome della procedura; questo perché il nome della procedura può essere sovraccaricato, quindi non è necessariamente molto utile.

Find out more.

---

Da 10gR2 c'è anche la funzione speciale $$PLSQL_UNIT; questo restituirà anche OBJECT NAME (cioè la procedura del pacchetto non pacchettizzato).

Answer 2

Ho trovato questo forum: http://www.orafaq.com/forum/t/60583/0/. Potrebbe essere quello che stai cercando.

In sostanza, è possibile utilizzare Oracle fornito dbms_utility.format_call_stack:

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>