home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug060.arc / CPM#006.LBR / DB2BAKUP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  47 lines
  1. *
  2. *
  3. *
  4. *  Cobbled together by ;
  5. *
  6. *  Ralph L. Smotherman
  7. *  4068 Port Cleburne Lane
  8. *  Hermitage, Tn.  37076
  9. *
  10. * fast file backup for dBaseII
  11. * this short command file will hopefully minimize the problems
  12. * associated with the inevitable dbaseII lost file problem and
  13. * at least allow recovery of the data entered in all previous
  14. * data entry sessions.
  15. * no provision is made for recovery of the index files as they can be
  16. * reconstructed from the data file
  17. set talk off
  18. use FILENAME
  19. go bott
  20. store # to M:PREVLAST
  21. save to DB2BAKUP
  22. *
  23. * YOUR PROGRAM SHOULD BE INSERTED HERE *******
  24. *
  25. restore from DB2BAKUP
  26. use FILENAME
  27. go bott
  28. store # to M:THISLAST
  29. go M:PREVLAST
  30. skip
  31. store str((M:THISLAST-M:PREVLAST),5) to M:NUMBER
  32. copy next &M:NUMBER to TEMP1
  33. *
  34. * if disk drive capacity allows, I suggest assigning the *.BKP
  35. * file to a drive other than that of the data file(*.DBF).
  36. *
  37. use FILENAME.BKP
  38. appe from TEMP1
  39. dele file TEMP1
  40. clear
  41. return
  42. *
  43. *  Hopefully this file will be of more value to you than your cost for
  44. *  the file.
  45. *
  46. *
  47.