How to convert this package from 11g to 10g (still using dbms_sql) ?

Question

create or replace package pkg_test is
   type tab_t is table of ra_analista%rowtype;
   function pipeValues return tab_t pipelined;
   function selValues return sys_refcursor;
end;
create or replace package body pkg_test is
 function pipeValues
 return tab_t pipelined is
    cr sys_refcursor;
    tab tab_t;
    cnt int;
    cmd pls_integer := dbms_sql.open_cursor;
  begin
    dbms_sql.parse(cmd, 'select * from RA_Analista', dbms_sql.native);
    cnt := dbms_sql.execute(cmd);
    cr := dbms_sql.to_refcursor(cmd);
    fetch cr bulk collect into tab;
    if tab.count > 0 then
      for i in tab.first .. tab.last loop
        pipe row(tab(i));
      end loop;
    end if;
    return;
  end;
  function selValues return sys_refcursor is
    c1 sys_refcursor;
  begin
    open c1 for select * from table(pipeValues);
    return c1;
  end;
end;

Answer 1

Create Or Replace Package Body Pkg_Test Is
Function Pipevalues Return Tab_t Pipelined Is
Cr Sys_Refcursor; Tab Tab_t; Cnt Int; Cmd Pls_Integer := Dbms_Sql.Open_Cursor;
Begin
Dbms_Sql.Parse(Cmd, 'select * from RA_Analista', Dbms_Sql.Native); --**there in 10g**
Cnt := Dbms_Sql.Execute(Cmd); --**there 10g**
Cr := Dbms_Sql.To_Refcursor(Cmd); --**no need to use ref cursor here....if you want to use it go for open for instead of dbms_sql**
Fetch Cr Bulk Collect Into Tab;
If Tab.Count > 0 Then For i In Tab.First .. Tab.Last Loop Pipe Row(Tab(i));
End Loop;
End If; Return;
End;Edited by: Nicloei W on Sep 16, 2008 6:26 PM
Edited by: Nicloei W on Sep 16, 2008 6:26 PM
Edited by: Nicloei W on Sep 16, 2008 6:27 PM