home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DESKTOP / TABS_V21.ZIP / GSFBKDX1.FRB (.txt) < prev    next >
FrontRunner Binary Module  |  1991-05-31  |  3KB  |  51 lines
  1. Reindex
  2. SET COLOR TO &COLOR4
  3. MCONT
  4. MKEYFIELD
  5. MCONT
  6. MHELLO
  7. MKEYFIELD
  8. This routine will reindex the entire database.
  9. It may take a while, depending on the number
  10. of records in the database.
  11. Do you still want to reindex <Y> or <Q>uit ?
  12. MCONT
  13. MCONT
  14. MCONT
  15. DATAINDEX
  16. USE &DATAFILE INDEX &DATAINDEX
  17. CONAME
  18. Company
  19. LNAME
  20. PHONE1
  21. Phone 1
  22. PHONE2
  23. Phone 2
  24. MKEYFIELD
  25. MKEYFIELD
  26. Currently using the 
  27. MKEYFIELD
  28.  field.  Which field
  29. do you wish to use for the quick search routine ?
  30. <N>ame, <C>ompany, Phone<1>, Phone<2>, or <Q>uit
  31. NC12Q
  32. Indexing on the Name
  33. USE &DATAFILE
  34. INDEX ON UPPER(LEFT(LNAME,25))+','+UPPER(LEFT(FNAME,20)) TO &DATAINDEX
  35. Indexing on the Company Name
  36. USE &DATAFILE
  37. INDEX ON UPPER(CONAME) TO &DATAINDEX
  38. Indexing on Phone 1
  39. USE &DATAFILE
  40. INDEX ON UPPER(PHONE1) TO &DATAINDEX
  41. Indexing on Phone 2
  42. USE &DATAFILE
  43. INDEX ON UPPER(PHONE2) TO &DATAINDEX
  44. DATAPATH
  45. TABSDFLT.DBF
  46. DFLTFILE
  47. USE &DFLTFILE
  48. INDEXFLD
  49. Finished Indexing the Data file.
  50.       Press any key to continue...
  51.