cursor

declare type my_curtype is ref cursor return emp%rowtype ;
mycur my_curtype;
rec emp%rowtype;
begin open mycur for select * from emp;
loop fetch mycur into rec;
exit when mycur%notfound;
dbms_output.put_line(rec.ename);
end loop;
close mycur;
end;
str:='&test input';
dbms_output.put_line(str);