常用错误处理模块.pptVIP

使用pl/sql：常用错误处理模块Pl/sql的dbms_utility.format_call_stack函数返回当前的调用堆栈，返回值是varchar2类型。下面的例子a调用b，b调用c。Createorreplaceprocedurecasv_callstackvarchar2(2000);Beginv_callstack:=dbms_utility.format_call_stack;insertintotemp_table(char_col)values(v_callstack);insertintotemp_table(num_col)values(-1);Endc;CreateorreplaceprocedurebasBeginc;Endb;CreateorreplaceprocedureaasbEnda;从temp_table中进行选择得到如下结果：----Pl/sqlcallstack---ObjectlineobjectHandlenumbername16998104procedureexample.c1699ca03procedureexample.b16919183procedureexample.a1667ef01anonymousblockDbms_utility.format_error_stack将返回当前的错误序列。有了这两个函数，就可以编写记录发生的错误位置和发生的是什么错误的通用错误处理器了。下面是这个包要用到的表定义Createtableerrors(modulevarchar2(50),seq_numbernumber,error_numbernumber,error_mesgvarchar2(100),error_stackvarchar2(2000),call_stackvarchar2(2000),timestampdate,primarykey(module,seq_number));Createtablecall_stacks(modulevarchar2(50),seq_numbernumber,call_ordernumber,object_handlevarchar2(10),line_numnumber,object_namevarchar2(80),primarykey(module,seq_number,call_order),foreignkey(module,seq_number)referenceserrorsondeletecascade);Droptableerror_stacks;Createtableerror_stacks(modulevarchar2(50),seq_numbernumber,error_ordernumber,facilitychar(3),error_numbernumber(5),error_mesgvarchar2(100),primarykey(module,seq_number,error_order),foreignkey(module,seq_number)referenceserrorsondeletecascade);Createsequenceerror_seqstartwith1incrementby1;下面给出errorpkg包的定义--这个包存储一般的错误信息在errors表中，分别存储详细的调用堆栈和错误堆栈在call_stacks和erors_stacks表中。Createorreplaceerrorpkgas--handleall应该被所有的想记录错误的例外处理器调用，---当最顶层的过程调用时，p_top参数为true，否则为false。procedurehandleall(p_topboolean);--对于给定的module和seq_number，用dbms_output打印--错误和调用堆栈