1、創建存儲過程
--OUT輸出存放所有部門信息的遊標
CREATE OR REPLACE PROCEDURE PRO_FINDALLDEPT( CURSOR_DEPT OUT SYS_REFCURSOR )
AS
BEGIN
OPEN CURSOR_DEPT FOR SELECT DEPARTMENT_NAME FROM DEPARTMENTS;
END;
2、調用存儲過程
DECLARE
CURSOR_VAR SYS_REFCURSOR;
NAME DEPARTMENTS.DEPARTMENT_NAME%TYPE;
BEGIN
PRO_FINDALLDEPT(CURSOR_VAR);
LOOP
FETCH CURSOR_VAR INTO NAME;
EXIT WHEN CURSOR_VAR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(NAME);
END LOOP;
END;