Roteiro para geração de arquivo texto:

DECLARE

    arquivo_saida                    UTL_File.File_Type;

    Cursor Cur_Linhais select to_char(sysdate,'dd/mm/yyyy hh24:mi:ss "século" CC') DATA from dual;

BEGIN

     /*

       A    Append Text

       AB   Append Byte Mode

       R      Read Text

       RB   Read Byte Mode

       W      Write Text

       WB   Write Byte Mode

     */

   arquivo_saida := UTL_File.Fopen('/home/oracle/','alfa.txt', 'W');

   For Reg_Linha in Cur_linha Loop

       UTL_File.Put_Line(arquivo_saida, Reg_linha.Data);

    End Loop;

   UTL_File.Fclose(arquivo_saida);

    Dbms_Output.Put_Line('Arquivo gerado com sucesso.');

EXCEPTION

      WHEN UTL_FILE.INVALID_OPERATION THEN

               Dbms_Output.Put_Line('Operação
inválida no arquivo.');

              UTL_File.Fclose(arquivo_saida);

      WHEN UTL_FILE.WRITE_ERROR THEN

               Dbms_Output.Put_Line('Erro de
gravação no arquivo.');

              UTL_File.Fclose(arquivo_saida);

      WHEN UTL_FILE.INVALID_PATH THEN

               Dbms_Output.Put_Line('Diretório
inválido.');

              UTL_File.Fclose(arquivo_saida);

      WHEN UTL_FILE.INVALID_MODE THEN

               Dbms_Output.Put_Line('Modo de acesso
inválido.');

              UTL_File.Fclose(arquivo_saida);

      WHEN Others THEN

              Dbms_Output.Put_Line('Problemas na
geração do arquivo.');

              UTL_File.Fclose(arquivo_saida);

END;

Roteiro para leitura de arquivo texto:

DECLARE

    arquivo_ler                    UTL_File.File_Type;

    Linha                               Varchar2(100);

BEGIN

    arquivo_ler := UTL_File.Fopen('caminho completo’,’nm arquivo', 'r');

    Loop

       UTL_File.Get_Line(arquivo_ler, Linha);

    End Loop;

    UTL_File.Fclose(arquivo_ler);

    Dbms_Output.Put_Line('Arquivo processado com sucesso.');

EXCEPTION

   WHEN No_data_found THEN

               UTL_File.Fclose(arquivo_ler);

               Commit;

   WHEN
UTL_FILE.INVALID_PATH THEN

               Dbms_Output.Put_Line('Diretório
inválido.');

              UTL_File.Fclose(arquivo_ler);

    WHEN Others THEN

               Dbms_Output.Put_Line
('Problemas na leitura
do arquivo.');

               UTL_File.Fclose(arquivo_ler);

END;