Oracle PL/SQL如何在一个存储过程内部调用另一个存储过程

首先明确Oracle语法硬限制：FORALL是SQL层批量DML语法，不支持在VALUES列表中直接调用存储过程。存储过程属于PL/SQL层程序单元，仅能在PL/SQL执行块中调用，无法直接嵌入SQL表达式位置，需要根据你的性能需求选择对应方案实现。

前置准备：规范被调用存储过程sp_pro2的接口 #

要让sp_pro2返回temp2表c3字段需要的插入值，sp_pro2需要定义入参接收业务数据、通过OUT参数返回计算结果，通用结构参考：

CREATE OR REPLACE PROCEDURE sp_pro2(
  P_BIZ_PARAM IN NUMBER, -- 入参：传入当前待插入行关联的业务字段（比如temp1表的对应字段）
  P_INSERT_VALUE OUT VARCHAR2 -- 出参：返回c3字段需要插入的值
) AS
BEGIN
  -- 此处写sp_pro2原有业务逻辑
  P_INSERT_VALUE := '业务计算得到的c3字段值';
END;
/

补充：如果sp_pro2内部没有DML、事务控制等违反SQL调用函数规范的逻辑，你可以直接把它改写为带RETURN值的自定义函数，就可以直接在FORALL的VALUES列表中调用，不需要调整循环结构，性能最优。函数参考结构：

CREATE OR REPLACE FUNCTION fn_pro2(P_BIZ_PARAM IN NUMBER) RETURN VARCHAR2 IS
V_RES VARCHAR2(100);
BEGIN
 -- 原有业务逻辑
 RETURN V_RES;
END;
/

这种场景下原有FORALL逻辑无需改动，c3位置直接写fn_pro2(V_TYP1(i).对应业务字段)即可。

方案1：普通循环实现（适配小数据量，逻辑最简单） #

如果单批处理数据量不大，直接把FORALL批量语句改成普通FOR循环，在循环内先调用sp_pro2拿到返回值，再执行插入，不需要复杂改造：

CREATE OR REPLACE PROCEDURE pro1 (
        P_ID NUMBER,
        P_USID NUMBER,
        P_MSG OUT VARCHAR2 )
    AS 
      V_EXCEP       EXCEPTION;
      V_ERR_MSG     VARCHAR2(1000); 
      V_C3_VAL      VARCHAR2(100); -- 接收sp_pro2返回的c3插入值
      CURSOR C1 IS SELECT * FROM temp1 WHERE temp1.id=P_ID;      
      TYPE TYP1 IS TABLE OF C1%ROWTYPE;
      V_TYP1 TYP1 := TYP1();
    BEGIN        
      OPEN C1;
      LOOP
        FETCH C1 BULK COLLECT INTO V_TYP1 LIMIT 10000;
        EXIT WHEN V_TYP1.COUNT = 0;  
        BEGIN
          -- 替换原FORALL为普通循环，支持PL/SQL层调用存储过程
          FOR i IN 1..V_TYP1.COUNT LOOP  
            -- 嵌套调用sp_pro2，传入业务参数拿到c3值
            sp_pro2(V_TYP1(i).关联业务字段, V_C3_VAL);
            
            INSERT INTO temp2(c1,c2,c3,c4)
            VALUES (1,'2',V_C3_VAL,1);
          END LOOP;
        EXCEPTION
          WHEN OTHERS THEN
          v_err_msg :=  '插入temp2失败，错误信息：'||SQLERRM;
          P_MSG := V_ERR_MSG;
          RAISE v_excep;
         END;
      END LOOP;
      CLOSE C1;
      P_MSG := '执行成功';
    EXCEPTION
      WHEN V_EXCEP THEN
        IF C1%ISOPEN THEN CLOSE C1; END IF;
        RAISE;
      WHEN OTHERS THEN
        v_err_msg :=  '流程执行异常，错误信息：'||SQLERRM;
        P_MSG := V_ERR_MSG;
        IF C1%ISOPEN THEN CLOSE C1; END IF;
        RAISE;
    END;
/

方案2：预处理+FORALL批量插入（适配大数据量，保留高性能） #

如果数据量较大需要保留FORALL的批量插入性能，可以先循环调用sp_pro2把所有待插入行的c3值提前计算存入集合，再用FORALL一次性批量插入，兼顾存储过程调用和批量性能：

CREATE OR REPLACE PROCEDURE pro1 (
        P_ID NUMBER,
        P_USID NUMBER,
        P_MSG OUT VARCHAR2 )
    AS 
      V_EXCEP       EXCEPTION;
      V_ERR_MSG     VARCHAR2(1000); 
      -- 定义集合存储sp_pro2计算出的所有c3值
      TYPE T_C3_TAB IS TABLE OF VARCHAR2(100) INDEX BY PLS_INTEGER;
      V_C3_TAB T_C3_TAB;
      CURSOR C1 IS SELECT * FROM temp1 WHERE temp1.id=P_ID;      
      TYPE TYP1 IS TABLE OF C1%ROWTYPE;
      V_TYP1 TYP1 := TYP1();
    BEGIN        
      OPEN C1;
      LOOP
        FETCH C1 BULK COLLECT INTO V_TYP1 LIMIT 10000;
        EXIT WHEN V_TYP1.COUNT = 0;  
        BEGIN
          -- 第一步：循环调用sp_pro2，预处理所有行的c3值
          FOR i IN 1..V_TYP1.COUNT LOOP
            sp_pro2(V_TYP1(i).关联业务字段, V_C3_TAB(i));
          END LOOP;
          
          -- 第二步：FORALL批量插入，直接取预处理好的c3值
          FORALL i IN 1..V_TYP1.COUNT         
            INSERT INTO temp2(c1,c2,c3,c4)
            VALUES (1,'2',V_C3_TAB(i),1);
        EXCEPTION
          WHEN OTHERS THEN
          v_err_msg :=  '插入temp2失败，错误信息：'||SQLERRM;
          P_MSG := V_ERR_MSG;
          RAISE v_excep;
         END;
      END LOOP;
      CLOSE C1;
      P_MSG := '执行成功';
    EXCEPTION
      WHEN V_EXCEP THEN
        IF C1%ISOPEN THEN CLOSE C1; END IF;
        RAISE;
      WHEN OTHERS THEN
        v_err_msg :=  '流程执行异常，错误信息：'||SQLERRM;
        P_MSG := V_ERR_MSG;
        IF C1%ISOPEN THEN CLOSE C1; END IF;
        RAISE;
    END;
/

原代码问题修正说明 #

• 移除了原代码中INTO temp2后误粘贴的enter code here无效字符
• 补全了原代码中OUT参数P_MSG的赋值逻辑，调用方可直接拿到执行/错误信息
• 异常处理中拼接了SQLERRM，可直接返回具体错误原因，方便排查问题
• 补全了游标异常关闭逻辑，避免游标泄漏

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