XML

Ola pessoal,

Estou tentando criar uma procedure para criar um arquivo XML apartir de uma consulta, porém ela não esta gerando o arquivo. (Ela esta compilando sem erros)


Alguem sabe pq ela não esta criando o arquivo????

Segue o código implementado logo abaixo:
[/code]create or replace
procedure gerar_xml is
nm_usuario_wvarchar2(15);
arquivo_saidaUTL_File.File_Type;
Cursor c01 is
select nm_usuario
from usuario;
BEGIN
arquivo_saida := UTL_File.Fopen(´C:´,´arquivo.txt´, ´A´);
OPEN C01;
LOOP
FETCH C01 into
nm_usuario_w;
exit when c01¬notfound;
begin
UTL_File.Put_Line(arquivo_saida, nm_usuario_w);
end;
END LOOP;
CLOSE C01;
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.fflush(arquivo_saida);
UTL_File.Fclose_all;
end gerar_xml;
/
[code:1:7b14554de0][/code:1:7b14554de0]