Oracle10g調用out爲遊標參數的存儲過程

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;