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:

create or replace

procedure gerar_xml is

 nm_usuario_w varchar2(15);

 arquivo_saida UTL_File.File_Type;

Cursor c01 is

 select nm_usuario

 from usuario;

BEGIN

arquivo_saida := UTL_File.Fopen('C:','sardinha.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;

/