oracle存储过程和游标

--带游标的存储过程
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;