cp_sys_exception

CREATE OR REPLACE PROCEDURE cp_sys_exception
(
i_vprocname  VARCHAR2,                        --存储过程名称
i_exceptioncontent VARCHAR2,                  --错误描述
i_ierrornum  INT                              --错误位置
)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
   t_ierrorcode INT;
BEGIN
   t_ierrorcode := 0;
   BEGIN
      INSERT INTO sys_exception
             (exceptionid,username,exceptiontime,exceptioncontent,errornum)
      VALUES
             (sys_guid(),i_vprocname,SYSDATE,i_exceptioncontent,DECODE(i_ierrornum,NULL,0, i_ierrornum));
   EXCEPTION
      WHEN OTHERS THEN
         t_ierrorcode := SQLCODE;
   END;

   IF t_ierrorcode <> 0 THEN
      ROLLBACK;
   ELSE
      COMMIT;
   END IF;
   RETURN;
END;

/*-- Create table
create table SYS_EXCEPTION
(
  EXCEPTIONID      CHAR(32) not null,%

阅读(1087) | 评论(0) | 转发(0) |

0

上一篇：oracle过程cp_sys_exception

下一篇：oracle 过程3