home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / SAM_PACK.PRG < prev    next >
Text File  |  1985-11-05  |  914b  |  37 lines
  1. * Program.: SAM_PACK.PRG
  2. * Author..: Your Name
  3. * Date....: 11/05/85
  4. * Notice..: Copyright 1985, Your Company, All Rights Reserved
  5. * Version.: dBASE III, version 1.1
  6. * Notes...: PACK program for NAMES.DBF
  7. *
  8. PARAMETER row,tempdbf,origdbf,origndx,origkey
  9. * ---Delete old tempdbf file if it exists.
  10. IF FILE( [&tempdbf] )
  11.    DELETE FILE &tempdbf
  12. ENDIF
  13. @ row,0 SAY "Copying " + origdbf + "..."
  14. * ---Copy in order of index file.
  15. SET DELETED ON
  16. SET TALK ON
  17. COPY TO &tempdbf
  18. SET TALK OFF
  19. SET DELETED OFF
  20. * ---Close original file.
  21. USE
  22. * ---Delete original file.
  23. DELETE FILE &origdbf
  24. * ---RENAME tempdbf to original.
  25. RENAME &tempdbf TO &origdbf
  26. * ---USE new original and recreate index file.
  27. USE &origdbf
  28. IF "" <> origndx
  29.    @ row,0 CLEAR
  30.    @ row,0 SAY "Recreating index " + origndx + "..."
  31.    SET TALK ON
  32.    INDEX ON &origkey TO &origndx
  33.    SET TALK OFF
  34. ENDIF
  35. RETURN
  36. * EOF: SAM_PACK.PRG
  37.