Move to first record of ref curser after fetch

Question

I have the following package (v2 is not used in this example):
CREATE OR REPLACE PACKAGE test_ref_cursor AS
TYPE gc IS REF CURSOR;
PROCEDURE test_ref_cursor(v1 OUT gc
,v2 IN VARCHAR2
,v3 OUT VARCHAR2);
END;
CREATE OR REPLACE PACKAGE BODY test_ref_cursor AS
PROCEDURE test_ref_cursor(v1 OUT gc
,v2 IN VARCHAR2
,v3 OUT VARCHAR2) AS
r1 scott.emp%ROWTYPE;
BEGIN
OPEN v1 FOR
SELECT * FROM scott.emp;
FETCH v1 INTO r1;
IF v1%NOTFOUND
THEN
v3 := 'not found';
ELSE
v3 := 'found';
END IF;
END;
END;
The calling procedure below tests whether the cursor contains data. If so, it fetches the data and displays it. However, the first row does not get fetched anymore (notice that SMITH is missing and rowcount begins at 2) because the procedure in the package already fetched it. How can i begin fetching at row one of the cursor again?
1 DECLARE
2 TYPE rc IS REF CURSOR;
3 c rc;
4 r scott.emp%ROWTYPE;
5 e varchar2(10);
6 BEGIN
7 test_ref_cursor.test_ref_cursor(v1 => c
8 ,v2 => 'MILLER'
9 ,v3 => e);
10 IF e = 'found'
11 THEN
12 LOOP
13 FETCH c INTO r;
14 EXIT WHEN c%NOTFOUND;
15 dbms_output.put_line(c%ROWCOUNT || ': ' || r.ename);
16 END LOOP;
17 END IF;
18* END;
19 /
2: ALLEN
3: WARD
4: JONES
5: MARTIN
6: BLAKE
7: CLARK
8: SCOTT
9: KING
10: TURNER
11: ADAMS
12: JAMES
13: FORD
14: MILLER
PL/SQL procedure successfully completed.
Thank you,
christoph

Answer 1

I will leave the interpretation of the results from
the following test runs as an exercise to you.
SQL> set serveroutput on
SQL> DECLARE
2      v1 sys_refcursor;
3      v3 VARCHAR2(10);
4  BEGIN
5      OPEN v1 FOR
6          SELECT * FROM scott.emp;
7      IF v1%NOTFOUND
8      THEN
9          v3 := 'not found';
10      ELSE
11          v3 := 'found';
12      END IF;
13      CLOSE v1;
14      dbms_output.put_line('v3=' || v3);
15  END;
16  /
v3=found
PL/SQL procedure successfully completed.
SQL> DECLARE
2      v1 sys_refcursor;
3      v3 VARCHAR2(10);
4  BEGIN
5      OPEN v1 FOR
6          SELECT * FROM scott.emp WHERE 1 = 2;
7      IF v1%NOTFOUND
8      THEN
9          v3 := 'not found';
10      ELSE
11          v3 := 'found';
12      END IF;
13      CLOSE v1;
14      dbms_output.put_line('v3=' || v3);
15  END;
16  /
v3=found
PL/SQL procedure successfully completed.
SQL> DECLARE
2      v1  sys_refcursor;
3      v3  VARCHAR2(10);
4      rec scott.emp%ROWTYPE;
5  BEGIN
6      OPEN v1 FOR
7          SELECT * FROM scott.emp WHERE 1 = 2;
8      FETCH v1
9          INTO rec;
10      IF v1%NOTFOUND
11      THEN
12          v3 := 'not found';
13      ELSE
14          v3 := 'found';
15      END IF;
16      CLOSE v1;
17      dbms_output.put_line('v3=' || v3);
18  END;
19  /
v3=not found
PL/SQL procedure successfully completed.
SQL>
How about this:
SQL> DECLARE
  2  v1  sys_refcursor;
  3  v3  VARCHAR2(10);
  4  rec bbhatta.emp%rowtype;
  5  BEGIN
  6   OPEN v1 FOR SELECT * FROM bbhatta.emp WHERE 1 = 2;
  7   IF v1%NOTFOUND
  8   THEN
  9      v3 := 'not found';
10   ELSE
11      v3 := 'found';
12   END IF;
13   FETCH v1
14 INTO rec;
15   CLOSE v1;
16  dbms_output.put_line('v3=' || v3);
17  END;
18  /
v3=found
PL/SQL procedure successfully completed.