存储过程调用过程中，获取当前正在执行的过程的信息

     参考网址：http://awads.net/wp/2006/10/17/did-you-call-me/

     我们在调用存储过程的时候，发生异常，经常无法判断是那个存储过程发生了错误，而导致问题不好排查，Oracle提供了一个在运行过程中获取存储过程名字的过程：OWA_UTIL.WHO_CALLED_ME

CREATE OR REPLACE PROCEDURE my_proc
    IS
       owner_name    VARCHAR2 (100);
       caller_name   VARCHAR2 (100);
      line_number   NUMBER;
       caller_type   VARCHAR2 (100);
    BEGIN
       OWA_UTIL.WHO_CALLED_ME (owner_name,caller_name,line_number,caller_type);
       DBMS_OUTPUT.put_line (   caller_type
                            || ' '
                            || owner_name
                            || '.'
                            || caller_name
                           || ' called MY_PROC from line number '
                           || line_number
                          );
   END;
   

测试：

BEGIN
  MY_PROC;
END;

输出：ANONYMOUS BLOCK . called MY_PROC from line number 2

测试：

  DECLARE
    V_STR2TBLTYPE DBMS_SQL.VARCHAR2_TABLE;
  BEGIN
    V_STR2TBLTYPE := SYS_UTIL.STR2VARLIST('1,2,3,4,5,6');
    IF V_STR2TBLTYPE.EXISTS(1) THEN
      FOR IDX IN V_STR2TBLTYPE.FIRST .. V_STR2TBLTYPE.LAST LOOP
        DBMS_OUTPUT.PUT_LINE(V_STR2TBLTYPE(IDX));
      END LOOP;
    END IF;
  END;

调用过程介绍

输出:PACKAGE BODY SCOTT.SYS_UTIL called MY_PROC from line number 267