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;