0
create or replace PROCEDURE "RESULT" (res1 OUT SYS_REFCURSOR )   
IS   
Cursor c is Select distinct id,fname,lname,dob,gender,address1 from emp where name like '%B%'
  d c%rowtype; 
BEGIN
  OPEN c;
  LOOP
  fetch c into d;
  exit when c%notfound;
  OPEN res1 FOR  select e.id from emp e  where e.poi_user_id IN (d.id);
  End Loop;
END;

プロシージャ RESULT がコンパイルされました。

プロシージャなしでクエリを実行すると、5 つの結果が得られますが、上記のコードを使用すると、最後の結果しか返されません。

SET SERVEROUTPUT ON;

Declare
  c SYS_REFCURSOR;
  id number;
begin
  RESULT(c);
loop
  fetch c into id; -- and other columns if needed
  exit when c%notfound;
  dbms_output.put_line(id);
  end loop;
END;

結果 5

4

1 に答える 1