Gerando XML com PL/SQL a partir de uma query

[Sulimar ArseParticipante]

Obrigado pela atenção! Consegui resolver a questão com o Replace. 🙂

Agora estou com um ÚNICO problema para resolver:

Quando executo uma proc com o código abaixo gera o arquivo texto desejado com TODOS OS REGISTROS colocados no cursor. Mas usando a mesma estrutura para gerar um cadastro de produtos, corta o arquivo conforme em anexo, alguma dica do que pode estar ocorrendo?

Rodando somente o SELECT DO CURSOR de produtos, mostra todos os registros, mas rodando a procedure pelo PL/SQL ou pelo TOAD, gera o arquivo produtos.txt faltando linhas conforme em anexo (NÃO GERA TODOS OS REGISTROS).

----------------------------------------------------------------------
DBMS_OUTPUT.PUT_LINE ('=====> Gerar o arquivo de FORMAS DE PAGAMENTO ');
----------------------------------------------------------------------    
ExpFileName := 'pagamento.txt';
--
ExpFilePath := pPathArq;

--
IF NOT sys.UTL_FILE.IS_OPEN (ExpFile) THEN
    --
    ExpFile := sys.UTL_FILE.FOPEN (ExpFilePath, ExpFileName, 'w',9999);
    --

END IF;

sys.UTL_FILE.PUT_LINE (ExpFile, '');
sys.UTL_FILE.PUT_LINE (ExpFile, ''); 
--
--
FOR rPagamento IN cPagamento LOOP
    --                                      
    sys.UTL_FILE.PUT (ExpFile, REPLACE(rPagamento.XMLTYPE,'ROW','PAGAMENTO'));  
    --
END LOOP;

sys.UTL_FILE.PUT (ExpFile, '');
--                                              
--
IF sys.UTL_FILE.IS_OPEN (ExpFile) THEN
   sys.UTL_FILE.FFLUSH (ExpFile);
   sys.UTL_FILE.FCLOSE (ExpFile);
END IF;

Arquivo texto gerado completo!

Arquivo texto gerado INCOMPLETO!

Attachments:

• pagamento.txt
• produto.txt