create or replace procedure dumpinfo is
type type_col1_naam
is table of tracks%rowtype
index by pls_integer;
t_binname type_col1_naam;
v_index pls_integer;
BEGIN
select name1, track_inf
bulk collect into t_mnaam
from tracks
order by name;
dbms_output.put_line('All info on alphabetical order with bulk collect');
v_index := t_mnaam.first;
while v_index is not null
loop
if t_mnaam(v_index) != null
then
dbms_output.put_line('Name bank: ' || t_mnaam.name1(v_index)) || 'Trackinfo'
|| t_mnaam.track_inf(v_index);
end if;
v_index := t_mnaam.next(v_index);
end loop;
dbms_output.put_line('***************** End info *****************');
end;