ORACLE 获取程序当前位置的方法

FUNCTION f_Get_Program_Position RETURN VARCHAR2 IS

    l_Owner  VARCHAR2(30);

    l_Name   VARCHAR2(30);

    l_Lineno NUMBER;

    l_Type   VARCHAR2(30);

BEGIN

    Owa_Util.Who_Called_Me(l_Owner, l_Name, l_Lineno, l_Type);

    RETURN ' [' || l_Name || ':' || l_Lineno || ']';

END;