Problem in creating package

Question

When I am creating the following package in Oracle then it gives error. Can any body tell me what is the problem and how can I rectify the error.
I am using the following version
Oracle8i Enterprise Edition Release 8.1.5.0.0 - Production
PL/SQL Release 8.1.5.0.0 - Production
CORE Version 8.1.3.0.0 - Production
TNS for Solaris: Version 8.1.5.0.0 - Production
NLSRTL Version 3.4.0.0.0 - Production
create or replace package aa_tt is
type SelCursor is REF CURSOR;
type AuErrCursor is REF CURSOR;
procedure a_ret(p_KeyWord IN VARCHAR2,
p_SelCursor               OUT      SelCursor,
p_ErrCursor               OUT      AuErrCursor);
end aa_tt;
create or replace package body aa_tt is
isACTIVE constant number(1):= 1;
isNOTACTIVE constant number(1):= 0;
p_returnVal number;
p_returnText varchar2(500);
p_Error_text varchar2(500);
p_ORA_Error_Num number;
p_Rowcount number;
p_ORA_Error_Text varchar2(500);
procedure a_ret(p_KeyWord IN VARCHAR2,
p_SelCursor               OUT      SelCursor,
p_ErrCursor               OUT      AuErrCursor)
IS
V_Cursor SelCursor;
E_Aucursor AuErrCursor;
p_RowNo NUMBER;
begin
OPEN V_Cursor FOR
SELECT ROWNUM,t.MSG
FROM (
SELECT a.title ||' by '|| initcap(a.athr_director) ||' Rs.'|| b.base_price_inr MSG
FROM oxf_cont_mgmt_disp_table a,
oxf_sku_vep_mstr b
WHERE a.sku= b.sku
AND a.sku_srl_no = b.sku_srl_no
AND a.category_id='B014'
AND a.displayflag='Y'
AND a.itemflag='MS'
ORDER BY a.pref_no) t
WHERE rownum<3
p_SelCursor:= V_Cursor;
p_returnText := ' Record successfully Fatched';
p_ReturnVal := 1;
p_ORA_Error_Num := SQLCODE;
p_ORA_Error_Text := SUBSTR(SQLERRM,1,255);
p_RowCount := SQL%ROWCOUNT;
OPEN E_AUCURSOR for
select p_returnval, p_returnText, p_RowCount,p_ORA_Error_Num, p_ORA_Error_Text from dual;
p_errCursor := E_AUCURSOR;
end a_ret;
end aa_tt;
/

Answer 1

also try to use dynamic cursor
SQL> create or replace package aa_tt is
2 type SelCursor is REF CURSOR;
3 type AuErrCursor is REF CURSOR;
4 procedure a_ret(p_KeyWord IN VARCHAR2,
5 p_SelCursor OUT SelCursor,
6 p_ErrCursor OUT AuErrCursor);
7 end aa_tt;
8 .
SQL> /
Package created.
SQL> create or replace package body aa_tt is
2 isACTIVE constant number(1):= 1;
3 isNOTACTIVE constant number(1):= 0;
4 p_returnVal number;
5 p_returnText varchar2(500);
6 p_Error_text varchar2(500);
7 p_ORA_Error_Num number;
8 p_Rowcount number;
9 p_ORA_Error_Text varchar2(500);
10 procedure a_ret(p_KeyWord IN VARCHAR2,
11 p_SelCursor OUT SelCursor,
12 p_ErrCursor OUT AuErrCursor) IS
13 V_Cursor SelCursor;
14 E_Aucursor AuErrCursor;
15 p_RowNo NUMBER;
16 strg VARCHAR2(200);
17 "ret V_CURSOR%TYPE;
18 begin
19 strg :='SELECT ROWNUM,t.ename
20 FROM (
21 SELECT *
22 FROM emp a
23 ORDER BY a.ename) t
24 WHERE rownum<3';
25 OPEN v_cursor FOR strg;
26 LOOP
27 FETCH v_cursor INTO ret;
28 EXIT WHEN v_cursor%NOTFOUND;
29 p_SelCursor:= V_Cursor;
30 END LOOP;
31 CLOSE v_cursor;
32 END;
33 END;
34 /
Package body created.Khurram