DECLARE
   out_file     text_io.file_type;
   line_bufer   VARCHAR2 (80);
BEGIN
   		out_file := text_io.fopen ('/user/andy/test123.txt', 'W');

       
      text_io.put ('123');
      text_io.new_line;
      text_io.put_line (out_file, 'abcd...');
   
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      text_io.put_line ('CLOSING THE FILE ,PLEASE WAITING....');      
      text_io.fclose (out_file);
END;