Oracle游标数据输出问题咨询：如何正确实现dbms_output输出？

原代码的核心问题 #

1. 存储过程的参数是IN类型，这类参数仅用于传入值，无法被赋值来接收游标fetch的结果，必须使用局部变量存储数据。
2. 原参数在过程中完全未被使用，属于冗余定义。

方案一：显式游标（手动管理生命周期） #

修改后的包定义：

create or replace package cur_pkg as 
  type t_cur is ref cursor;
  procedure open_cur_spr_ppl;
end cur_pkg;
/

对应的包体：

create or replace package body cur_pkg as
  procedure open_cur_spr_ppl
  is 
    v_curs t_cur;
    -- 定义与表字段类型匹配的局部变量，用于接收游标数据
    v_id spravochnik_people.spravochnik_id%type;
    v_name spravochnik_people.spravochnik_name%type;
    v_family spravochnik_people.spravochnik_family%type;
  begin
    open v_curs for 
      select spravochnik_id, spravochnik_name, spravochnik_family
      from spravochnik_people
      where spravochnik_id >= 1770;
    
    loop
      FETCH v_curs INTO v_id, v_name, v_family;
      EXIT WHEN v_curs%notfound;
      -- 优化输出格式，增加可读性
      dbms_output.put_line('ID: ' || v_id || '  Name: ' || v_name || '  Family: ' || v_family);
    end loop;
    
    close v_curs;
  end open_cur_spr_ppl;  
end cur_pkg;
/

方案二：隐式游标循环（推荐） #

Oracle支持隐式游标循环，无需手动处理游标打开、关闭、fetch操作，代码更简洁且不易出错：

包体中的过程可改写为：

create or replace package body cur_pkg as
  procedure open_cur_spr_ppl
  is 
  begin
    -- 隐式循环自动遍历查询结果
    for rec in (
      select spravochnik_id, spravochnik_name, spravochnik_family
      from spravochnik_people
      where spravochnik_id >= 1770
    ) loop
      dbms_output.put_line('ID: ' || rec.spravochnik_id || '  Name: ' || rec.spravochnik_name || '  Family: ' || rec.spravochnik_family);
    end loop;
  end open_cur_spr_ppl;  
end cur_pkg;
/

扩展说明 #

如果需要动态设置查询条件（比如调整spravochnik_id的阈值），可给过程添加IN参数：

-- 包定义修改
procedure open_cur_spr_ppl(p_min_id in number);

-- 包体查询部分修改
where spravochnik_id >= p_min_id

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