--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;
