ТЕМА:

declare
type t_table is table of varchar2(1000) index by binary_integer;
loTable t_table;

i Number;

begin
loTable(1) := '1212-АДЛ';
loTable(2) := '12121-УКЛ';
loTable(3) := '121212-УСП';

i := loTable.first;
while i is not null
loop
dbms_output.put_line(loTable(i));
i := loTable.next(i);
end loop;
commit;
end;

loTable(1.1) := '1212-АДЛ';
loTable(1.2) := '14.07.2011';
loTable(2.1) := '12121-УКЛ';
loTable(2.2) := '15.07.2011';
loTable(3.1) := '121212-УСП';
loTable(3.2) := '16.07.2011';

declare
TYPE myREC is RECORD
( a varchar2(1000),
b varchar2(1000));
type t_table is table of myREC index by binary_integer;
loTable t_table;
i number;
begin
null;
loTable(1).a := '1212-АДЛ';
loTable(1).b := '1212-АДЛ';
loTable(2).a := '14.07.2011';
loTable(2).b := '12121-УКЛ';
loTable(3).a := '15.07.2011';
loTable(3).b := '121212-УСП';
i := loTable.first;
while i is not null
loop
dbms_output.put_line(loTable(i).a||' and '||loTable(i).b);
i := loTable.next(i);
end loop;
end;