Erro ao Gerar aquivo txt

[Sandro2sParticipante]

Ola pessoal deu certo. Nos meus estudos achei uma forma mais organizada de gerar o aquivo. Obrigado pela ajuda.

Declare
arq_saida utl_file.file_type;
r_lin varchar2(36);

Cursor cur_linha is
select to_char(cuf_codigo,’fm00000′)as cod,cuf_nome from aa1ccduf;
Begin
arq_saida := utl_file.fopen(‘/dbx’,’teste.txt’,’w’);
For r_lin in cur_linha Loop
utl_file.put_line(arq_saida,r_lin.cod||’-‘||r_lin.cuf_nome);
End Loop;
utl_file.fclose(arq_saida);
dbms_output.put_line( ‘Aquivo Gerado com Sucesso’);
Exception
when utl_file.invalid_operation then
dbms_output.put_line ( ‘Operação inválida no arquivo.’);
utl_file.fclose(arq_saida);
when utl_file.write_error then
dbms_output.put_line (‘Erro de gravação no arquivo.’);
utl_file.fclose(arq_saida);
End;