Ajuda - UTL_FILE - Oracle 10g

[Leonardo de S. Rosalino 0]

Boa tarde,

 

Gostaria de saber se tem como excluir a ultima linha gerada após a execução de um cursor. 

 

Ex mais ou menos isso aqui: 

declare cursor cur_linha is select 'teste linha' as linha from dual;
 arquivo       utl_file.file_type;
 r             cur_linha%rowtype;
 l_texto       varchar2(108);
 l_texto_arq   varchar2(108);
begin
  --
  arquivo:= utl_file.fopen('$DIR', '$NOME_ARQ', 'w');
  --
  if utl_file.is_open(arquivo) then
   open cur_linha;
     loop
       fetch cur_linha into r;
       exit when cur_linha%notfound;
       l_texto := rpad(r.linha, 108,' ' );
       l_texto_arq := substr(l_texto, 2, 108);
       utl_file.put_line(arquivo, l_texto_arq || chr(13));
       utl_file.fflush(arquivo);
     end loop;
  end if;
 --
 utl_file.fclose(arquivo);
end;

 

O resultado é um arquivo com duas linhas sendo uma com o conteúdo "teste linha" ao invés de uma linha somente.