home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST232.PRG < prev    next >
Encoding:
Text File  |  1989-09-16  |  881 b   |  53 lines
  1. ********************
  2.  
  3. FUNCTION Dbfindex
  4.  
  5.    PARAMETERS _thefile, _theexp, _theindex
  6.  
  7.    IF PCOUNT() < 1
  8.       RETURN(.F.)
  9.    ENDIF
  10.    IF TYPE("_thefile") != "C"
  11.       RETURN(.F.)
  12.    ENDIF
  13.  
  14.    IF PCOUNT() = 2
  15.       _theindex = _thefile
  16.    ENDIF
  17.  
  18.    IF PCOUNT() >= 2
  19.       IF TYPE("_theexp") != "C"
  20.          RETURN(.F.)
  21.       ENDIF
  22.    ENDIF
  23.  
  24.    IF EMPTY(_thefile)
  25.       USE
  26.       RETURN(.T.)
  27.    ENDIF
  28.  
  29.    IF !FILE(Extention(_thefile, "dbf"))
  30.       RETURN(.F.)
  31.    ENDIF
  32.  
  33.    IF EMPTY(_thefile)
  34.    ELSE
  35.       USE (_thefile)
  36.       IF PCOUNT() > 1   && Use ONLY!
  37.          IF TYPE(_theexp) == "U"
  38.             USE
  39.             RETURN(.F.)
  40.          ENDIF
  41.       ELSE
  42.          RETURN(.T.)
  43.       ENDIF
  44.    ENDIF
  45.    INDEX ON &_theexp. TO (_theindex)
  46.    IF EMPTY(_thefile)
  47.    ELSE
  48.       USE
  49.    ENDIF
  50.    RETURN( (DOSERROR() = 0) )
  51.  
  52. * End of File
  53.