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;