Procedure MAKEFILEPROC(FN varchar2, CODESTRANA number, ngodsel varchar2) is
 fc   Client_Text_IO.File_Type; 
begin
....
 	 	 fc := Client_Text_IO.Fopen(Path||'\'||:YFORM||'\'||fn||'.bak', 'w');  
     client_Text_IO.put(fc,'<document id="" type="" version="" mgdid="" maildate="" floppy="" mail="">
                                      <form_main>
                                       <page_main>
                                        <file_id_c/>
                                        <file_id_d>'||sysdate||'</file_id_d>
                                        <type_info>ÔëÅâðÀçÝÑ</type_info> 
                                        <name>Áåëàðóñü</name> 
                                        <phone/>
                                        <fio/>
                                        <count>'||V_VXML_CUR%ROWCOUNT||'</count>
                                        <vers/> 
                                        <date>'||ngodsel||'</date> 
                                       </page_main>
                                      </form_main>'); 	
....
  client_Text_IO.Fclose(fc);    
....
ТУТ ЕЩЕ ИДЕТ РАБОТА
....
end;	

Файл создается, но его размер равен  0 , он появляется только после выхода из процедуры, почему так происходит?