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;