set serveroutput on size unlimited 
declare 
texto            varchar2(2000); 
indice_anterior  varchar2(30) := 'XXXXXXXXXX'; 
begin 
DBMS_OUTPUT.ENABLE (buffer_size => NULL); 
 for c1 in (select table_name,index_name,column_name from dba_ind_columns where index_owner = 'SAPSR3' and index_name 
             not like '%~0' order by table_name,index_name,column_position) loop 
      if c1.index_name <> indice_anterior then 
          if indice_anterior = 'XXXXXXXXXX' then 
              indice_anterior := c1.index_name; 
              texto := c1.table_name||';'||c1.index_name||';'||c1.column_name||';'; 
          else 
              dbms_output.put_line(texto); 
              texto := c1.table_name||';'||c1.index_name||';'||c1.column_name||';'; 
              indice_anterior := c1.index_name; 
          end if; 
      else 
          texto := texto||c1.column_name||';'; 
      end if; 
   end loop; 
 dbms_output.put_line(texto); 
end; 
/