Oracle中如何在存储过程内调用多个存储过程并正确返回结果？

云上老周

2026-4-30

解决Oracle存储过程合并多个SP结果返回的问题

看起来你遇到的核心问题是未正确初始化复合类型变量以及局部类型无法在外部传递，导致即使原SP有数据，新SP的输出变量也为空。下面我会一步步分析问题并给出可运行的解决方案：

问题根源分析

未初始化RECORD对象：PL/SQL中，RECORD类型的变量默认是NULL，直接访问它的属性（比如P_RESULT_PPT.P_NOMBRES）会触发ORA-06530: Reference to uninitialized composite错误，即使你没看到报错，也会导致属性无法被正确赋值。
局部类型的局限性：如果你的RESULT_DOCUMENTO和RESULT_DOCUMENTOS是定义在存储过程内部的局部类型，外部调用者无法识别这些类型，导致输出参数无法正常传递数据。
异常未处理：原SP如果查询不到数据，可能抛出NO_DATA_FOUND异常，一旦触发会中断整个新SP的执行，导致后续SP无法被调用，结果也无法返回。

解决方案：使用包规范定义全局类型+异常处理

步骤1：在包规范中定义全局类型

首先将自定义类型移到包规范中，确保外部可以访问：

CREATE OR REPLACE PACKAGE PKG_DOCUMENTOS IS
    -- 定义单个文档的结构
    TYPE RESULT_DOCUMENTO IS RECORD (
        P_NOMBRES VARCHAR2(80),
        P_PRIMER_APELLIDO VARCHAR2(30),
        P_SEGUNDO_APELLIDO VARCHAR2(30),
        P_FECHA_NACIMIENTO_SALIDA DATE,
        P_NACIONALIDAD_SALIDA VARCHAR2(200),
        P_TIPO_DOCUMENTO_SALIDA VARCHAR2(200),
        P_NUM_DOCUMENTO_SALIDA VARCHAR2(200),
        P_FECHA_EXPEDICION DATE,
        P_FECHA_VENCIMIENTO DATE,
        P_ESTADO VARCHAR2(200),
        P_SEXO VARCHAR2(1)
    );
    -- 定义文档列表类型
    TYPE RESULT_DOCUMENTOS IS TABLE OF RESULT_DOCUMENTO;

    -- 合并查询的存储过程
    PROCEDURE PR_CONSULTAR_DOC_PPT_CE_PEP(
        P_TIPO_DOCUMENTO IN VARCHAR2,
        P_NUMERO_DOC IN VARCHAR2,
        P_FECHA_NACIMIENTO IN DATE,
        P_NACIONALIDAD IN VARCHAR2,
        P_TRAMITES IN VARCHAR2,
        P_DOCUMENTOS OUT RESULT_DOCUMENTOS
    );
END PKG_DOCUMENTOS;
/

步骤2：实现包体中的存储过程

在包体中处理每个原SP的调用，初始化RECORD对象，捕获异常，并合并有效结果：

CREATE OR REPLACE PACKAGE BODY PKG_DOCUMENTOS IS
    PROCEDURE PR_CONSULTAR_DOC_PPT_CE_PEP(
        P_TIPO_DOCUMENTO IN VARCHAR2,
        P_NUMERO_DOC IN VARCHAR2,
        P_FECHA_NACIMIENTO IN DATE,
        P_NACIONALIDAD IN VARCHAR2,
        P_TRAMITES IN VARCHAR2,
        P_DOCUMENTOS OUT RESULT_DOCUMENTOS
    ) AS
        v_ppt_result RESULT_DOCUMENTO;
        v_ce_result RESULT_DOCUMENTO;
        v_pep_result RESULT_DOCUMENTO;
    BEGIN
        -- 初始化每个RECORD对象，避免未初始化错误
        v_ppt_result := NULL;
        v_ce_result := NULL;
        v_pep_result := NULL;

        -- 调用第一个SP，独立捕获异常
        BEGIN
            PR_CONSULTAR_DOC_PPT_GEN(
                P_TIPO_DOCUMENTO,
                P_NUMERO_DOC,
                P_FECHA_NACIMIENTO,
                P_NACIONALIDAD,
                P_TRAMITES,
                v_ppt_result.P_NOMBRES,
                v_ppt_result.P_PRIMER_APELLIDO,
                v_ppt_result.P_SEGUNDO_APELLIDO,
                v_ppt_result.P_FECHA_NACIMIENTO_SALIDA,
                v_ppt_result.P_NACIONALIDAD_SALIDA,
                v_ppt_result.P_TIPO_DOCUMENTO_SALIDA,
                v_ppt_result.P_NUM_DOCUMENTO_SALIDA,
                v_ppt_result.P_FECHA_EXPEDICION,
                v_ppt_result.P_FECHA_VENCIMIENTO,
                v_ppt_result.P_ESTADO,
                v_ppt_result.P_SEXO
            );
        EXCEPTION
            WHEN NO_DATA_FOUND THEN
                -- 无数据时将RECORD置为NULL
                v_ppt_result := NULL;
        END;

        -- 调用第二个SP
        BEGIN
            PR_CONSULTAR_DOC_CE_GEN(
                P_TIPO_DOCUMENTO,
                P_NUMERO_DOC,
                P_FECHA_NACIMIENTO,
                P_NACIONALIDAD,
                P_TRAMITES,
                v_ce_result.P_NOMBRES,
                v_ce_result.P_PRIMER_APELLIDO,
                v_ce_result.P_SEGUNDO_APELLIDO,
                v_ce_result.P_FECHA_NACIMIENTO_SALIDA,
                v_ce_result.P_NACIONALIDAD_SALIDA,
                v_ce_result.P_TIPO_DOCUMENTO_SALIDA,
                v_ce_result.P_NUM_DOCUMENTO_SALIDA,
                v_ce_result.P_FECHA_EXPEDICION,
                v_ce_result.P_FECHA_VENCIMIENTO,
                v_ce_result.P_ESTADO,
                v_ce_result.P_SEXO
            );
        EXCEPTION
            WHEN NO_DATA_FOUND THEN
                v_ce_result := NULL;
        END;

        -- 调用第三个SP（注意参数需匹配原SP定义）
        BEGIN
            PR_CONSULTAR_PEP_GEN(
                P_TIPO_DOCUMENTO,
                P_NUMERO_DOC,
                P_FECHA_NACIMIENTO,
                P_NACIONALIDAD,
                v_pep_result.P_NOMBRES,
                v_pep_result.P_PRIMER_APELLIDO,
                v_pep_result.P_SEGUNDO_APELLIDO,
                v_pep_result.P_FECHA_NACIMIENTO_SALIDA,
                v_pep_result.P_NACIONALIDAD_SALIDA,
                v_pep_result.P_TIPO_DOCUMENTO_SALIDA,
                v_pep_result.P_NUM_DOCUMENTO_SALIDA,
                v_pep_result.P_FECHA_EXPEDICION,
                v_pep_result.P_FECHA_VENCIMIENTO,
                v_pep_result.P_ESTADO,
                v_pep_result.P_SEXO
            );
        EXCEPTION
            WHEN NO_DATA_FOUND THEN
                v_pep_result := NULL;
        END;

        -- 初始化结果表并填充有效数据
        P_DOCUMENTOS := RESULT_DOCUMENTOS();
        IF v_ppt_result.P_NOMBRES IS NOT NULL THEN
            P_DOCUMENTOS.EXTEND;
            P_DOCUMENTOS(P_DOCUMENTOS.LAST) := v_ppt_result;
        END IF;
        IF v_ce_result.P_NOMBRES IS NOT NULL THEN
            P_DOCUMENTOS.EXTEND;
            P_DOCUMENTOS(P_DOCUMENTOS.LAST) := v_ce_result;
        END IF;
        IF v_pep_result.P_NOMBRES IS NOT NULL THEN
            P_DOCUMENTOS.EXTEND;
            P_DOCUMENTOS(P_DOCUMENTOS.LAST) := v_pep_result;
        END IF;

        -- 可选：如果所有SP都无数据，抛出异常或返回空表
        IF P_DOCUMENTOS.COUNT = 0 THEN
            -- RAISE NO_DATA_FOUND;
            NULL;
        END IF;
    END PR_CONSULTAR_DOC_PPT_CE_PEP;
END PKG_DOCUMENTOS;
/

进阶方案：使用SQL对象类型实现可查询的结果集

如果你希望在SQL中直接查询合并后的结果，可以改用SQL对象类型（而非PL/SQL RECORD）：

-- 创建单个文档的SQL对象
CREATE OR REPLACE TYPE OBJ_DOCUMENTO AS OBJECT (
    P_NOMBRES VARCHAR2(80),
    P_PRIMER_APELLIDO VARCHAR2(30),
    P_SEGUNDO_APELLIDO VARCHAR2(30),
    P_FECHA_NACIMIENTO_SALIDA DATE,
    P_NACIONALIDAD_SALIDA VARCHAR2(200),
    P_TIPO_DOCUMENTO_SALIDA VARCHAR2(200),
    P_NUM_DOCUMENTO_SALIDA VARCHAR2(200),
    P_FECHA_EXPEDICION DATE,
    P_FECHA_VENCIMIENTO DATE,
    P_ESTADO VARCHAR2(200),
    P_SEXO VARCHAR2(1)
);
/

-- 创建文档列表的SQL类型
CREATE OR REPLACE TYPE TAB_DOCUMENTOS IS TABLE OF OBJ_DOCUMENTO;
/

然后创建返回该类型的函数，即可在SQL中直接调用：

SELECT * FROM TABLE(PKG_DOCUMENTOS.FN_CONSULTAR_DOC_PPT_CE_PEP('DNI', '12345678', TO_DATE('01/01/1990', 'DD/MM/YYYY'), 'PERU', 'TRAMITE1'));

关键注意事项

确保原存储过程的参数与你传递的RECORD属性完全匹配，包括参数顺序和数据类型。
每个原SP的调用都包裹在独立的异常块中，避免一个SP的错误中断整个流程。
如果需要外部程序（如Java、Python）调用，优先使用SQL对象类型，因为PL/SQL RECORD在跨语言调用中支持性较差。

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

Oracle中如何在存储过程内调用多个存储过程并正确返回结果？

问题根源分析 #

解决方案：使用包规范定义全局类型+异常处理 #

步骤1：在包规范中定义全局类型 #

步骤2：实现包体中的存储过程 #

进阶方案：使用SQL对象类型实现可查询的结果集 #