如何查找包内存储过程中返回特定字段的所有REF CURSOR

一、针对强类型REF CURSOR（无需遍历源代码） #

强类型REF CURSOR会明确指定返回类型（比如基于自定义记录、表/视图的%ROWTYPE），这类可以通过数据字典视图关联查询：

1. 定位所有强类型REF CURSOR定义

SELECT t.type_name, t.elem_type_name, t.elem_type_owner
FROM user_types t
WHERE t.type_code = 'REF CURSOR';

其中elem_type_name是该游标对应的返回类型（自定义记录类型或表/视图名）。

2. 查询返回类型的字段信息

• 若返回类型为自定义记录类型：

SELECT t.type_name AS cursor_type, a.attr_name
FROM user_types t
JOIN user_attrs a ON t.type_name = a.type_name
WHERE t.type_code = 'REF CURSOR'
AND a.attr_name = '目标字段名'; -- 替换为你要查找的字段

• 若返回类型为表/视图的%ROWTYPE：

SELECT t.type_name AS cursor_type, c.column_name
FROM user_types t
JOIN user_tab_columns c ON t.elem_type_name = c.table_name
WHERE t.type_code = 'REF CURSOR'
AND c.column_name = '目标字段名'; -- 替换为你要查找的字段

3. 关联到对应的包和存储过程
   通过user_arguments找到使用该强类型REF CURSOR的存储过程：

SELECT DISTINCT ua.package_name, ua.object_name AS procedure_name, t.type_name AS cursor_type
FROM user_arguments ua
JOIN user_types t ON ua.data_type = t.type_name
WHERE t.type_code = 'REF CURSOR'
AND EXISTS (
    SELECT 1 FROM user_attrs a 
    WHERE a.type_name = t.elem_type_name AND a.attr_name = '目标字段名'
    UNION ALL
    SELECT 1 FROM user_tab_columns c 
    WHERE c.table_name = t.elem_type_name AND c.column_name = '目标字段名'
);

二、针对弱类型REF CURSOR（无完美无源码方案） #

弱类型REF CURSOR仅定义为REF CURSOR，无明确返回类型，Oracle不会在数据字典中存储其返回字段结构。这种情况下，可选方案有两种：

1. 解析user_source（你想避免的"暴力方式"，但最直接可靠）
2. 动态执行存储过程获取元数据（有风险，需确保存储过程无副作用、能模拟输入参数）

示例动态执行的PL/SQL框架：

DECLARE
    v_cursor SYS_REFCURSOR;
    v_cursor_id INTEGER;
    v_col_cnt INTEGER;
    v_desc_tab DBMS_SQL.DESC_TAB;
BEGIN
    -- 调用目标存储过程，传入模拟参数获取REF CURSOR
    your_package.your_procedure(p_param1 => '模拟值', p_out_cursor => v_cursor);
    
    v_cursor_id := DBMS_SQL.TO_CURSOR_NUMBER(v_cursor);
    DBMS_SQL.DESCRIBE_COLUMNS(v_cursor_id, v_col_cnt, v_desc_tab);
    
    -- 遍历字段检查目标字段
    FOR i IN 1..v_col_cnt LOOP
        IF v_desc_tab(i).col_name = '目标字段名' THEN
            DBMS_OUTPUT.PUT_LINE('找到目标字段：' || v_desc_tab(i).col_name || '，来自存储过程：your_package.your_procedure');
        END IF;
    END LOOP;
    
    DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
EXCEPTION
    WHEN OTHERS THEN
        DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
        RAISE;
END;
/

总结 #

• 强类型REF CURSOR可完全通过数据字典视图关联查询，无需遍历源代码；
• 弱类型REF CURSOR没有无需解析源码的完美方案，要么解析user_source，要么动态执行存储过程获取元数据。

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