É muito fácil se você usar PL/SQL como SQL e não como outras linguagens. É bastante específico e às vezes é muito legal exatamente por isso.
Às vezes eu realmente odeio PL/SQL, mas este caso é absolutamente sobre amor.
Veja como é fácil:
create type it as object (
iter number,
stringval varchar2(100),
intval integer
);
create type t_it as table of it;
declare
t t_it := new t_it();
tmp1 varchar2(32767);
tmp2 varchar2(32767);
begin
t.extend(4);
t(1) := new it(1,'Oslo',40);
t(2) := new it(2,'Berlin',74);
t(3) := new it(3,'Rome',25);
t(4) := new it(4,'Paris',10);
select listagg(stringval,', ') within group (order by stringval),
listagg(stringval,', ') within group (order by intval)
into tmp1, tmp2
from table(t);
dbms_output.put_line(tmp1);
dbms_output.put_line(tmp2);
end;
/
drop type t_it;
drop type it;
Aqui você pode ver o problema que você deve criar tipos globais, e é por isso que eu odeio isso. Mas eles dizem que no Oracle 12 isso pode ser feito com tipos definidos localmente, então estou esperando por isso :)
A saída é:
Berlin, Oslo, Paris, Rome
Paris, Rome, Oslo, Berlin
EDITAR
Na medida em que você não sabe a quantidade de iterações desde o início, a única maneira é estender em cada iteração (este é apenas um exemplo de extensão):
declare
iterator pls_integer := 1;
begin
/* some type of loop*/ loop
t.extend();
-- one way to assign
t(t.last) := new it(1,'Oslo',40);
-- another way is to use some integer iterator
t(iterator) := new it(1,'Oslo',40);
iterator := iterator + 1;
end loop;
end;
Eu prefiro a segunda maneira porque é mais rápida (não calcula
.last
em cada iteração).