--PROCEDURE 執行異常時添加記錄(EXCEPTION方法)
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
-- 程式執行錯誤時記錄錯誤信息
v_errorcode := SQLCODE;
v_errmessage :=SUBSTR(SQLERRM, 1, 200);
INSERT INTO ERT_ERRLOG(PRO_NAME,ERROR_CODE,ERROR_MESSAGE,CREATE_DATE,CREATE_BY)VALUES
('PRO_ERT_ACGIEVEMENTS', v_errorcode,v_errmessage,sysdate,'system');
commit;
RAISE;