ORACLE預存程序異常處理。

create or replace procedure p_tx_getfaxdata
(   
)
as
v_ErrorCode NUMBER;          -- 出錯的代碼
v_ErrorMsg  VARCHAR2(200);   -- 錯誤的訊息顯示
v_CurrentUser VARCHAR2(8);   -- 當前資料庫使用者
v_Information VARCHAR2(100); -- 關於錯誤的資訊

begin

　　//do the things you need to do.

    commit;

    --異常捕捉
    Exception
        when others then
        begin
            v_ErrorCode := SQLCODE;
            v_ErrorMsg := SQLERRM;
            v_CurrentUser := USER;
            v_Information := '遇到了錯誤 ' || TO_CHAR(SYSDATE) || ' 資料庫使用者 ' || v_CurrentUser;
            dbms_output.put_line('執行錯誤,自動復原');
            dbms_output.put_line('詳細資料:'||'錯誤碼:'||v_ErrorCode||',錯誤訊息:'||v_ErrorMsg||',日誌資訊:'||v_Information);

             rollback;
        end;
end p_tx_getfaxdata;