create or replace procedure testP is
a varchar2(100);
b varchar2(100);
n_count number;
TYPE MY_CUR IS REF CURSOR;
c_count my_cur;
begin
n_count := 0;
open c_count for select scott.emp.ename , scott.emp.job from scott.emp where empno like '7%';
fetch c_count into a,b;
--while c_count%Found
loop
exit when c_count%notfound;
n_count:=n_count+1;
dbms_output.put_line(n_count||' a=='||a||' b=='||b);
fetch c_count into a,b;
end loop;
close c_count;
end testP;