PL/SQL包体DEPLETION_ERRORS_MONTHLY_PKG编译报错求助

错误原因 #

你遇到的PLS-00201和PLS-00304错误，核心原因是PL/SQL包必须先创建包规范（Package Specification），才能编译包体（Package Body）。包规范用来声明包对外暴露的过程、函数等元素，包体则负责实现具体逻辑。

需要提前创建的对象 #

除了包规范，你还需要确认以下对象已存在：

• 自定义记录类型 XXTRAINING_ERPTASK_REC_TYPE：用于封装单行数据
• 自定义表类型 XXTRAINING_ERPTASK_TBL_TYPE：用于存储多行记录（注意你代码里写的XXTRANING可能是拼写错误，应该和记录类型前缀一致）
• 数据表 TGC_INT016_INV_DEPL_FBDI：你的SQL查询依赖该表

1. 创建自定义类型（如果未存在） #

-- 创建记录类型
CREATE OR REPLACE TYPE XXTRAINING_ERPTASK_REC_TYPE AS OBJECT (
    subinventory VARCHAR2(100),
    source_ref VARCHAR2(200),
    item_number VARCHAR2(100),
    item_description VARCHAR2(200),
    error_msg VARCHAR2(4000),
    filename VARCHAR2(200),
    creation_date DATE,
    quantity_used NUMBER,
    quantity_wasted NUMBER,
    INV_ITEM_FLAG VARCHAR2(10),
    INV_CATEGORY_NAME VARCHAR2(200)
);
/

-- 创建表类型
CREATE OR REPLACE TYPE XXTRAINING_ERPTASK_TBL_TYPE AS TABLE OF XXTRAINING_ERPTASK_REC_TYPE;
/

2. 创建包规范 #

包规范需要声明RUN_SQL过程的参数和返回类型，必须和包体中的定义完全匹配：

CREATE OR REPLACE PACKAGE DEPLETION_ERRORS_MONTHLY_PKG AS
    PROCEDURE RUN_SQL(
        OFF_Set IN NUMBER,
        P_ERP_TBL OUT XXTRAINING_ERPTASK_TBL_TYPE,
        STATUS OUT VARCHAR2
    );
END DEPLETION_ERRORS_MONTHLY_PKG;
/

3. 修正并编译包体 #

注意包体中SQL语句的一处潜在问题：source_code||'-'||trx_reference (source_casenum_line) 看起来像是语法错误。如果trx_reference是字段名而非函数，应该改为source_code||'-'||trx_reference||'-'||source_casenum_line；如果是函数调用，确保该函数已存在。修正后的包体代码：

CREATE OR REPLACE PACKAGE BODY DEPLETION_ERRORS_MONTHLY_PKG AS
    PROCEDURE RUN_SQL(
        OFF_Set IN NUMBER,
        P_ERP_TBL OUT XXTRAINING_ERPTASK_TBL_TYPE,
        STATUS OUT VARCHAR2
    ) IS
    BEGIN
        SELECT XXTRAINING_ERPTASK_REC_TYPE(
            subinventory,
            source_code || '-' || trx_reference || '-' || source_casenum_line, -- 修正语法问题
            item_number,
            item_description,
            error_msg,
            filename,
            creation_date,
            quantity_used,
            quantity_wasted,
            INV_ITEM_FLAG,
            INV_CATEGORY_NAME
        )
        BULK COLLECT INTO P_ERP_TBL
        FROM TGC_INT016_INV_DEPL_FBDI
        WHERE status = 'ERROR'
          AND creation_date >= ADD_MONTHS(TRUNC(SYSDATE, 'mm'), -1)
          AND creation_date < TRUNC(SYSDATE, 'mm')
        ORDER BY CREATION_DATE
        OFFSET OFF_Set ROWS
        FETCH NEXT 10000 ROWS ONLY;

        STATUS := 'SUCCESS';
        -- 注意：这里的COMMIT不需要，因为你只是查询数据，没有DML操作
        -- COMMIT;

    EXCEPTION
        WHEN OTHERS THEN
            STATUS := 'FAIL';
            -- 建议添加错误日志，方便排查问题
            -- DBMS_OUTPUT.PUT_LINE('错误信息: ' || SQLERRM);
    END RUN_SQL;

END DEPLETION_ERRORS_MONTHLY_PKG;
/

额外提醒 #

• 去掉包体代码中多余的COMMIT：你的过程只有查询操作，不需要提交事务
• 建议在异常块中添加错误信息输出，方便后续排查问题
• 确认所有依赖的表、字段、函数都已存在且权限足够

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