Declare
   in_file client_text_io.file_type;
   linebuf Varchar2(2000);
Begin
   in_file := client_text_io.fopen('C:\TEMP\test.txt', 'w');
   If client_text_io.is_open(in_file) Then
      client_text_io.put_line(in_file, 'Line_text');
      client_text_io.fclose(in_file);
      synchronize;
   End If;
   If Not client_text_io.is_open(in_file) Then
      client_host('Notepad.exe ');
   Else
      client_text_io.fclose(in_file);
   End If;


exception
	when others then
	null;
	
end;