Oracle SQL存储过程中存储包函数返回值并打印的方法

一、将包函数返回值存入存储过程变量的方法 #

在Oracle存储过程里调用包函数，没必要绕弯用游标或动态SQL，直接调用赋值是最简洁安全的方式；如果是动态场景必须用游标/动态SQL，也要注意规范使用。

1. 直接调用赋值（推荐） #

如果包函数的参数是确定的，直接把函数返回值赋值给变量即可，完全不需要游标或动态SQL：

v_result := PKG_LIST_LOG.abc(name, id, label);

这种方式没有SQL注入风险，代码更简洁，性能也更好。

2. 用游标获取返回值（针对动态场景） #

如果必须用动态SQL生成函数调用（比如参数或函数名是动态的），使用游标时要用完后关闭游标，否则会占用资源。你原代码里打开游标后没有关闭，这是不规范的，必须补充CLOSE v_cursor;。

3. 用EXECUTE IMMEDIATE直接赋值 #

你原代码里注释掉的EXECUTE IMMEDIATE v_query INTO v_result;也是可行方式，本质是动态执行查询并把结果存入变量，但要注意动态SQL的注入风险和引号拼接问题（比如参数里包含单引号会报错）。

二、针对PKG_LIST_LOG.abc返回值的存储与打印优化 #

PKG_LIST_LOG.abc返回的是类似{<PR=100: ORA-01403: no data ,SC=ORA-01403: no data found,PSC=sp_ls :LA,EXEC_DATE=04-MAY-23>,}的字符串，只要变量长度足够就能存储。原代码里v_result定义为VARCHAR2(4000)，如果返回值长度不超过4000没问题；如果可能更长，建议改成CLOB类型。

下面是优化后的存储过程代码，解决了原代码的游标未关闭、动态SQL风险等问题：

CREATE OR REPLACE PROCEDURE LIST_LOG(name VARCHAR2, id VARCHAR2, label VARCHAR2)
IS
    v_result VARCHAR2(4000); -- 若返回值可能超过4000，改为CLOB
BEGIN   
    CASE label
        WHEN 'abc' THEN
          -- 直接调用包函数，避免动态SQL的风险和麻烦
          v_result := PKG_LIST_LOG.abc(name, id, label);
          DBMS_OUTPUT.PUT_LINE('返回结果：' || v_result);
          -- 如果一定要用游标（不推荐），请补充关闭游标
          /*
          DECLARE
              v_cursor SYS_REFCURSOR;
          BEGIN
              OPEN v_cursor FOR SELECT PKG_LIST_LOG.abc(name, id, label) FROM DUAL;
              FETCH v_cursor INTO v_result;
              CLOSE v_cursor; -- 必须关闭游标
              DBMS_OUTPUT.PUT_LINE(v_result);
          END;
          */
    ELSE
        DBMS_OUTPUT.PUT_LINE('INVALID PARAMETERS');
    END CASE;
END;
/

关键优化点说明： #

• 去掉不必要的动态SQL和游标，直接调用函数赋值，代码更简洁安全。
• 补充了游标使用时必须关闭的示例（如果一定要用游标）。
• 增加返回结果的打印前缀，便于识别输出。
• 提示变量长度的注意事项，避免因返回值过长导致截断。

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