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;

在cmd命令窗口中执行：
SQL> set serveroutput on;
SQL> exec proc_test01;