PL/SQL动态执行RAISE抛出异常语句时报错，寻求解决方案

你提交的原代码如下：

DECLARE
A EXCEPTION;
V_T VARCHAR2(1000);
BEGIN
SELECT ' RAISE A ' INTO V_T FROM DUAL;
EXECUTE  IMMEDIATE V_T;
EXCEPTION
WHEN A THEN
DBMS_OUTPUT.PUT_LINE('ABC');
END ;

存在的问题 #

核心逻辑无法正常运行，原因如下：

• 你声明的自定义异常A是当前PL/SQL块的本地对象，仅在当前块的静态执行上下文可见，而EXECUTE IMMEDIATE执行的动态SQL会单独开辟独立的执行上下文，无法访问当前块声明的本地异常，所以动态执行RAISE A的时候会直接报未定义异常的错误，无法被你当前块的EXCEPTION分支捕获。

修复方案 #

方案1：改用RAISE_APPLICATION_ERROR抛应用错误（适配必须用动态SQL的场景） #

用Oracle内置的公共错误抛出方法，避开本地自定义异常的上下文限制：

DECLARE
V_T VARCHAR2(1000);
BEGIN
-- 动态语句抛自定义错误码，自定义错误码可用范围为-20999~-20000
SELECT 'RAISE_APPLICATION_ERROR(-20001, ''触发自定义异常'')' INTO V_T FROM DUAL;
EXECUTE IMMEDIATE V_T;
EXCEPTION
WHEN OTHERS THEN
IF SQLCODE = -20001 THEN
DBMS_OUTPUT.PUT_LINE('ABC');
END IF;
END;

方案2：静态判断查询结果再抛异常（推荐，性能、可维护性更高） #

如果逻辑允许，不要把RAISE逻辑放在动态SQL中执行，先查询判断标记，再在当前块静态代码里抛异常，即可正常捕获：

DECLARE
A EXCEPTION;
V_FLAG NUMBER;
BEGIN
-- 此处替换为你的业务判断逻辑，满足异常触发条件返回1，否则返回0
SELECT 1 INTO V_FLAG FROM DUAL WHERE 1=1;
IF V_FLAG = 1 THEN
RAISE A;
END IF;
EXCEPTION
WHEN A THEN
DBMS_OUTPUT.PUT_LINE('ABC');
END;

内容的提问来源于stack exchange，提问作者Deepak Patil