index by binary_integer does not need, require, allow for "extend"
it is already 'extended'
20 return integer
21 is
22 l_last_row integer := my_table.count+1;
23 begin
24 my_table(l_last_row).object_name := p_object_name;
25 my_table(l_last_row).object_type := p_object_type;
26 my_table(l_last_row).tablespace := p_tablespace;
27 my_table(l_last_row).num_rows := p_num_rows;
28 return l_last_row;
29 end;
30
31 BEGIN
32
33 l_row := insert_data('TABLE','TABLE1','TS1',340);
34 l_row := insert_data('TABLE','TABLE2','TS1',640);
35 l_row := insert_data('INDEX','INDEX1','TS2',340);
36
37 for x in my_table.first .. my_table.last
38 loop
39 dbms_output.put_line
40 (my_table(x).object_name||','||my_table(x).object_type||','||
41 my_table(x).tablespace||','||to_char(my_table(x).num_rows));
42 end loop;
43 END;
44 /
TABLE,TABLE1,TS1,340
TABLE,TABLE2,TS1,640
INDEX,INDEX1,TS2,340
PL/SQL procedure successfully completed.