动态cursor 实例

 DECLARE
 
    TYPE emp_cur IS REF CURSOR
   
    RETURN emp%ROWTYPE;
 
    empObj emp_cur;
 
    empRecord emp%ROWTYPE;
 
  BEGIN
 
    OPEN empObj FOR
   
      SELECT * FROM emp;
 
    loop
   
      FETCH empObj
        INTO empRecord;
   
      exit when empObj%notfound;
   
      dbms_output.put_line(empRecord.ename);
   
    end loop;
 
    CLOSE empObj;
 
  END;