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;