如何解决PL/SQL包编译错误？遇"Procedure created with compilation errors"警告

一、排查并修复编译错误 #

原代码存在以下导致编译失败的问题：

• 错误的代码结构：CREATE OR REPLACE语句不能嵌套在BEGIN...END块中，需删除首尾多余的BEGIN和END。
• 语法笔误：BuildVarrays过程中names(v_count) := emp_rec.ENAME;e一行末尾多了无用字符e，必须删除。
• VARRAY未初始化：包级变量names和salaries是VARRAY类型，使用前未初始化，会触发运行时错误，需提前修复。

二、修正后的完整代码 #

CREATE OR REPLACE PACKAGE ABC IS
  TYPE names_varray IS VARRAY(10) OF VARCHAR2(30);
  TYPE salaries_varray IS VARRAY(10) OF NUMBER;
  names   names_varray;
  salaries salaries_varray;

  PROCEDURE BuildVarrays;
  PROCEDURE DisplayEmpTop10SalariesInReverse;
END ABC;
/
CREATE OR REPLACE PACKAGE BODY ABC IS
  CURSOR c_emp_top_salaries
  IS
    SELECT ENAME, SAL
    FROM (SELECT ENAME, SAL FROM EMP ORDER BY SAL DESC)
    WHERE ROWNUM <= 10;

  PROCEDURE BuildVarrays
  IS
     v_count  NUMBER := 0;
  BEGIN
     -- 初始化VARRAY
     names := names_varray();
     salaries := salaries_varray();
     FOR emp_rec IN c_emp_top_salaries LOOP
        v_count := v_count + 1;
        -- 扩展VARRAY容量以容纳新元素
        names.EXTEND;
        salaries.EXTEND;
        names(v_count)   := emp_rec.ENAME;
        salaries(v_count) := emp_rec.SAL;
     END LOOP;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE('错误：未找到员工数据');
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('BuildVarrays过程出错：' || SQLERRM);
  END BuildVarrays;

  PROCEDURE DisplayEmpTop10SalariesInReverse
  IS
    -- 自定义异常：处理VARRAY为空的场景
    EMPTY_VARRAY_EXCEPTION EXCEPTION;
    v_max_index NUMBER;
  BEGIN
    v_max_index := names.COUNT;
    IF v_max_index = 0 THEN
      RAISE EMPTY_VARRAY_EXCEPTION;
    END IF;
    -- 按实际元素数量循环，避免索引越界
    FOR i IN REVERSE 1..v_max_index LOOP
       DBMS_OUTPUT.PUT_LINE('员工姓名: ' || names(i) || '  薪资: ' || salaries(i));
    END LOOP;
  EXCEPTION
    WHEN EMPTY_VARRAY_EXCEPTION THEN
      DBMS_OUTPUT.PUT_LINE('错误：没有可显示的员工薪资数据');
    WHEN SUBSCRIPT_BEYOND_COUNT THEN
      DBMS_OUTPUT.PUT_LINE('错误：索引超出VARRAY实际元素范围');
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('Display过程出错：' || SQLERRM);
  END DisplayEmpTop10SalariesInReverse;

END ABC;
/
-- 调用包过程
BEGIN
   ABC.BuildVarrays;
   ABC.DisplayEmpTop10SalariesInReverse;
END;
/

三、关键优化与异常处理说明 #

• VARRAY初始化与扩展：VARRAY需先通过names_varray()初始化，再用EXTEND方法动态扩展容量（不超过定义的最大长度10），避免"集合未初始化"错误。
• 自定义异常：在DisplayEmpTop10SalariesInReverse中定义EMPTY_VARRAY_EXCEPTION，专门处理无员工数据的场景，提升代码可读性。
• 预定义异常捕获：捕获SUBSCRIPT_BEYOND_COUNT（索引越界）、NO_DATA_FOUND（无数据）等Oracle预定义异常，用WHEN OTHERS兜底处理未知错误，通过SQLERRM输出具体错误信息。
• 循环范围优化：不再固定循环1到10，而是用names.COUNT获取实际元素数量，避免员工不足10个时出现索引越界错误。

四、编译与运行验证 #

1. 执行代码时，每个CREATE OR REPLACE语句后加/，确保SQL工具正确编译包规范和包体。
2. 启用DBMS_OUTPUT（如SET SERVEROUTPUT ON;），查看运行时的结果或错误提示。

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