oracle存儲過程代碼日誌記錄
prompt 創建函數 f_getprocname
CREATE
OR
REPLACE
FUNCTION f_getprocname 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,
RETURN l_owner ||
‘.‘
|| l_name;
END;
/
prompt 正在執行
創建表 T_PROC_LOGS
declare
????v_count number
:=
0;
????v_tb_name varchar2(1000)
:=
begin
????SELECT
count(*)
INTO v_count FROM USER_OBJECTS WHERE
OBJECT_NAME
=
UPPER(v_tb_name);
????if v_count >
0
then
????????execute
immediate
‘drop table ‘
||
UPPER(v_tb_name);
????end
if;
end;
/
create
table T_PROC_LOGS
(
LOG_ID NUMBER(10)
default
0
not
null,
PROC_MC VARCHAR2(100)
default
‘ ‘
not
null,
TITLE VARCHAR2(4000)
default
‘ ‘
not
null,
CONTENT VARCHAR2(4000)
default
‘ ‘
not
null,
LOG_TYPE VARCHAR2(10)
default
‘ ‘
not
null,
LOG_TIME DATE
);
prompt 正在執行
創建序列 seq_log_id
declare
????v_count number;
????v_sequence_name varchar2(1000)
:=
‘seq_log_id‘;
begin
select
count(*)
into v_count from user_sequences a where a.sequence_name =
upper(v_sequence_name);
if
(v_count =
0)
then
execute
immediate
‘create sequence ‘
|| v_sequence_name ||
‘ increment by 1 start with 1‘
||
‘ maxvalue 2100000000 minvalue 1‘
||
‘ cycle nocache noorder‘;
end
if;
end;
/
?
?
?
?
?
?
?
oracle存儲過程代碼日誌記錄