获取异常的具体出处dbms_utility.format_error_backtrace

本文介绍Oracle中使用DBMS_UTILITY.FORMAT_ERROR_BACKTRACE进行异常回溯的方法,展示如何捕获并打印异常堆栈,帮助调试PL/SQL代码。

EXCEPTION
WHEN OTHERS THEN
p_errno := -1;
p_errmsg :=SQLCODE || ':' || SQLERRM || substr(dbms_utility.format_error_backtrace, 1, 100);
ROLLBACK;
INSERT INTO log_operation
(log_id, log_time, operator_id, success_flag, description, operation_type_code)
VALUES
(seq_log.NEXTVAL, SYSDATE, p_operator_id, 0, p_errmsg, 1);
COMMIT;
END;

DBMS_UTILITY.FORMAT_ERROR_BACKTRACE 

返回当前异常相应的描述,没有字符长度限制。与 SQLCODE 相同的是,必须在异常处理模块中使用。虽然名称中有一个 stack 在,但通过它并不能知道异常的最初生成处,需要的话就必须使用 DBMS_UTILITY.FORMAT_ERROR_BACKTRACE 。 


DBMS_UTILITY.FORMAT_ERROR_BACKTRACE 

系统为最近一次生成的异常设置了一个栈,并跟踪它的传递过程,而这个函数使用这个栈,然后返回该异常的整个传递过程。这个函数对错误的定位和实施下一步处理起着至关重要的作用。 

Create or replace procedure procl is 

Begin 

Dbms_output.put_line(‘running proc1’); 

Raise no_data_found; 

End; 

create or replace procedure proc2 is 

begin 

dbms_output.put_line(‘calling proc1’); 

proc1; 

end; 

create or replace procedure proc3 is 

begin 

dbms_output.put_line(‘calling proc2’); 

proc2; 

exception 

when no_data_found 

then 

dbms_output.put_line(‘error stack at top level’); 

dbms_output.put_line(dbms_utility.format_error_backtrace); 

end; 

现在可以运行 proc3 来看看结果。 

Sql>set serveroutput on; 

Sql>begin 

2 dbms_output.put_line(‘proc3->proc2->proc1 backtrace’); 

3 proc3; 

4 end; 

5 / 

Proc3 -> Proc2 -> Proc1 backtrace 

calling proc2 

calling proc1 

running proc1 

Error stack at top level: 

ORA-06512: at "SCOTT.PROC1", line 4 

ORA-06512: at "SCOTT.PROC2", line 5 

ORA-06512: at "SCOTT.PROC3", line 4 

事实上,每次异常的产生都将重置这个异常栈,只是最后一次从系统栈出栈的是最外层的程序块,所以可以清楚地看到异常生成的整个过程。上面这个程序的执行过程是这样的:首先用 put_line 打印 Proc3 -> Proc2 -> Proc1 backtrace , 调用 proc3 ,当前程序入栈 => 打印 calling proc2 ,调用 proc2 , proc3 入栈 => 打印 calling proc1 ,调用 proc1 , proc2 入栈 => 打印 running proc1 ,生成 no_data_found 异常,该异常被压入异常栈中 => proc2 出栈,并检测到来自第 5 行调用传递过来的异常,将它在此压入异常栈 => proc3 出栈,并检测到来自第 4 行调用传递过来的异常,将它在此压入异常栈, dbms_utility.format_error_backtrace 将异常栈中信息反相打印出来 => 最外层程序出栈, end 。

以下是正确使用这个函数的一些注意事项: 

ü 在当前程序的异常处理模块中调用这个函数。 

ü 避免在中间程序中使用异常处理模块。 

 调用这个过程的时候,会有ORA-00001异常抛出。
调用这个过程,捕捉OTHERS异常。
BEGIN
  proc_insert;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(SQLCODE || ':' || SQLERRM);
    dbms_output.put_line(dbms_utility.format_error_backtrace);
    dbms_output.put_line(dbms_utility.format_error_stack);
END;


控制台输出:
-1:ORA-00001: unique constraint (SCOTT.SYS_C0012353) violated
ORA-06512: at "SCOTT.PROC_INSERT", line 2
ORA-06512: at line 2


ORA-00001: unique constraint (SCOTT.SYS_C0012353) violated


从中可以看出, dbms_utility.format_error_backtrace记录了异常的具体的栈的信息,显示了异常的具体的传递过程,对于我们调试PL/SQL代码来说是很有好处的

这样异常就能被正确地传输到最外层程序中,并打印出这个过程了。


注:此方法在oracle10g上起作用,对于9i目前还未找到类似的方法,哪位高手有方案,还望告知。谢谢。

set serverout on; declare v_sql varchar2(300); v_Errmsg varchar2(300); begin delete from user_index_stats; commit; for i in (select table_name, index_name, num_rows from user_indexes where index_type like '%NORMAL%' and partitioned='NO' and not (regexp_like(table_name,'^TMP[[:alnum:]]{27}$')) and temporary='N' and num_rows > 0 order by 3 desc) loop begin v_sql := 'analyze index '||i.index_name||' validate structure '; execute immediate v_sql; insert into user_index_stats(table_name, height, blocks, index_name, partition_name, lf_rows, lf_blks, lf_rows_len, lf_blk_len, br_rows, br_blks, br_rows_len, br_blk_len, del_lf_rows, del_lf_rows_len, distinct_keys, most_repeated_key, btree_space, used_space, pct_used, rows_per_key, blks_gets_per_access, pre_rows, pre_rows_len, opt_cmpr_count, opt_cmpr_pctsave) select i.table_name, height, blocks, name, partition_name, lf_rows, lf_blks, lf_rows_len, lf_blk_len, br_rows, br_blks, br_rows_len, br_blk_len, del_lf_rows, del_lf_rows_len, distinct_keys, most_repeated_key, btree_space, used_space, pct_used, rows_per_key, blks_gets_per_access, pre_rows, pre_rows_len, opt_cmpr_count, opt_cmpr_pctsave from index_stats; exception when others then v_Errmsg :=substr(dbms_utility.format_error_backtrace,1,150); v_Errmsg :=v_Errmsg||substr(dbms_utility.format_error_stack,1,150); insert into user_index_stats(table_name, index_name, comments) values (i.table_name, i.index_name, v_Errmsg); end; end loop; commit; for i in (select table_name, index_name, round(del_lf_rows/lf_rows,2) del_pct, blocks, lf_rows, lf_rows_len, del_lf_rows, del_lf_rows_len, (lf_rows - del_lf_rows) gap_num_rows from user_index_stats where height >= 3 and (lf_rows > 0 and del_lf_rows/lf_rows >= 0.2) order by height desc, del_lf_rows/lf_rows desc) loop begin v_sql := 'alter index '||i.index_name||' rebuild online parallel 4'; execute immediate v_sql; v_sql := 'alter index '||i.index_name||' noparallel'; execute immediate v_sql; --dbms_output.put_line(i.index_name); update user_index_stats set rebuild_date = sysdate where index_name = i.index_name; commit; exception when others then v_Errmsg :=substr(dbms_utility.format_error_backtrace,1,150); v_Errmsg :=v_Errmsg||substr(dbms_utility.format_error_stack,1,150); update user_index_stats set comments = v_Errmsg where index_name = i.index_name; end; commit; end loop; end;
最新发布
08-27
/* Formatted on 2025/7/23 19:23:00 (QP5 v5.326) */ CREATE OR REPLACE PROCEDURE IMES.SP_MES_GET_STATION_INFO_V1 ( T_STATION_NAME IN VARCHAR2, T_LINE OUT VARCHAR2, T_STAGE OUT VARCHAR2, T_STATION_TYPE OUT VARCHAR2, T_MODEL OUT VARCHAR2, TRES OUT VARCHAR2) IS V_TEST_STATION_NAME VARCHAR2 (60); V_COUNT NUMBER; --modify by penn 2021/8/24 PDCA站点根据customer_station_type 转换为station_type --modify by ellis 2024/01/17 增加机种信息 --modify by dulin 2025/02/26 取消通过IMES.M_STATION.STATION_TYPE串 IMES.M_STATION_TYPE.stationtype_customer 逻辑 BEGIN TRES := 'OK'; SELECT A.LINE, A.STAGE, A.STATION_TYPE, B.MODEL INTO T_LINE, T_STAGE, T_STATION_TYPE, T_MODEL FROM IMES.M_STATION A, IMES.M_LINE B WHERE A.LINE = B.LINE AND A.STATION_NAME = T_STATION_NAME AND A.ENABLED = 'Y' AND B.ENABLED = 'Y' AND ROWNUM = 1; EXCEPTION WHEN NO_DATA_FOUND THEN SELECT SUBSTR (T_STATION_NAME, INSTR (T_STATION_NAME, '_', -1, 1) + 1) INTO V_TEST_STATION_NAME FROM DUAL; ---取客户站点 SELECT SUBSTR ( T_STATION_NAME, INSTR (T_STATION_NAME, '_', 1) + 1, INSTR (T_STATION_NAME, '_', INSTR (T_STATION_NAME, '_', 1) + 1) - INSTR (T_STATION_NAME, '_', 1) - 1) INTO T_LINE FROM DUAL; ----取线体 BEGIN SELECT A.STAGE, A.STATION_TYPE INTO T_STAGE, T_STATION_TYPE FROM IMES.M_STATION_TYPE A WHERE A.stationtype_customer = V_TEST_STATION_NAME AND ENABLED = 'Y' --AND STAGE = T_STAGE --抓取到客户站点只有一笔直接抓出,多个站点直接抓空 AND CLIENT_TYPE = 'PDCA' AND ROWNUM = 1; EXCEPTION WHEN OTHERS THEN T_LINE := T_LINE; T_STAGE := ''; T_STATION_TYPE := ''; TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE ('A0002', 'ZH', ''); END; WHEN OTHERS THEN --TRES := SQLERRM || '<' || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE || '>'; TRES := IMES.FN_MES_ERROR_CODE_TRANSLATE ( 'B0001', 'ZH', 'SP_MES_GET_STATION_INFO_V1' || SQLERRM || '<' || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE || '>'); END; /
07-24
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值