DECLARE

    TYPE TY_EMP_CUR IS REF CURSOR;

    V_Emp_Cur              TY_EMP_CUR;

    V_Id                           EMP.ID%TYPE;

BEGIN

    OPEN  V_Emp_Cur   FOR    SELECT ID FROM EMP;      --REF CURSOR的SELECT语句赋值位置，可以在逻辑模块中再次更改

    FETCH  V_Emp_Cur  INTO  V_Id;                                     --FETCH的作用的读取当前指针并移动到下一个指针目标

    WHILE  V_Emp_Cur%FOUND  LOOP

        DBMS_OUTPUT.PUT_LINE(V_Id);

        FETCH  V_Emp_Cur  INTO  V_Id;

    END LOOP;

EXCEPTION

    WHEN OTHERS THEN

        DBMS_OUTPUT.PUT_LINE('Other exceptions');

        CONTINUE;

END;

DECLARE

    CURSOR V_Emp_Cur IS SELECT ID FROM EMP;           --传统CURSOR的SELECT语句赋值位置，后期不可更改

    V_Id                              EMP.ID%TYPE;

BEGIN

    OPEN  V_Emp_Cur;

    FETCH  V_Emp_Cur  INTO  V_Id;                                     --FETCH的作用的读取当前指针并移动到下一个指针目标

    WHILE  V_Emp_Cur%FOUND  LOOP

        DBMS_OUTPUT.PUT_LINE(V_Id);

        FETCH  V_Emp_Cur  INTO  V_Id;

    END LOOP;

EXCEPTION

    WHEN OTHERS THEN

        DBMS_OUTPUT.PUT_LINE('Other exceptions');

        CONTINUE;

END;