Oracle存储过程记录异常

灰太狼 2022-08-06 01:07 216阅读 0赞

对于Oracle的存储过程，抛出异常可以抛向代码或是用表记录。如果你的系统应用有很多节点，像我们40个节点，如果抛错抛到代码里面，错误根本就无法找到，最好是错误用表记录。记录错误的这个功能最好是通用的。

**--建立错误日志表**

create table PUB\_PROC\_ERR\_LOG  
(  
  LOG\_ID      NUMBER,  
  MODULE\_NAME VARCHAR2(100),  
  PROC\_NAME   VARCHAR2(100),  
  ERR\_TIME    DATE,  
  SQL\_CODE    VARCHAR2(50),  
  SQL\_ERRM    VARCHAR2(100),  
  ERR\_CONTENT VARCHAR2(500)  
);  
comment on column PUB\_PROC\_ERR\_LOG.LOG\_ID is '主键';  
comment on column PUB\_PROC\_ERR\_LOG.MODULE\_NAME  is '模块名称';  
comment on column PUB\_PROC\_ERR\_LOG.PROC\_NAME  is '存储过程名称';  
comment on column PUB\_PROC\_ERR\_LOG.ERR\_TIME  is '报错时间';  
comment on column PUB\_PROC\_ERR\_LOG.SQL\_CODE  is 'SQLCODE';  
comment on column PUB\_PROC\_ERR\_LOG.SQL\_ERRM  is 'SQLERRM';  
comment on column PUB\_PROC\_ERR\_LOG.ERR\_CONTENT  is '报错的具体行';

**--表主键的序列**

create sequence SEQ\_RECORD\_PROC\_ERR  
minvalue 1  
maxvalue 9999999999999999999999999999  
start with 21  
increment by 1  
cache 20;

**--通用记录错误存储过程**

CREATE OR REPLACE PROCEDURE   
record\_proc\_err\_log(module\_name varchar2,  
                proc\_name   varchar2,  
                v\_SQLCODE   varchar2,  
                v\_SQLERRM   varchar2,  
                v\_err\_line  varchar2) is  
  PRAGMA AUTONOMOUS\_TRANSACTION;  
BEGIN  
  insert into pub\_proc\_err\_log  
    (log\_id,  
     module\_name,  
     proc\_name,  
     err\_time,  
     sql\_code,  
     sql\_errm,  
     err\_content)  
  values  
    (seq\_record\_proc\_err.nextval,  
     module\_name,  
     proc\_name,  
     sysdate,  
     v\_SQLCODE,  
     v\_SQLERRM,  
     v\_err\_line);  
  commit;  
END record\_proc\_err\_log;

**--进行测试**

create or replace procedure test\_p1 is  
begin  
  execute IMMEDIATE 'select from test';  
 exception   
**  when others then   
   record\_proc\_err\_log('模块名','test\_p1',SQLCODE,SQLERRM,  
    substr(dbms\_utility.format\_error\_backtrace, 1, 400));**  
end test\_p1;

SQL> col proc\_name  format a8;  
SQL> col err\_time  format a10;  
SQL> col sql\_code  format a5;  
SQL> col SQL\_ERRM  format a22;  
SQL> col ERR\_CONTENT  format a42;  
SQL> select proc\_name,err\_time,sql\_code,SQL\_ERRM,ERR\_CONTENT from pub\_proc\_err\_log;  
PROC\_NAM ERR\_TIME   SQL\_C SQL\_ERRM               ERR\_CONTENT  
\-------- ---------- ----- ---------------------- ------------------------------------------  
test\_p1  08-12月-14 -936  ORA-00936: 缺失表达式  ORA-06512: 在 "LCAM\_TEST.TEST\_P1", line 3