No of Count problem in a procedure using SYS_REFCURSOR

Question

Hi All,
I have a problem in sys_refcursor .The loop goes for an extra count than the original count in a procedure using sys_refcursor. I will explain my problem with sample example.
CREATE TABLE FUNC_TAB (TAB_NAME VARCHAR2(20));
INSERT INTO FUNC_TAB VALUES ('TAB1');
INSERT INTO FUNC_TAB VALUES ('TAB2');
CREATE OR REPLACE
FUNCTION FUNC_PROC
RETURN SYS_REFCURSOR
AS
TITLES SYS_REFCURSOR;
BEGIN
OPEN TITLES FOR SELECT TAB_NAME FROM FUNC_TAB ;
RETURN TITLES;
END FUNC_PROC;
CREATE OR REPLACE
PROCEDURE PROC_GET_FUNC
AS
TYPE FUNC_REC
IS
RECORD
TAB_NAME VARCHAR2(20));
TI_REC FUNC_REC ;
TITLES SYS_REFCURSOR;
STMT VARCHAR2(400);
BEGIN
TITLES := FUNC_PROC;
LOOP
FETCH TITLES INTO TI_REC ;
STMT := 'SELECT * FROM '||TI_REC.TAB_NAME ;
DBMS_OUTPUT.PUT_LINE(STMT);
WHEN TITLES%NOTFOUND;
END LOOP ;
CLOSE TITLEs ;
COMMIT;
END PROC_GET_FUNC;
When i print it , i get the output as 'select * from tab1 ', select * from tab2 ', select * from tab2 ', .I getting an extra count here i.e 'select * from tab2 occur twice'. I should get only 2 print statements but i am getting 3 print statements.Why there is
an extra count always? Please help me

Answer 1

EXIT WHEN TITLES%NOTFOUND;is in wrong place:
SQL> CREATE OR REPLACE
  2  PROCEDURE PROC_GET_FUNC
  3  AS
  4  TYPE FUNC_REC
  5  IS
  6  RECORD
  7  (
  8  TAB_NAME VARCHAR2(20));
  9  TI_REC FUNC_REC ;
10  TITLES SYS_REFCURSOR;
11  STMT VARCHAR2(400);
12  BEGIN
13  TITLES := FUNC_PROC;
14  LOOP
15  FETCH TITLES INTO TI_REC ;
16  STMT := 'SELECT * FROM '||TI_REC.TAB_NAME ;
17  DBMS_OUTPUT.PUT_LINE(STMT);
18  EXIT WHEN TITLES%NOTFOUND;
19  END LOOP ;
20  CLOSE TITLEs ;
21  COMMIT;
22  END PROC_GET_FUNC;
23  /
DDL was issued on object SCOTT.PROC_GET_FUNC
Procedure created.
SQL> exec PROC_GET_FUNC;
SELECT * FROM TAB1
SELECT * FROM TAB2
SELECT * FROM TAB2
PL/SQL procedure successfully completed.
SQL> CREATE OR REPLACE
  2  PROCEDURE PROC_GET_FUNC
  3  AS
  4  TYPE FUNC_REC
  5  IS
  6  RECORD
  7  (
  8  TAB_NAME VARCHAR2(20));
  9  TI_REC FUNC_REC ;
10  TITLES SYS_REFCURSOR;
11  STMT VARCHAR2(400);
12  BEGIN
13  TITLES := FUNC_PROC;
14  LOOP
15  FETCH TITLES INTO TI_REC ;
16  EXIT WHEN TITLES%NOTFOUND;
17  STMT := 'SELECT * FROM '||TI_REC.TAB_NAME ;
18  DBMS_OUTPUT.PUT_LINE(STMT);
19  END LOOP ;
20  CLOSE TITLEs ;
21  COMMIT;
22  END PROC_GET_FUNC;
23  /
Procedure created.
SQL> exec PROC_GET_FUNC;
SELECT * FROM TAB1
SELECT * FROM TAB2
PL/SQL procedure successfully completed.
SQL> SY.