PL/SQL错误处理存储过程声明失败，调用EXEC提示未声明

核心错误原因 #

1. 过程作用域失效：第一个DECLARE块里定义EXEC过程后用了/，这会让SQL*Plus直接执行第一个块并结束，后面的代码变成独立的新块，完全访问不到之前定义的EXEC过程，所以触发"EXEC未声明"的错误。
2. 字符串拼接错误：调用EXEC时的SQL语句写死了''||ct_tab_prpc_data(v_idx)||''，这会把变量名和拼接符当成SQL的一部分，实际执行时会报错。
3. 变量类型不匹配：v_idx定义为VARCHAR2(30)，但集合的索引是数字类型，会导致编译或运行时类型错误。

修正后的完整代码 #

DECLARE
  PROCEDURE EXEC (i_statement IN VARCHAR2, i_ignore IN NUMBER DEFAULT NULL, i_ignore2 IN NUMBER DEFAULT NULL)
  IS
  BEGIN
    EXECUTE IMMEDIATE i_statement;  
  EXCEPTION
    WHEN OTHERS THEN
      IF SQLCODE = i_ignore THEN 
        NULL;
      ELSIF SQLCODE = i_ignore2 THEN 
        NULL;
      ELSE
        RAISE;
      END IF;
  END EXEC;

  TYPE tt_table_name IS TABLE OF VARCHAR2(30);
  -- 需要添加列的表列表
  ct_tab_prpc_data tt_table_name := tt_table_name (
    'PR_OPERATORS_BKP2',
    'PR_OPERATORS_BKP3',
    'PR_OPERATORS_BKP4'
  );

  v_db_name     VARCHAR2(30);
  v_schema_name VARCHAR2(30) := USER;
  v_idx         PLS_INTEGER; -- 集合索引用数字类型
BEGIN
  SELECT UPPER(SYS_CONTEXT('USERENV', 'DB_NAME')) INTO v_db_name FROM DUAL;
  
  v_idx := ct_tab_prpc_data.FIRST;
  WHILE v_idx IS NOT NULL LOOP
    -- 正确拼接动态SQL，把变量代入表名
    EXEC(
      'ALTER TABLE ' || ct_tab_prpc_data(v_idx) || ' ADD (CSCLEVEL VARCHAR2(500))',
      -1430, -- 去掉前面的0，直接写错误码
      -942
    );
    v_idx := ct_tab_prpc_data.NEXT(v_idx);
  END LOOP;
END;
/

关键改动说明 #

• 移除了第一个DECLARE块中EXEC过程后的/，并把所有变量、类型和过程放在同一个DECLARE块里，保证作用域统一。
• 修正了动态SQL的拼接方式，直接用||把表名变量拼接到SQL语句中，避免把变量名当成字符串内容。
• 将v_idx的类型改为PLS_INTEGER，匹配集合索引的数字类型要求。
• 错误码去掉了前面的冗余0，Oracle会识别标准的负整数错误码。

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