存储过程返回结果集，以及调用

1.创建

SQL> create or replace procedure p_name(dm varchar2,cur_name out sys_refcursor)
  2   as
  3   begin
  4   open cur_name for select xm from xs where zym=dm;
  5   end;
  6  /

过程已创建。

 

2,调用

SQL> edi
已写入 file afiedt.buf

  1  declare
  2  v_xm varchar2(20);
  3  m sys_refcursor;
  4  v_zym varchar2(20);
  5  begin
  6  v_zym:='计算机';
  7   p_name(v_zym,m);
  8  fetch m into v_xm;
  9  while m%found loop
 10  dbms_output.put_line(v_xm);
 11  fetch m into v_xm;
 12  end loop;
 13  close m;
 14* end;
SQL> /

PL/SQL 过程已成功完成。

SQL> set serveroutput on
SQL> /
王林
程明
王燕
韦严平
李方方
李明
林一帆
张强民
张蔚
赵琳
严红

PL/SQL 过程已成功完成。