如何在PL/SQL异常抛出后终止Oracle后续PL/SQL代码执行？

这个问题的核心在于你当前的checkVariables过程自己捕获了异常并处理，所以执行完提示信息后过程会正常结束，后续代码自然会继续跑。要实现终止后续代码的效果，有两种常用的思路，我给你详细拆解：

方案一：让异常向上传播，在主调用块中控制流程 #

这种方式更灵活，适合需要在主逻辑里统一处理异常的场景。

步骤1：修改checkVariables，移除内部的EXCEPTION捕获块 #

把原来的异常处理去掉，让自定义异常向上抛给调用方：

PROCEDURE checkVariables IS
 r_Var1 exception;
 r_Var2 exception;
BEGIN
 If g_Name is null then RAISE r_Var1;
 End if;
 If g_Prefix is null then RAISE r_Var2;
 End if;
 DBMS_OUTPUT.PUT_LINE('Variables Set Up');
END;

步骤2：在主执行块中捕获异常，避免后续代码执行 #

把所有要执行的过程放在一个PL/SQL块里，用EXCEPTION块捕获异常，这样当checkVariables抛异常时，后续的procedure3和procedure4就不会被调用：

BEGIN
 procedure1;
 procedure2;
 checkVariables; -- 这里抛出异常，直接进入EXCEPTION块
 procedure3; -- 不会执行
 procedure4; -- 不会执行
EXCEPTION
 When checkVariables.r_Var1 then 
   DBMS_OUTPUT.PUT_LINE('Missing g_Name');
 When checkVariables.r_Var2 then 
   DBMS_OUTPUT.PUT_LINE('Missing g_Prefix');
 When others then
   DBMS_OUTPUT.PUT_LINE('Unexpected error: ' || SQLERRM);
END;
/

方案二：在checkVariables内部抛出不可恢复的系统级异常 #

如果你不想修改调用逻辑，只想在checkVariables抛异常时直接中断整个执行流程，可以用RAISE_APPLICATION_ERROR函数，它会抛出一个Oracle预定义的异常，且默认会终止当前会话的执行（除非调用方特意捕获，但一般不会这么做）。

修改后的checkVariables代码：

PROCEDURE checkVariables IS
BEGIN
 If g_Name is null then 
   DBMS_OUTPUT.PUT_LINE('Missing g_Name');
   RAISE_APPLICATION_ERROR(-20001, 'Missing g_Name - execution terminated');
 End if;
 If g_Prefix is null then 
   DBMS_OUTPUT.PUT_LINE('Missing g_Prefix');
   RAISE_APPLICATION_ERROR(-20002, 'Missing g_Prefix - execution terminated');
 End if;
 DBMS_OUTPUT.PUT_LINE('Variables Set Up');
END;

这样当checkVariables触发异常时，输出提示信息后，RAISE_APPLICATION_ERROR会直接中断后续所有代码的执行，不管调用方有没有捕获异常（我们通常用-20000到-20999之间的自定义错误码，避免和系统内置错误冲突）。

两种方案对比 #

• 方案一：更可控，主逻辑可以根据不同异常做不同处理，甚至在某些情况下跳过部分异常继续执行，适合复杂的业务流程。
• 方案二：更直接，不需要修改调用方的代码，适合简单的脚本或需要严格终止执行的场景。

内容的提问来源于stack exchange，提问作者4est