with utl_file - save the result in a txt file.

PLS, help...

I have a question that I used to use SQL PLUS, using the COIL and it worked very well.

Now, I'm changing it to pl/sql, which I'll have to use UTL_FILE.

The problem is that I need to create a file with a pre defined provision.

Can help you me pls?

Don't have much experience with UTL_FILE

Prompt 'Periodo MON-YY:'
Define periodo = '&periodo'
SPOOL C:\Users\gtorrens\Documents\GLAudit_2014_2015\gl_audit-&&periodo..txt
set termout off
set echo off
set verify off
set feedback off
set serveroutput off
set head off
set pagesize 0
set linesize 608
set timing off 
SELECT /*+
         INDEX(GCC GL_CODE_COMBINATIONS_U1)
         INDEX(GJB GL_JE_BATCHES_U1)
         INDEX(FUS FND_USER_U1)
         INDEX(GJL GL_JE_LINES_U1)*/
          rpad(SUBSTR (gcc.segment1, 1, 2),2,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (emp.de_sgm, 1, 70), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),70,' ')
           || rpad(SUBSTR (gjs.user_je_source_name, 1, 20),20,' ')
           || lpad(DECODE (NVL (gjl.entered_dr, 0)
                    , 0, DECODE (NVL (gjl.accounted_dr, 0), 0, 'C', 'D')
                    , 'D'),1,' ')
           || lpad(TO_CHAR (gjh.default_effective_date, 'DD-MON-YY'),9,' ')
           || lpad(TO_CHAR (gjh.posted_date, 'DD-MON-YY'),9,' ')
           || lpad(SUBSTR (gcc.segment2, 1, 9),9,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (cta.de_sgm, 1, 100), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),100,' ')
           || rpad(SUBSTR (cta.tp_sgm, 1, 10),10,' ')
           || lpad(TO_CHAR (NVL (gjl.accounted_dr, 0),'999G999G999G999G999G990D00'),38,' ')
           || lpad(TO_CHAR (NVL (gjl.accounted_cr, 0),'999G999G999G999G999G990D00'),38,' ')
           || lpad(SUBSTR (gjh.currency_code, 1, 5),5,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (REPLACE (SUBSTR (gjl.description, 1, 150), '|', '@'), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),150,' ')
           || rpad(gjb.last_updated_by,15,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (gjb.name, 1, 100), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),100,' ')
           || lpad(SUBSTR (fus.user_name, 1, 30),30, ' ')
             linha_utl
      FROM gl_je_lines gjl
         , gl_je_headers gjh
         , gl_code_combinations gcc
         , gl_je_sources gjs
         , gl_je_batches gjb
         , (SELECT 'EMPRESA' id_sgm
                 , a.flex_value cd_sgm
                 , b.description de_sgm
                 , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                         , 'L', 'Passivo'
                         , 'A', 'Ativo'
                         , 'E', 'Despesa'
                         , 'O', 'Pat.Liq'
                         , 'R', 'Receita')
                     tp_sgm
              FROM fnd_flex_values_vl a, fnd_flex_values_tl b
             WHERE a.flex_value_set_id = 1015197
               AND a.flex_value_id = b.flex_value_id
               AND b.language = 'PTB') emp
         , ( SELECT 'CONTA' id_sgm
                   , a.flex_value cd_sgm
                   , b.description de_sgm
                   , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                           , 'L', 'Passivo'
                           , 'A', 'Ativo'
                           , 'E', 'Despesa'
                           , 'O', 'Pat.Liq'
                           , 'R', 'Receita')
                       tp_sgm
                FROM fnd_flex_values_vl a, fnd_flex_values_tl b
               WHERE a.flex_value_set_id = 1015237
                 AND a.flex_value_id = b.flex_value_id
                 AND b.language = 'PTB') cta
         , fnd_user fus
     WHERE gjl.je_header_id = gjh.je_header_id
       AND gjb.je_batch_id = gjh.je_batch_id
       AND gjs.je_source_name = gjh.je_source
       AND gjh.ledger_id = 2041 -- p_nr_livro
       AND gjh.actual_flag = 'A'
       AND gjh.period_name = upper('&&periodo') -- 'JAN-14'
       AND gcc.code_combination_id = gjl.code_combination_id
       AND gcc.segment1 IN ('01', '12', '13', '14', '05', '16', '18')
       AND emp.id_sgm = 'EMPRESA'
       AND emp.cd_sgm = gcc.segment1
       AND cta.id_sgm = 'CONTA'
       AND cta.cd_sgm = gcc.segment2
       AND fus.user_id = gjb.last_updated_by
    --  AND rownum<1001
       ;
    SELECT /*+
         INDEX(GCC GL_CODE_COMBINATIONS_U1)
         INDEX(GJB GL_JE_BATCHES_U1)
         INDEX(FUS FND_USER_U1)
         INDEX(GJL GL_JE_LINES_U1)*/
                (lpad(TO_CHAR (NVL (SUM(gjl.accounted_dr), 0),'999G999G999G999G999G990D00'),268,' ')) /*VL_DEBITO*/
         ||' '||(lpad(TO_CHAR (NVL (SUM(gjl.accounted_cr), 0),'999G999G999G999G999G990D00'),37 ,' ')) /*VL_CREDITO*/
         ||' '|| TO_CHAR (COUNT (*)) soma /*qtd_reg*/
      FROM gl_je_lines gjl
         , gl_je_headers gjh
         , gl_code_combinations gcc
         , gl_je_sources gjs
         , gl_je_batches gjb
         , (SELECT 'EMPRESA' id_sgm
                 , a.flex_value cd_sgm
                 , b.description de_sgm
                 , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                         , 'L', 'Passivo'
                         , 'A', 'Ativo'
                         , 'E', 'Despesa'
                         , 'O', 'Pat.Liq'
                         , 'R', 'Receita')
                     tp_sgm
              FROM fnd_flex_values_vl a, fnd_flex_values_tl b
             WHERE a.flex_value_set_id = 1015197
               AND a.flex_value_id = b.flex_value_id
               AND b.language = 'PTB') emp
         , ( SELECT 'CONTA' id_sgm
                   , a.flex_value cd_sgm
                   , b.description de_sgm
                   , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                           , 'L', 'Passivo'
                           , 'A', 'Ativo'
                           , 'E', 'Despesa'
                           , 'O', 'Pat.Liq'
                           , 'R', 'Receita')
                       tp_sgm
                FROM fnd_flex_values_vl a, fnd_flex_values_tl b
               WHERE a.flex_value_set_id = 1015237
                 AND a.flex_value_id = b.flex_value_id
                 AND b.language = 'PTB') cta
         , fnd_user fus
     WHERE gjl.je_header_id = gjh.je_header_id
       AND gjb.je_batch_id = gjh.je_batch_id
       AND gjs.je_source_name = gjh.je_source
       AND gjh.ledger_id = 2041
       AND gjh.actual_flag = 'A'
       AND gjh.period_name = '&&periodo' -- 'JAN-14'
       AND gcc.code_combination_id = gjl.code_combination_id
       AND gcc.segment1 IN ('01', '12', '13', '14', '05', '16', '18')
       AND emp.id_sgm = 'EMPRESA'
       AND emp.cd_sgm = gcc.segment1
       AND cta.id_sgm = 'CONTA'
       AND cta.cd_sgm = gcc.segment2
       AND fus.user_id = gjb.last_updated_by
      -- and rownum<1001;
              
spool off;

I did something like that, when I turned it in a procedure...

create or replace PROCEDURE       XXTVGAUDIT (o_return_err      OUT VARCHAR2
                                              , o_return_code     OUT NUMBER
                                              , p_period_name  IN     VARCHAR2
                                              , p_nr_livro     IN     NUMBER)
IS
  CURSOR c1
  IS
SELECT
          rpad(SUBSTR (gcc.segment1, 1, 2),2,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (emp.de_sgm, 1, 70), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),70,' ')
           || rpad(SUBSTR (gjs.user_je_source_name, 1, 20),20,' ')
           || lpad(DECODE (NVL (gjl.entered_dr, 0)
                    , 0, DECODE (NVL (gjl.accounted_dr, 0), 0, 'C', 'D')
                    , 'D'),1,' ')
           || lpad(TO_CHAR (gjh.default_effective_date, 'DD-MON-YY'),9,' ')
           || lpad(TO_CHAR (gjh.posted_date, 'DD-MON-YY'),9,' ')
           || lpad(SUBSTR (gcc.segment2, 1, 9),9,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (cta.de_sgm, 1, 100), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),100,' ')
           || rpad(SUBSTR (cta.tp_sgm, 1, 10),10,' ')
           || lpad(TO_CHAR (NVL (gjl.accounted_dr, 0),'999G999G999G999G999G990D00'),38,' ')
           || lpad(TO_CHAR (NVL (gjl.accounted_cr, 0),'999G999G999G999G999G990D00'),38,' ')
           || lpad(SUBSTR (gjh.currency_code, 1, 5),5,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (REPLACE (SUBSTR (gjl.description, 1, 150), '|', '@'), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),150,' ')
           || rpad(gjb.last_updated_by,15,' ')
           || rpad(TRANSLATE (
                CONVERT (
                TRANSLATE (
                    REPLACE(REPLACE (REPLACE (SUBSTR (gjb.name, 1, 100), CHR (13), ''), CHR (10), ''),CHR (9), '')
                   ,'??????????????????¡§©³º ¨¬²¹¢ª®´»£µ«¼!@#$%*()_+=[]{}/\?:<>|ãÃõÕçÇüÜâÂêÊôÔáÁàÀéÉíÍóÓúÚñшÞ'
                   ,'                                                             aAoOcCuUaAeEoOaAaAeEiIoOuUnN  ')
               ,'US7ASCII'
               ,'WE8ISO8859P1') ,'?',' '),100,' ')
           || lpad(SUBSTR (fus.user_name, 1, 30),30, ' ')
             linha_utl
      FROM gl_je_lines gjl
         , gl_je_headers gjh
         , gl_code_combinations gcc
         , gl_je_sources gjs
         , gl_je_batches gjb
         , (SELECT 'EMPRESA' id_sgm
                 , a.flex_value cd_sgm
                 , b.description de_sgm
                 , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                         , 'L', 'Passivo'
                         , 'A', 'Ativo'
                         , 'E', 'Despesa'
                         , 'O', 'Pat.Liq'
                         , 'R', 'Receita')
                     tp_sgm
              FROM fnd_flex_values_vl a, fnd_flex_values_tl b
             WHERE a.flex_value_set_id = 1015197
               AND a.flex_value_id = b.flex_value_id
               AND b.language = 'PTB') emp
         , ( SELECT 'CONTA' id_sgm
                   , a.flex_value cd_sgm
                   , b.description de_sgm
                   , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                           , 'L', 'Passivo'
                           , 'A', 'Ativo'
                           , 'E', 'Despesa'
                           , 'O', 'Pat.Liq'
                           , 'R', 'Receita')
                       tp_sgm
                FROM fnd_flex_values_vl a, fnd_flex_values_tl b
               WHERE a.flex_value_set_id = 1015237
                 AND a.flex_value_id = b.flex_value_id
                 AND b.language = 'PTB') cta
         , fnd_user fus
     WHERE gjl.je_header_id = gjh.je_header_id
       AND gjb.je_batch_id = gjh.je_batch_id
       AND gjs.je_source_name = gjh.je_source
       AND gjh.ledger_id = 2041 -- p_nr_livro
       AND gjh.actual_flag = 'A'
       AND gjh.period_name = upper('null') -- 'JAN-14'
       AND gcc.code_combination_id = gjl.code_combination_id
       AND gcc.segment1 IN ('01', '12', '13', '14', '05', '16', '18')
       AND emp.id_sgm = 'EMPRESA'
       AND emp.cd_sgm = gcc.segment1
       AND cta.id_sgm = 'CONTA'
       AND cta.cd_sgm = gcc.segment2
       AND fus.user_id = gjb.last_updated_by
      AND rownum<1001;
      
  CURSOR c2
  IS
    SELECT /*+
         INDEX(GCC GL_CODE_COMBINATIONS_U1)
         INDEX(GJB GL_JE_BATCHES_U1)
         INDEX(FUS FND_USER_U1)
         INDEX(GJL GL_JE_LINES_U1)*/
                (lpad(TO_CHAR (NVL (SUM(gjl.accounted_dr), 0),'999G999G999G999G999G990D00'),268,' ')) /*VL_DEBITO*/
         ||' '||(lpad(TO_CHAR (NVL (SUM(gjl.accounted_cr), 0),'999G999G999G999G999G990D00'),37 ,' ')) /*VL_CREDITO*/
         ||' '|| TO_CHAR (COUNT (*)) soma /*qtd_reg*/
      FROM gl_je_lines gjl
         , gl_je_headers gjh
         , gl_code_combinations gcc
         , gl_je_sources gjs
         , gl_je_batches gjb
         , (SELECT 'EMPRESA' id_sgm
                 , a.flex_value cd_sgm
                 , b.description de_sgm
                 , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                         , 'L', 'Passivo'
                         , 'A', 'Ativo'
                         , 'E', 'Despesa'
                         , 'O', 'Pat.Liq'
                         , 'R', 'Receita')
                     tp_sgm
              FROM fnd_flex_values_vl a, fnd_flex_values_tl b
             WHERE a.flex_value_set_id = 1015197
               AND a.flex_value_id = b.flex_value_id
               AND b.language = 'PTB') emp
         , ( SELECT 'CONTA' id_sgm
                   , a.flex_value cd_sgm
                   , b.description de_sgm
                   , DECODE (SUBSTR (a.compiled_value_attributes, 5, 1)
                           , 'L', 'Passivo'
                           , 'A', 'Ativo'
                           , 'E', 'Despesa'
                           , 'O', 'Pat.Liq'
                           , 'R', 'Receita')
                       tp_sgm
                FROM fnd_flex_values_vl a, fnd_flex_values_tl b
               WHERE a.flex_value_set_id = 1015237
                 AND a.flex_value_id = b.flex_value_id
                 AND b.language = 'PTB') cta
         , fnd_user fus
     WHERE gjl.je_header_id = gjh.je_header_id
       AND gjb.je_batch_id = gjh.je_batch_id
       AND gjs.je_source_name = gjh.je_source
       AND gjh.ledger_id = 2041
       AND gjh.actual_flag = 'A'
       AND gjh.period_name = 'null' -- 'JAN-14'
       AND gcc.code_combination_id = gjl.code_combination_id
       AND gcc.segment1 IN ('01', '12', '13', '14', '05', '16', '18')
       AND emp.id_sgm = 'EMPRESA'
       AND emp.cd_sgm = gcc.segment1
       AND cta.id_sgm = 'CONTA'
       AND cta.cd_sgm = gcc.segment2
       AND fus.user_id = gjb.last_updated_by
       
       and rownum<1001;
  w_ind_erro     NUMBER;
  w_erro_geral   EXCEPTION;


  w_msg_erro     VARCHAR2 (240);
  w_linha        VARCHAR2 (1000);


  w_nm_arq_utl   UTL_FILE.file_type;
  w_nm_arq_utl_r UTL_FILE.file_type;


  w_nm_dir_dad   VARCHAR2 (80);
  --w_nm_int_dir_dad VARCHAR2 (80);
  --w_nm_arq_dad   VARCHAR2 (80);
  w_nm_arq_dad_aux VARCHAR2 (80);
  w_nm_arq_dad_qtd VARCHAR2 (80);
  
  P_DIRETORIO VARCHAR2(200) := '/tmp';
  P_ARQUIVO   VARCHAR2(200) := 'Desliga_mainframe_indices_economicos.csv';
  
  W_DIRETORIO VARCHAR2(50) := P_DIRETORIO;
  W_ARQUIVO   VARCHAR2(50) := P_ARQUIVO;


  w_qtd_reg      NUMBER;


  -- -----------------------------------------------

  PROCEDURE pr_abre_txt --(p_nm_dir IN VARCHAR2, p_nm_arq IN VARCHAR2, p_tp_abertura IN VARCHAR2)
  IS
  BEGIN
    w_nm_arq_utl := UTL_FILE.fopen ( W_DIRETORIO, W_ARQUIVO, 'W');
  EXCEPTION
    WHEN UTL_FILE.invalid_path THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Caminho Invalido');
    WHEN UTL_FILE.invalid_mode THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Modo Invalido');
    WHEN UTL_FILE.invalid_filehandle THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Nome Arquivo Invalido');
    WHEN UTL_FILE.invalid_operation THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Operacao Invalida');
    WHEN UTL_FILE.read_error THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Erro Leitura');
    WHEN UTL_FILE.write_error THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Erro Escrita');
    WHEN UTL_FILE.internal_error THEN
      UTL_FILE.fclose (w_nm_arq_utl);
      raise_application_error (-20504, 'ERRO NA ABERTURA DO ARQUIVO: Erro Interno');
  END pr_abre_txt;


  -- ------------------------------------------------------
  PROCEDURE pr_grava_txt (p_de_msg IN VARCHAR2)
  IS
  BEGIN
    UTL_FILE.put_line (w_nm_arq_utl, p_de_msg);
  EXCEPTION
    WHEN UTL_FILE.invalid_path THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Caminho Invalido');
    WHEN UTL_FILE.invalid_mode THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Modo Invalido');
    WHEN UTL_FILE.invalid_filehandle THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Nome Arquivo Invalido');
    WHEN UTL_FILE.invalid_operation THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Operacao Invalida');
    WHEN UTL_FILE.read_error THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Erro Leitura');
    WHEN UTL_FILE.write_error THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Erro Escrita');
    WHEN UTL_FILE.internal_error THEN
      raise_application_error (-20503, 'ERRO AO GRAVAR: Erro Interno');
  END pr_grava_txt;


  -- ------------------------------------------------------
  PROCEDURE pr_fecha_txt
  IS
  BEGIN
    UTL_FILE.fclose (w_nm_arq_utl);
  EXCEPTION
    WHEN OTHERS THEN
      raise_application_error (-20501, 'ERRO NO FECHAMENTO ARQUIVO DE LOG');
  END pr_fecha_txt;
  -- --------------------------------------------------------------------------------------------------
  BEGIN
  --PR_ABRE_TXT (W_NM_DIR_SQL, W_NM_ARQ_DAD ,'w');
  pr_abre_txt ( W_DIRETORIO, W_ARQUIVO, 'w');


  w_nm_arq_utl_r := UTL_FILE.fopen ( w_nm_arq_utl, w_nm_arq_dad_qtd, 'w');
 -- w_qtd_reg   := 0;


 /* FOR cur2 IN c2
  LOOP
    w_linha     := cur2.soma;
    pr_grava_txt (w_linha);


    w_qtd_reg   := w_qtd_reg + 1;


    --IF MOD (w_qtd_reg, 100000) = 0 THEN
      UTL_FILE.put_line (w_nm_arq_utl_r, 'Qtd. de linhas geradas = ' w_qtd_reg w_linha );
    --END IF;
  END LOOP;


 -- UTL_FILE.put_line (w_nm_arq_utl_r, 'Final de Qtd. de linhas geradas = ' || w_qtd_reg);
  UTL_FILE.fclose (w_nm_arq_utl_r);
  --*/
  -- --------------------------------------------------------------------------------------------------
  pr_fecha_txt;
  --
  -- --------------------------------------------------------------------------------------------------






EXCEPTION
  WHEN w_erro_geral THEN
    raise_application_error (-20501, 'Parada por motivo de Erros na execução.');
--
END XXTVGAUDIT;