CREATE OR REPLACE PROCEDURE PRC_TEST AS
/*
author:xjf
date:2090817
desc:
*/
--定义存储过程,以自治事务的方式写入日志
PROCEDURE INNER_PRC_LOG AS
PRAGMA AUTONOMOUS_TRANSACTION; --指定为自治事务
BEGIN
DBMS_OUTPUT.PUT_LINE('[' || LPAD($$PLSQL_UNIT, 50, ' ') || ']line ' ||
LPAD($$PLSQL_LINE, 4, ' ') || ':' ||
TO_CHAR(SYSDATE, 'HH:MI:SS'));
INSERT INTO TB_TRACE (IN_TIME) VALUES (SYSDATE);
COMMIT; --自治事务中必须显式提交
END;
BEGIN
INNER_PRC_LOG; --调用
INSERT INTO TB_TRACE (IN_TIME) VALUES (SYSDATE);
EXCEPTION
WHEN OTHERS THEN
INNER_PRC_LOG; --调用
END;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/69945582/viewspace-2653981/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/69945582/viewspace-2653981/