异常处理
当异常生成之后，程序被中止，控制权交给异常处理模块，异常处理模块捕获当前异常句柄，并交由相应的程序处理；如果，异常促里模块没有捕捉到异常句柄，那么它将被传输到当前程序的外围。
除非由一些特殊的要求，一般情况下异常将再当前程序的异常处理模块中被处理。异常处理模块以
EXCEPTION
开始
END;
结尾。
Declare
/*…………*/
begin
/*…………*/
exception
when /*
异常名称
*/
then /*
异常处理
*/
when other
then /*
异常处理
*/
end;
异常处理模块的语法基本上以
CASE
一致，凡是在
when
中有定义的异常都将被处理，而没有的则被传输。一个特殊的异常处理语句是
WHEN OTHERS
。就想在（
3
）中所说的，它会处理所有为被处理的异常，因此必须小心使用它，最好是在最外层的程序中。当然如果喜欢偷懒的，大可以在异常处理模块中只放一个
OTHERS
。注意，无论哪种情况，
OTHERS
只能这只在异常处理的最后一位。
有趣的是，可以在一个
when
中处理多个异常句柄。
Exception
When no_data_found or invalid_employee_id or dbms_ldap.invalid session
Then /*………..*/
End;
/
在这个例子里，有标准包的异常、自定义异常和非标准包中的异常。这些异常只能用
or
连接，不可以用
and
，因为只有一个异常能够生成。
非
raise_application_error
生成的异常，如果没有被处理而一直传递到系统环境中，那么环境将视情况作出相应的反映。在
sqlplus
中，
oracle
将回滚所有
DML
对数据所做的修改。在
sqlplus
环境中，因为有自动回滚的存在，我们可以保留出现未被处理的异常的可能性；而在另外的一些环境中，则需要仔细设计最外层程序。
ü
捕捉任何有可能传出的异常。
ü
记录错误以便于分析。
ü
给外部环境一个信息，以便于其作出相应的处理。
对于自定义异常，因为
sqlcode
值永远是
1
，所以当它被传出时，如果外围程序中没有定义相同名称的异常，我们将不知道是什么异常产生了。因此，不要将自定义异常传递出去。
在程序中处理几个互相独立的操作时，为了避免出现因为一个操作产生异常而使整个程序被中断的情况，有必要将这些独立的操作放在各自的虚拟块中。
Procedure change_data is
Begin
Begin
Delete from employee where …..
Exception
When others then null;
End;
Begin
Update company set …….
Exception
When others then null;
End;
Begin
Insert into company_history select * from company where ….
Exception
When others then null;
End;
End;
/
Pl/sql
提供了一些内建的函数来帮助我们确定、分析异常。
SQLCODE
这个函数在前面有提到过，它是一个用于返回当前模块中最近一次异常值的函数，或者说是非入栈程序的异常值。打个比方：如果在当前程序的异常模块中调用了另一个程序，
oracle
将当前程序及相应的环境变量（包括异常值）压入系统栈；在被调用程序中生成了一个值为
1
的异常，那么
sqlcode
将返回
1
；之后刚才的程序出栈，
sqlcode
返回当前异常值。需要注意的是，不要在异常模块之外使用它，这样不会有任何意义。当没有异常或在异常模块之外使用时，
SQLCODE
返回
0
；返回值
1
是指自定义异常。
SQLERRM
接收异常值，返回相应的长度不超过
512
字节的描述语。如果没有传入异常值，则返回当前异常描述。
Begin
Dbms_output.put_line( sqlerrm(-1403);
End;
Sql>/
Ora-1403: no data found
在需要体构长度超过
512
字节的描述时，
oracle
建议使用
dbms_utility.format_error_stack
。显然，用这个函数来判断一个异常是否为系统异常是很有用的，如果不是的话，将返回以下两种情况的一种。
如果是一个负数：
ora-nnnnn: message not found,; product=rdbms; facility=ora
如果是一个正数：
-nnnnn: non-oracle exception
DBMS_UTILITY.FORMAT_ERROR_STACK
返回当前异常相应的描述，没有字符长度限制。与
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
。
以下是正确使用这个函数的一些注意事项：
ü
在当前程序的异常处理模块中调用这个函数。
ü
避免在中间程序中使用异常处理模块。
这样异常就能被正确地传输到最外层程序中，并打印出这个过程了。