存储过程记录执行异常日志

# 存储过程记录执行日志

```SQL
--记录日志存储过程
CREATE OR REPLACE PROCEDURE pro_record_log(in_start_time IN DATE,
                                           in_end_time IN DATE,
                                           in_code IN VARCHAR2,
                                           in_message IN VARCHAR2)
AS
  /*记录日志*/
  v_owner     VARCHAR2 (30);
  v_name      VARCHAR2 (30);
  v_lineno    NUMBER;
  v_type      VARCHAR2 (30);
BEGIN
  --返回是哪个对象调用了本存储过程记录日志
  owa_util.who_called_me(v_owner,v_name,v_lineno,v_type);
  /*dbms_output.put_line(v_owner||'.'||v_name||' '||v_type);
  dbms_output.put_line(in_code||'**'||in_message);*/
  INSERT INTO tbl_proc_log(proc_name,start_time,end_time,ERROR_CODE,error_message)
  VALUES (v_name,in_start_time,in_end_time,in_code,in_message||DBMS_UTILITY.format_error_backtrace());
  COMMIT;
END;

--测试
CREATE OR REPLACE PROCEDURE pro_test AS
  v_start_time DATE := SYSDATE;
BEGIN
  INSERT INTO uuid VALUES('333');
  COMMIT;
--记日志
  pro_record_log(v_start_time,SYSDATE,Sqlcode,SUBSTR(SQLERRM, 1, 512));
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    pro_record_log(v_start_time,SYSDATE,Sqlcode,SUBSTR(SQLERRM, 1, 512));
    COMMIT;
END;
```

```sql
BEGIN
    EXECUTE IMMEDIATE 'CREATE BITMAP INDEX IDX_FLOW_BTYPE ON FLOW(TYPE)';
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.FORMAT_ERROR_BACKTRACE || SQLERRM);
        ROLLBACK;
END;
```