pl/sql学习6——参照变量ref cursor

在打开游标的同时指定不同的SQL语句，得到不同的结果

declare

  type r_cursor is REF CURSOR;
  c_emp r_cursor;
  v_en emp.ename%type;
  v_dn dept.dname%type;
  v_bn bonus.sal%type;
begin
  --部门信息
  open c_emp for select dname from dept;
  loop
      fetch c_emp into v_dn;
      exit when c_emp%notfound;
      dbms_output.put_line('部门为：'||v_dn);
  end loop;
  --close c_emp;
  --人员信息
  open c_emp for select ename from emp;
  loop
      fetch c_emp into v_en;
      exit when c_emp%notfound;
      dbms_output.put_line('姓名为：'||v_en);
  end loop;
  close c_emp;  
end;