PLSQL_游标变量

 declare
 --声明一个游标类型
 type mycur is ref cursor;
 --声明一个游标变量，将类型实例化
 cur mycur;
 v_name emp.ename%type;
 v_job  emp.job%type; 
 begin
   select job into v_job from emp where empno='111';
   if v_job = 'saler' then
     --为游标指定一个结果集
     open cur for select ename from emp where sal<3000;
   else
     --为游标指定一个结果集
     open cur for select ename from emp where sal>3000;
   end if;
   --提取
   while cur%found loop
     dbms_output.put_line(v_name);
     fetchcur into v_name;
   end loop; 
   --关闭
   close cur;
 exception
   when others then
     dbms_output.put_line(sqlcode||sqlerrm);
 end;