home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 24b / ntxerr.zip / REDOINDE.PRG < prev   
Text File  |  1988-08-31  |  772b  |  26 lines
  1. ******************
  2. FUNCTION RedoIndex
  3. ******************
  4.  
  5. * Include this function in one of the modules called by your application.
  6. * -----------------------------------------------------------------------
  7. * Replace all the index names and keys with ones used by your application.
  8. * Add as many CASEs as you need
  9.  
  10. * cl_dbf is passed from OPEN_ERROR, it is the name of the database
  11. * on which the USE ____ INDE ____ was attempted.
  12.  
  13. USE &cl_dbf
  14. DO CASE
  15. CASE cl_index = "TEST"            && Examples only, replace & repeat with
  16.     INDE ON job_no TO &cl_index    && your index names & keys.
  17.  
  18. *CASE cl_index = _______ etc....
  19. *   INDE ON _____ TO ______
  20.  
  21. OTHERWISE
  22.     @24,0 SAY "Index key is not defined in RedoIndex(). Aborting."
  23.     QUIT
  24. ENDCASE
  25. RETURN .T.
  26.