SQL> declare
  2    type num_tbl_type is table of int;
  3    l_inner_tbl num_tbl_type := num_tbl_type();
  4    l_outer_tbl num_tbl_type := num_tbl_type();
  5    l_first boolean := true;
  6    cursor details_csr
  7    is
  8    select xmlcast(column_value as int) n
  9  	 from xmltable('1, 2 to 3');
 10    procedure put( p_what int, x_tbl in out nocopy num_tbl_type)
 11    is
 12    begin
 13  	 x_tbl.extend;
 14  	 x_tbl(x_tbl.count):=p_what;
 15    end put;
 16    procedure process( p_outer int, p_inner int)
 17    is
 18    begin
 19  	 dbms_output.put_line(
 20  	   utl_lms.format_message( 'outer=%s inner=%s', to_char(p_outer), to_char(p_inner)));
 21    end process;
 22  begin
 23    for d_rec in details_csr
 24    loop <<outer>>
 25  	 put( d_rec.n, l_outer_tbl);
 26  	 put( d_rec.n, l_inner_tbl);
 27  	 for i in 1..cardinality(l_inner_tbl)
 28  	 loop <<inner>>
 29  	   process( d_rec.n, l_inner_tbl(i));
 30  	 end loop inner;
 31  	 if not l_first
 32  	 then
 33  	   for j in reverse 1..l_outer_tbl.count-1
 34  	   loop <<outer_backward>>
 35  	     process( l_outer_tbl(j), d_rec.n);
 36  	   end loop outer_backward;
 37  	 else
 38  	   l_first := false;
 39  	 end if;
 40    end loop outer;
 41  end;
 42  /
outer=1 inner=1                                                                 
outer=2 inner=1                                                                 
outer=2 inner=2                                                                 
outer=1 inner=2                                                                 
outer=3 inner=1                                                                 
outer=3 inner=2                                                                 
outer=3 inner=3                                                                 
outer=2 inner=3                                                                 
outer=1 inner=3                                                                 

PL/SQL procedure successfully completed.