Refcursor as an OUT variable and test harness is failing

Question

Folks,
create or replace PROCEDURE GetA ( p_list IN OUT sys_refcursor )is
lv_func_name function_static.fntn_name%type:='GetCountrylist';
st varchar2(1000);
begin
st := 'begin :1:='||lv_func_name||'; end;' ;
dbms_output.put_line(st);
execute immediate st using out p_list;
end GetA;
create or replace function Getcountrylist return sys_refcursor is
p_list sys_refcursor;
begin
open p_list for
select ctry_code Code, ctry_name Description
from country
where active_flag = 1;
return p_list;
end GetCountrylist;
the following test harness is giving me an invalid cursor.
declare
rc1 sys_refcursor;
v_code varchar2(10);
v_desc varchar2(10);
begin
GetA (rc1);
loop
fetch rc1 into v_code,v_desc;
DBMS_OUTPUT.PUT_LINE(v_code || ' ** ' || v_desc);
END LOOP;
CLOSE rc1;
end;
But if I test it in sqlplus like this, it works fine.
Var r refcursor
Exec geta(:r)
Print r
Any help.
Thanks
Ram

Answer 1

STEP - 2
SQL>
SQL>
SQL> insert into country values('&ct_cd','&ct_nm',&flg);
Enter value for ct_cd: 007
Enter value for ct_nm: Russia
Enter value for flg: 1
old   1: insert into country values('&ct_cd','&ct_nm',&flg)
new   1: insert into country values('007','Russia',1)
1 row created.
SQL> /
Enter value for ct_cd: 001
Enter value for ct_nm: USA
Enter value for flg: 0
old   1: insert into country values('&ct_cd','&ct_nm',&flg)
new   1: insert into country values('001','USA',0)
1 row created.
SQL> /
Enter value for ct_cd: 091
Enter value for ct_nm: INDIA
Enter value for flg: 1
old   1: insert into country values('&ct_cd','&ct_nm',&flg)
new   1: insert into country values('091','INDIA',1)
1 row created.
SQL> /
Enter value for ct_cd: 056
Enter value for ct_nm: UK
Enter value for flg: 1
old   1: insert into country values('&ct_cd','&ct_nm',&flg)
new   1: insert into country values('056','UK',1)
1 row created.
SQL> commit;
Commit complete.
SQL> select * from country;
CTRY_CODE  CTRY_NAME                      ACTIVE_FLAG
007        Russia                                   1
001        USA                                      0
091        INDIA                                    1
056        UK                                       1
SQL> ed
Wrote file afiedt.buf
  1  create or replace PROCEDURE GetA ( p_list IN OUT sys_refcursor )
  2  is
  3    --  lv_func_name function_static.fntn_name%type:='GetCountrylist';
  4    lv_func_name varchar2(30):='GetCountrylist';
  5    st varchar2(1000);
  6  begin
  7   st := 'begin :1:='||lv_func_name||'; end;' ;
  8   dbms_output.put_line(st);
  9   execute immediate st using out p_list;
10* end GetA;
11  /
Procedure created.
SQL>
SQL>
SQL> create or replace function Getcountrylist
  2  return sys_refcursor
  3  is
  4    p_list sys_refcursor;
  5  begin
  6    open p_list for
  7    select ctry_code Code, ctry_name Description
  8    from country
  9    where active_flag = 1;
10 
11    return p_list;
12 
13  end GetCountrylist;
14  /
Function created.
SQL>
SQL> declare
  2   rc1 sys_refcursor;
  3 
  4   type a is record ( code varchar2(10), description varchar2(30) );
  5   b a;
  6  begin
  7   GetA(rc1);
  8   loop
  9    fetch rc1 into b;
10    exit when rc1%notfound;
11    DBMS_OUTPUT.PUT_LINE(b.code || ' ** ' || b.description);
12   END LOOP;
13   CLOSE rc1;
14  end;
15  /
begin :1:=GetCountrylist; end;
007 ** Russia
091 ** INDIA
056 ** UK
PL/SQL procedure successfully completed.Regards.
Satyaki De