XML output from PLSQL procedure

declare
out_file Text_IO.File_Type;
v_loca varchar2(100):='D:\PBM\Outward\';
begin
out_file := Text_IO.Fopen(v_loca'Outward''.xml', 'w');
Text_IO.Put_Line(out_file,'');
Text_IO.Put_Line(out_file,'');
Text_IO.Put_Line(out_file,' ');
Text_IO.Put_Line(out_file,' ');
Text_IO.Put_Line(out_file,'''070''');
Text_IO.Put_Line(out_file,' ');
Text_IO.Put_Line(out_file,' ');
Text_IO.Put_Line(out_file,'');
Text_IO.Fclose (out_file);
end;