home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / ARRIBA-2.ZIP / ARRIBA2.ZIP / REORG.BAT < prev    next >
Encoding:
DOS Batch File  |  1989-02-24  |  448 b   |  19 lines
  1. echo off
  2. if NOT EXIST %1.adb goto USAGE
  3. if EXIST %1.adr del %1.adr>NUL
  4. areorg %1.adb
  5. if errorlevel 1 goto ERROR
  6. if EXIST %1.bak del %1.bak>NUL
  7. ren %1.adb %1.bak>NUL
  8. ren %1.adr %1.adb>NUL
  9. goto EXIT
  10. :ERROR
  11. echo    Error during reorganization. Database not reorganized.
  12. goto EXIT
  13. :USAGE
  14. echo.
  15. echo Usage: "reorg database" WITHOUT the .adb extension
  16. echo You must be in the directory containing your textbase to use reorg
  17. echo.
  18. :EXIT
  19.