Oracle存储过程间传递游标报错ORA-29471，求解决方案

先给你明确下，ORA-29471这个错误码虽然常和Java资源访问有关，但在你这种纯PL/SQL存储过程调用的场景里，几乎都是REF CURSOR的使用姿势不对导致的。结合你的代码结构，我给你梳理几个核心排查和解决方向：

1. 先确认REF CURSOR的状态是否正常 #

你在proc3里调用proc1拿到p2后传给proc2，首先得保证这个游标是打开状态，而且没被提前读取或关闭：

• 检查proc1内部有没有正确打开游标：必须有OPEN param2 FOR SELECT ...;这类语句，不能只声明游标却不打开就返回。
• 看看proc3里调用proc1之后、调用proc2之前，有没有对p2做过读取或者关闭操作——要是游标已经被关了或者数据读空了，再传给proc2肯定报错。

2. 核对参数类型和结果集匹配 #

虽然你都用了sys_refcursor，但细节不能马虎：

• 确保proc2的param3确实是IN SYS_REFCURSOR，别是自定义的强类型游标（比如TYPE my_cursor IS REF CURSOR;），弱类型和强类型之间不能直接传递。
• 如果proc2要读取游标里的数据，得保证proc1返回的结果集结构和proc2的读取逻辑匹配——比如列数、数据类型得对应上，不然也可能间接触发类似错误。

3. 排查权限和依赖问题 #

有时候权限不足或者存储过程依赖失效也会搞出这个错误：

• 确认执行proc3的用户对proc1、proc2有EXECUTE权限，同时能访问proc1查询的那些表。
• 试试重新编译下存储过程：执行ALTER PROCEDURE proc1 COMPILE;和ALTER PROCEDURE proc2 COMPILE;，再跑proc3看看——依赖失效的情况很常见，重新编译就能解决。

4. 加调试语句定位问题 #

要是前面的步骤都没找到问题，那就加调试代码揪出根源：

• 在proc3里调用proc1之后，先判断游标状态：

  proc1(p1, p2);
  IF p2%ISOPEN THEN
    DBMS_OUTPUT.PUT_LINE('游标处于打开状态');
    proc2(p2);
  ELSE
    DBMS_OUTPUT.PUT_LINE('游标已经关闭了！');
  END IF;
  

• 也可以在proc2开头加日志，确认游标是否正常传入，比如打印游标的%ISOPEN状态。

5. 注意Oracle游标传递的限制 #

Oracle对REF CURSOR的传递有几个隐性限制，别踩坑：

• 不能在分布式事务里传递游标，要是你的存储过程涉及跨数据库调用，得调整逻辑。
• 别在游标已经绑定到其他变量或者上下文的情况下传递，比如已经把游标绑定到某个应用程序变量，再传给存储过程就会出问题。

最后给你贴个正确的示例代码参考，你可以对照调整自己的存储过程：

CREATE OR REPLACE PROCEDURE proc1(param1 IN VARCHAR2, param2 OUT SYS_REFCURSOR) IS
BEGIN
  -- 必须明确打开游标，指定查询语句
  OPEN param2 FOR 
    SELECT column1, column2 FROM your_table WHERE filter_col = param1;
END proc1;
/

CREATE OR REPLACE PROCEDURE proc2(param3 IN SYS_REFCURSOR) IS
  v_col1 VARCHAR2(50);
  v_col2 NUMBER;
BEGIN
  -- 循环读取游标数据
  LOOP
    FETCH param3 INTO v_col1, v_col2;
    EXIT WHEN param3%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE('读取到数据：' || v_col1 || ' - ' || v_col2);
  END LOOP;
  -- 注意：这里不要关闭游标，因为游标是proc3创建的，应该由proc3负责关闭
END proc2;
/

CREATE OR REPLACE PROCEDURE proc3 IS
  p1 VARCHAR2(50) := '测试值';
  p2 SYS_REFCURSOR;
BEGIN
  proc1(p1, p2);
  proc2(p2);
  -- 最后记得关闭游标，避免资源泄漏
  CLOSE p2;
EXCEPTION
  WHEN OTHERS THEN
    -- 异常处理里也要确保游标关闭
    IF p2%ISOPEN THEN
      CLOSE p2;
    END IF;
    RAISE; -- 把异常抛出去，方便排查
END proc3;
/

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