Oracle pragma 举例: exception_init（）

PRAGMA EXCEPTION_INIT（DEADLOCK_DETECTED, -60）;EXCEPTION_INIT编译指令，从字面意思上我们能了解一点，即EXCEPTION的初始化。语法也简单，PRAGMA EXCEPTION （exception_name, error_number）;大家都有经验，在处理EXCEPTION 是，当没有已经定义好了的EXCEPTION NAME可用时，我们就用OTHERS来处理未被捕捉的所有的EXCEPTION，PL/SQL设计者建议大家尽量使用已知的EXCEPTION NAME来捕捉，不到最后，尽量不用这个选项，虽然不知道为什么，但估计是跟性能有关，而且编译出来的代码应该会很长。这个编译指令的引入也为这带来了解决方案。比如，我们要捕捉死锁这个EXCEPTION怎么办？系统没有预定义好的EXCEPTION NAME可用。这时我们就可以用这个编译指令了。我们知道ora-60错误是代表死锁的意思，www.linuxidc.com那我们就可以为这个错误号起一个EXCEPTION NAME，比如DEADLOCK_DETECTED，语法如下：DECLARE
DEADLOCK_DETECTED EXCEPTION;
PRAGMA EXCEPTION_INIT（DEADLOCK_DETECTED, -60）;好我们就可以像下面一样来捕捉处理这个死锁的EXCEPTION了。EXCEPTION
WHEN DEADLOCK_DETECTED THEN
......这样，我们就避免了用when others then来捕捉处理这个异常了。这个编译指令几乎可以用在所有的程序的声明项中，但要注意作用范围，另外要注意的是记住只为一个错误号起一个EXCEPTION NAME。下面附上一段通过SQLERRM函数找出Oracle预定义的错误号码及相应的错误信息。这在10g版本通过，在之前的版本可能会报buffer overflow错误，这是由于set serveroutput on默认为2000字节，但在10g中默认是unlimited了。SET SERVEROUTPUT ON
SPOOL ERRORMSG.LOG
DECLARE
VMSG VARCHAR2（500）;
BEGIN
FOR I IN 0..20000 LOOP
VMSG := SQLERRM（-I）;
IF INSTR（VMSG,"not found"） = 0 THEN
DBMS_OUTPUT.PUT_LINE（VMSG）;
END IF;
END LOOP;
END;
/SPOOL OFF---------------www.linuxidc.com再加一个例子---------------下面看一个例子create or replace procedure SP_Del_Test
（P_ItemAdmin in mfitem.itemadmin%type, --ItemAdmin
P_ItemCd    in mfitem.itemcd%type, --ItemCode
P_Return    out number --输出参数
） is
exp exception;
PRAGMA Exception_Init（exp, -2292）;
begin
delete from mfitem t
   where t.itemcd = P_ItemCd
     and t.itemadmin = P_ItemAdmin; --这一句会引发-2292异常，有级连删除异常
EXCEPTION
WHEN EXP THEN
    P_Return := 9;
    ROLLBACK;
WHEN OTHERS THEN
    ROLLBACK;
end SP_Del_Test; Oracle函数（把每个单词首个字母变为大写）Oracle 收缩表大小 Oracle Shrink Table相关资讯 oracle

[INS-32052] Oracle基目录和Oracle （07/22/2014 07:41:41）
Oracle 4个大对象（lobs）数据类型（02/03/2013 12:33:05）
Oracle按时间段分组统计（07/26/2012 10:36:48）

[Oracle] dbms_metadata.get_ddl的（07/12/2013 07:37:30）
Liferay Portal 配置使用Oracle和（07/31/2012 20:07:18）
Concurrent Request:Inactive （07/20/2012 07:44:05）

本文评论查看全部评论（0）