Oracle PL/SQL中取得當前程式名稱

在實際應用的Oracle后端程式中,有些模塊可能會經常需要在不同地方調用.

當需要識別調用的位置來作不同區分時,得到當前程式的名稱就很重要了.

雖然說我們在寫存儲過程的時候肯定會知道過程名稱,但這樣就只能使用HARDCODE,

為了統一程式書寫規範,減少HARDCODE的使用,我寫了一個函數用來取得調用位置的存儲過程名稱.

createor replace

function fun_getcallname(pi_user IN varchar2

default sys_context('USERENV','CURRENT_USER'))

returnvarchar2

--======================================================================

--功能說明:返回調用該函數程式的名稱.

--傳入參數:調用程式所在的帳號名稱,必須為大寫.

--返回值:調用程式的名稱.

--注意事項:

-- 1.該函數可以用在Procedure,Function,Trigger中,能正確得到調用程式名稱.

-- 2.在PACKAGE中使用時,只能得到PACKAGE名稱,不能取得實際的子過程名稱.

-- 3.該函數不支持跨DBLINK的調用.

-- 4.該函數支持同服務器中不同帳號之間的調用.

--開發人員:VnSoft 開發日期:20090929

--======================================================================

is

v_str varchar2(32767);

v_user varchar2(20);

v_end number;

begin

v_str := DBMS_UTILITY.FORMAT_CALL_STACK;

v_user := pi_user||'.';

v_end :=instrb(v_str,v_user,-1);

v_str :=substrb(v_str,v_end);

v_end :=instrb(v_str,'0x');

IF v_end=0 THEN

v_str := substrb(v_str,1,lengthb(v_str) - 1);

ELSE

v_str := substrb(v_str,1,v_end- 2);

END IF;

RETURNsubstrb(v_str,lengthb(v_user)+1);

END;

這個應該在Oracle 10g以上(含)版本才可以使用.

2012/07/20

后來在無意中找到一個Oracle自帶的函數:OWA_UTIL.WHO_CALLED_ME

利用這個函數可以取得當前Procedure的名稱.

先定義一個自定義的函數:

function fun_WHOCALLME

RETURN varchar2

IS

v_owner varchar2(100);

v_name varchar2(30);

v_lineno varchar2(30);

v_call varchar2(100);

BEGIN

OWA_UTIL.WHO_CALLED_ME(v_owner,v_name,v_lineno,v_call);

RETURN v_owner||'.'||v_name;

END;

然后在其它procedure中調用該函數,就可以知道自己叫什麼名稱了.