如何为多个FORALL语句分别处理异常？含不同数据集场景及报错排查

先来说说你遇到的两个语法错误：

1. PLS-00103 遇到EXCEPTION符号的错误：这是因为你直接在FORALL语句后写了EXCEPTION——PL/SQL的异常处理块必须属于一个完整的BEGIN...END代码块，不能直接跟在DML语句（包括FORALL）后面。你需要把每个FORALL包裹在独立的子块里，才能给它单独加异常处理。
2. end-of-file的错误：大概率是你的代码没写完，比如缺了某个END;来闭合块，或者某个语句没有正确结束，导致解析器读到文件末尾时还在找预期的语法元素。

接下来针对你的两个需求，给出具体实现方案：

需求1：为多个FORALL分别执行异常处理 #

最简单的方式是把每个FORALL封装在独立的BEGIN...EXCEPTION...END子块中，这样每个子块的异常不会影响其他FORALL的执行。示例代码如下：

DECLARE
  -- 定义两个不同的数据集类型（根据你的实际表结构调整）
  TYPE emp_id_list IS TABLE OF employees.employee_id%TYPE;
  TYPE dept_id_list IS TABLE OF departments.department_id%TYPE;

  -- 模拟两个不同的数据集（包含无效数据用于测试异常）
  emp_ids emp_id_list := emp_id_list(100, 101, 9999); -- 9999是不存在的员工ID
  dept_ids dept_id_list := dept_id_list(10, 20, 999); -- 999是不存在的部门ID
BEGIN
  -- 第一个FORALL的独立异常处理块
  BEGIN
    SAVEPOINT emp_sp; -- 可选：设置保存点，方便回滚当前操作
    FORALL i IN emp_ids.FIRST .. emp_ids.LAST
      INSERT INTO emp_backup (employee_id, create_date)
      VALUES (emp_ids(i), SYSDATE);
    DBMS_OUTPUT.PUT_LINE('第一个FORALL执行成功');
  EXCEPTION
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('第一个FORALL执行失败: ' || SQLERRM);
      ROLLBACK TO SAVEPOINT emp_sp; -- 仅回滚当前子块的操作
  END;

  -- 第二个FORALL的独立异常处理块
  BEGIN
    SAVEPOINT dept_sp;
    FORALL i IN dept_ids.FIRST .. dept_ids.LAST
      INSERT INTO dept_backup (department_id, create_date)
      VALUES (dept_ids(i), SYSDATE);
    DBMS_OUTPUT.PUT_LINE('第二个FORALL执行成功');
  EXCEPTION
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('第二个FORALL执行失败: ' || SQLERRM);
      ROLLBACK TO SAVEPOINT dept_sp;
  END;
END;
/

需求2：当两个INSERT的数据集不同时，为每个FORALL单独处理异常 #

如果需要更精细的错误处理（比如知道具体哪一行出错），可以结合SAVE EXCEPTIONS和SQL%BULK_EXCEPTIONS来捕获批量操作中的每一行错误。每个FORALL依然放在独立子块中，这样各自的错误信息不会混淆：

DECLARE
  TYPE emp_id_list IS TABLE OF employees.employee_id%TYPE;
  TYPE dept_id_list IS TABLE OF departments.department_id%TYPE;

  emp_ids emp_id_list := emp_id_list(100, 101, 9999);
  dept_ids dept_id_list := dept_id_list(10, 20, 999);

  -- 定义批量异常的标识符
  bulk_excep EXCEPTION;
  PRAGMA EXCEPTION_INIT(bulk_excep, -24381);
BEGIN
  -- 第一个FORALL的精细异常处理
  BEGIN
    FORALL i IN emp_ids.FIRST .. emp_ids.LAST SAVE EXCEPTIONS
      INSERT INTO emp_backup (employee_id) VALUES (emp_ids(i));
    DBMS_OUTPUT.PUT_LINE('第一个FORALL全部行执行成功');
  EXCEPTION
    WHEN bulk_excep THEN
      DBMS_OUTPUT.PUT_LINE('第一个FORALL共发现 ' || SQL%BULK_EXCEPTIONS.COUNT || ' 条错误:');
      FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
        DBMS_OUTPUT.PUT_LINE('行号: ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
                            ' 错误码: ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE ||
                            ' 错误信息: ' || SQLERRM(-SQL%BULK_EXCEPTIONS(j).ERROR_CODE));
      END LOOP;
  END;

  -- 第二个FORALL的精细异常处理
  BEGIN
    FORALL i IN dept_ids.FIRST .. dept_ids.LAST SAVE EXCEPTIONS
      INSERT INTO dept_backup (department_id) VALUES (dept_ids(i));
    DBMS_OUTPUT.PUT_LINE('第二个FORALL全部行执行成功');
  EXCEPTION
    WHEN bulk_excep THEN
      DBMS_OUTPUT.PUT_LINE('第二个FORALL共发现 ' || SQL%BULK_EXCEPTIONS.COUNT || ' 条错误:');
      FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
        DBMS_OUTPUT.PUT_LINE('行号: ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
                            ' 错误码: ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE ||
                            ' 错误信息: ' || SQLERRM(-SQL%BULK_EXCEPTIONS(j).ERROR_CODE));
      END LOOP;
  END;
END;
/

关键点说明： #

• 每个FORALL必须处于独立的BEGIN...END子块中，这样各自的异常处理只会作用于当前子块内的操作，不会中断整个程序或影响其他FORALL。
• 使用SAVE EXCEPTIONS时，PL/SQL会继续执行批量操作的剩余行，然后在结束时抛出异常，你可以通过SQL%BULK_EXCEPTIONS获取所有错误行的索引和错误码。
• 错误码-24381是PL/SQL批量操作异常的标准错误码，通过PRAGMA EXCEPTION_INIT将其绑定到自定义异常名上，方便捕获。

内容的提问来源于stack exchange，提问作者Phalani Kumar