--带游标的存储过程

CREATE OR REPLACE PROCEDURE PRO_EMP_IN(EMP_CUR SYS_REFCURSOR) AS

  V_NAME EMP.ENAME%TYPE;

  V_SAL  EMP.SAL%TYPE;

BEGIN

  LOOP

    FETCH EMP_CUR

      INTO V_NAME, V_SAL;

    DBMS_OUTPUT.PUT_LINE('name:' || V_NAME || '   sal:' || V_SAL);

    EXIT WHEN EMP_CUR%NOTFOUND;

  END LOOP;

END;

--调用带游标的存储过程

DECLARE

  EMP_CUR SYS_REFCURSOR;

BEGIN

  OPEN EMP_CUR FOR

    SELECT ENAME, SAL FROM EMP;

  PRO_EMP_IN(EMP_CUR => EMP_CUR);

  CLOSE EMP_CUR;

END; 

--SYS_REFCURSOR 带输出参数的系统游标类型

CREATE OR REPLACE PROCEDURE PRO_EMP(EMP_CUR OUT SYS_REFCURSOR) AS

BEGIN

  OPEN EMP_CUR FOR

    SELECT ENAME, SAL FROM EMP E;   --和查询语句绑定

END;

--调用带输出类型的游标的存储过程

DECLARE

  V_NAME  EMP.ENAME%TYPE;

  V_SAL   EMP.SAL%TYPE;

  EMP_CUR SYS_REFCURSOR;    --声明系统游标类型

BEGIN

  PRO_EMP(EMP_CUR => EMP_CUR);

  LOOP

    FETCH EMP_CUR INTO V_NAME, V_SAL;

    DBMS_OUTPUT.PUT_LINE('name:' || V_NAME || '   sal:' || V_SAL);

    EXIT WHEN EMP_CUR%NOTFOUND;

  END LOOP;

  CLOSE EMP_CUR;

END;