Populate Collection

Question

Hi
I have a collection and will like populate with data from table
DECLARE
TYPE name_rec IS RECORD ( COD VARCHAR2(3), DESCR VARCHAR2(30) );
TYPE names IS VARRAY(250) OF name_rec;
    t_tab     names := names();
BEGIN
    t_tab.extend(1);
   dbms_output.put_line(t_tab.count());
  t_tab.delete;
  dbms_output.put_line(t_tab.count());
end;     How can I to do it ?

Answer 1

Michaels, please look into this,
It is not going beyond 'after exit' condition.
SQL> declare
  2     cur_emp sys_refcursor;
  3      type t_obj is record( empno number,
  4                           ename varchar2(25)
  5                           );
  6      type t_tab is table of t_obj index by binary_integer;
  7      tt t_tab;
  8      cnt_in number:=0;
  9      cnt_out number:=0;
10      begin
11       open cur_emp for
12       select empno,ename from emp where deptno=10;
13        loop
14         fetch cur_emp BULK collect into tt;
15         cnt_out:=cnt_out+1;
16         dbms_output.put_line('cnt_out :'||(cnt_out));
17         exit when cur_emp%notfound;
18           dbms_output.put_line('after exit');   
19        end loop;
20        for i in 1..tt.count loop
21           dbms_output.put_line('empno :' ||tt(i).empno||'     ename  :'||tt(i).ename);
22           cnt_in:=cnt_in+1;
23          dbms_output.put_line('cnt_in :'||(cnt_in));
24        end loop;
25      end;
26  /
cnt_out :1
empno :7782     ename  :CLARK
cnt_in :1
empno :7839     ename  :KING
cnt_in   :2
empno :7934     ename  :MI_LL_ER
cnt_in   :3
empno :7501     ename  :T*_1NU
cnt_in   :4