cursor variable 实例
create or replace procedure proc_test01as type emp_row is record(empno emp.empno%type,ename emp.ename%type,job emp.job%type,mgr emp.mgr%type,hiberdate emp.hiredate%type,sal emp.sal%type,comm emp.comm%type,deptno emp.deptno%type);tmp0 emp_row;type cur_type is ref cursor;cur0 cur_type;BEGIN open cur0 for select * from emp where rownum < 10; loop fetch cur0 into tmp0; dbms_output.put_line(tmp0.job||',姓名：'||tmp0.ename||',工资:'||tmp0.sal); exit when cur0%notfound; end loop; close cur0;END;
