type t_test_type is record (...);
type t_test_tab is table of t_test_type;
type t_test_info is record (test t_test_tab);

declare
type t_test_type is record (f1 number, f2 varchar2(10));
l_test_type t_test_type;
type t_test_tab is table of t_test_type;
l_test_tab t_test_tab;
type t_test_info is record (t_test t_test_tab);
l_test_info t_test_info;
procedure test_info(p_test out nocopy t_test_info) is 
  type t_refcur is ref cursor;
  c_ref t_refcur;
  l_p_test_t_test t_test_tab := t_test_tab();
  lx  number := 0;
  begin
  l_p_test_t_test := t_test_tab();
  p_test.t_test   := t_test_tab();
  open c_ref for
    select 1 f1, 'test' f2 from dual union all
    select 1 f1, 'test' f2 from dual union all
    select 2 f1, 'test2' f2 from dual; loop
    fetch c_ref bulk collect into l_p_test_t_test;
      exit when l_p_test_t_test.count = 0;
      for i in 1 ..l_p_test_t_test.count loop
        lx := nvl(p_test.t_test .last,0) + 1;
        p_test.t_test .extend;
        p_test.t_test(lx) := l_p_test_t_test(i);
        end loop;
    end loop;
  end;
begin
  test_info(l_test_info);
  for i in 1 .. l_test_info.t_test.count loop
    dbms_output.put_line(l_test_info.t_test(i).f1||' '||l_test_info.t_test(i).f2);
    end loop;
  end;  

1 test
1 test
2 test2

1 test
2 test2

SELECT SET(l_test_tab) INTO l_test_tab FROM DUAL;