home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbsales.zip / DBSALES.LBR / GAINDEX.PRO < prev    next >
Text File  |  1986-01-14  |  1KB  |  41 lines
  1. *
  2. * GAINDEX.PRO from GAUPDATE.PRO from GAMAIN.PRO
  3. *
  4. DO WHILE .T.
  5. CLEAR
  6. ? 'The follow index fields are in existence, &mname...'
  7. SET DEFAULT TO &gasysb
  8. DIR *.NDX
  9. SET DEFAULT TO &gasysa
  10. TEXT
  11. The program automatically maintains KEY, COMPANY & NAME.
  12.  
  13. You may :
  14.           1. Create a new index
  15.           2. Reindex any one index
  16.           3. Reindex all program maintained indexes.
  17.           LEAVE - press return
  18.  
  19. ENDTEXT
  20. WAIT TO GADEX
  21.      DO CASE GADEX
  22.         CASE GADEX = '1'
  23.         ACCEPT 'FIELD on which to index... ' to gafield
  24.         ACCEPT 'NAME of index (may match field name).. ' to gi
  25.         INDEX ON &gafield to &gi
  26.         CASE GADEX = '2'
  27.         ACCEPT 'Which index to reindex (do not use .NDX).. 'to gr
  28.         SET INDEX TO &gr
  29.         REINDEX &gr
  30.         CLOSE DATABASES
  31.         &gause1
  32.         CASE GADEX = '3'
  33.         REINDEX
  34.         CLOSE DATABASES
  35.         &gause1
  36.         OTHERWISE
  37.         CLEAR
  38.         RETURN
  39.  
  40. ENDCASE
  41. ENDDO