home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9104.ZIP / TECHTIP2.APR < prev    next >
Encoding:
Text File  |  1991-03-26  |  541 b   |  34 lines
  1. LISTING 2
  2.  
  3. /***
  4. *
  5. *    INSERT A CONTROL-Z AT EOFO
  6. *
  7. ***/
  8.  
  9. ** test.prg
  10.  
  11. if add_eof(╥GLENTRY.TXT╙)
  12.     use getdata
  13.     append from (╥GLENTRY.TXT╙) SDF
  14. else
  15. error(╥There has been a problem adding an EOF to GLENTRY.TXT╙)
  16.      RETURN
  17. endif
  18.  
  19. #include ╥Fileio.ch╙
  20.  
  21. FUNCTION add_eof (filename)
  22.      local error
  23.  
  24.      error := ( fhandle := FOPEN(filename,FO_READWRITE) ) <= 0
  25.  
  26.      FSEEK(fhandle,1,FS_END)
  27.      error = error .OR. FERROR() <> 0
  28.  
  29.      error = error .OR. (FWRITE(fhandle,chr(26),1) <> 1)
  30.  
  31.      FCLOSE(fhandle)
  32.  
  33.      RETURN error .OR. FERROR() <> 0
  34.