PL/SQL REFCURSOR ERR

Question

CREATE OR REPLACE PACKAGE QUERIESLOOKUP_PKG
AS
TYPE PKG_REC_TYPE IS RECORD(
OP_DATE          DATE);
TYPE pkgrec IS REF CURSOR RETURN pkg_rec_type;
END QUERIESLOOKUP_PKG;
CREATE OR REPLACE PROCEDURE QUERIESLOOKUP_PRC(
outrec      OUT      QUERIESLOOKUP_PKG.PKGREC) AS
querystr1           varchar2(4000);
BEGIN
querystr1:='select SYSDATE FROM DUAL';
EXECUTE IMMEDIATE querystr1 INTO OUTREC;
END QUERIESLOOKUP_PRC;
SET SERVEROUTPUT ON
declare
REC1      QUERIESLOOKUP_Pkg.pkgrec;
TEST REC1%ROWTYPE;
begin
QUERIESLOOKUP_PRC(REC1);
LOOP
FETCH REC1 INTO TEST;
EXIT WHEN REC1%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('======' );
DBMS_OUTPUT.PUT_LINE(TEST.OP_DATE );
END LOOP;
CLOSE rec1;
END;
declare
ERROR at line 1:
ORA-00932: inconsistent datatypes: expected NUMBER got DATE
ORA-06512: at "QUERIESLOOKUP_PRC", line 9
ORA-06512: at line 6
Hi,
I'm getting this err plz help me!
Thomas

Answer 1

The problem is ref cursor cannot be dynamic.Come again??
SQL> CREATE OR REPLACE FUNCTION dynamic_refcurs
  2      (    rpt IN NUMBER := 0)
  3      RETURN sys_refcursor
  4  AS
  5      querystr1 varchar2(4000);
  6      q sys_refcursor;
  7  BEGIN
  8      IF rpt           = 0 THEN
  9          querystr1:='select sysdate from dual';
10      ELSIF rpt           = 1 THEN
11          querystr1:='select sysdate from dual union select sysdate+1 from dual';
12      ELSE
13          querystr1:='select sysdate from dual union select sysdate+1 from dual union select sysd
ate+2 from dual';
14      END IF;
15      OPEN q FOR querystr1;
16      RETURN q;
17  END dynamic_refcurs;
18  /
Function created.
SQL> 
SQL> SELECT dynamic_refcurs(1) FROM dual
  2  /
DYNAMIC_REFCURS(1)
CURSOR STATEMENT : 1
CURSOR STATEMENT : 1
SYSDATE
08-NOV-04
09-NOV-04
SQL> SELECT dynamic_refcurs(2) FROM dual
  2  /
DYNAMIC_REFCURS(2)
CURSOR STATEMENT : 1
CURSOR STATEMENT : 1
SYSDATE
08-NOV-04
09-NOV-04
10-NOV-04
SQL> CREATE OR REPLACE FUNCTION dynamic_refcurs
  2      (    incr IN NUMBER := 0)
  3      RETURN sys_refcursor
  4  AS
  5      querystr1 varchar2(4000);
  6      q sys_refcursor;
  7  BEGIN
  8      querystr1:='select sysdate + :1 from dual';
  9      OPEN q FOR querystr1 USING incr;
10      RETURN q;
11  END dynamic_refcurs;
12  /
Function created.
SQL> SELECT dynamic_refcurs(1) FROM dual
  2  /
DYNAMIC_REFCURS(1)
CURSOR STATEMENT : 1
CURSOR STATEMENT : 1
SYSDATE+:
09-NOV-04
SQL> SELECT dynamic_refcurs(2) FROM dual
  2  /
DYNAMIC_REFCURS(2)
CURSOR STATEMENT : 1
CURSOR STATEMENT : 1How much more dynamism do you require?
Cheers, APC