--REF游标的用法DECLARE --定义一个弱类型游标数据类型 TYPE emp_cursor_type IS REF CURSOR; --声明一个游标变量 c1 emp_cursor_type; --声明两个记录变量 v_emp_record emp%ROWTYPE; v_dept_record dept%ROWTYPE;BEGIN --打开游标OPEN c1 FOR SELECT*FROM emp p WHERE p.deptno=20;LOOP--提取游标FETCH c1 INTO v_emp_record;EXIT WHEN c1%NOTFOUND;dbms_output.put_line(v_emp_record.ename||'的薪水是:'||v_emp_record.sal||'部门编号:'||v_emp_record.deptno);END LOOP;--关闭游标CLOSE c1;OPEN c1 FOR SELECT*FROM dept t ;LOOPFETCH c1 INTO v_dept_record;EXIT WHEN c1%NOTFOUND;dbms_output.put_line(v_dept_record.deptno||'---'||v_dept_record.dname||'---'||v_dept_record.loc);END LOOP;CLOSE c1;END;
