Oracle存储过程抛出自定义异常后循环终止问题求助

安全阿岳

2026-9-30

问题解决方法

问题根源

你当前的异常捕获块包裹了整个表遍历循环，只要任意一个表处理时抛出-20100错误，整个循环块会直接终止，跳转到异常处理逻辑，剩余的表就不会继续处理了。

修改方案

将异常捕获的嵌套块移动到循环内部，仅包裹单表的处理逻辑，这样单表异常只会中断当前表的处理，不会影响后续循环执行。

修改后的代码（对应原存储过程的表创建循环部分）

-- 原嵌套块外层的代码无需改动，仅替换循环部分即可
FOR CurrentRow IN TablesSelected LOOP
  -- 单表处理的嵌套块，异常仅作用于当前表
  DECLARE
    INVALID_COLUMN_EXCEPTION EXCEPTION;
    PRAGMA EXCEPTION_INIT(INVALID_COLUMN_EXCEPTION, -20100);
  BEGIN
    wLengthOfStatement := LENGTH('CREATE TABLE' || CurrentRow.Table_Name || ' ' || '); -- ');
    wLeftPadTableName := LPAD('); -- ', wLengthOfStatement, ' ');
    DBMS_OUTPUT.PUT_LINE( '--   Start extracting table ' || CurrentRow.Table_Name);
    DBMS_OUTPUT.PUT_LINE('CREATE TABLE ' || CurrentRow.Table_Name || '( ');
    Extract_Columns(CurrentRow.Table_Name);
    DBMS_OUTPUT.PUT_LINE(wLeftPadTableName || 'END of table ' || CurrentRow.Table_Name || ' creation');
    DBMS_OUTPUT.PUT_LINE( '--' );
    DBMS_OUTPUT.PUT_LINE( '--' );
  EXCEPTION
    WHEN INVALID_COLUMN_EXCEPTION THEN
      DBMS_OUTPUT.PUT_LINE('================================================================================');   
      DBMS_OUTPUT.PUT_LINE('== EXCEPTION ' || SQLCODE || ' Raised - ' || SQLERRM);
      DBMS_OUTPUT.PUT_LINE('== Unable to complete table generation for ' || CurrentRow.Table_Name);
      DBMS_OUTPUT.PUT_LINE('================================================================================');
  END;
END LOOP;