home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST170.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  953 b   |  48 lines
  1. ********************
  2.  
  3. FUNCTION Findfield
  4.  
  5.    PARAMETERS _thefield, _thearea
  6.  
  7.    PRIVATE _retto, _use_use, _goto, _ptr
  8.  
  9.    _retto = LTRIM(TRIM(STR(SELECT())))
  10.    _use_use = .F.
  11.  
  12.    IF PCOUNT() = 1
  13.       IF EMPTY(ALIAS())
  14.          RETURN(0)
  15.       ENDIF
  16.    ELSEIF PCOUNT() = 0
  17.       RETURN(0)
  18.    ELSE
  19.       IF TYPE("_thearea") = "N"
  20.          _goto = LTRIM(TRIM(STR(_thearea,2)))
  21.          SELECT &_goto.
  22.       ELSEIF TYPE("_thearea") <> "C"
  23.          RETURN(0)
  24.       ELSE
  25.          IF LEN(_thearea) = 1
  26.             SELECT &_thearea.
  27.          ELSE
  28.             IF !FILE(_thearea)
  29.                RETURN(0)
  30.             ENDIF
  31.             SELECT 0
  32.             USE &_thearea
  33.             _use_use = .T.
  34.          ENDIF
  35.       ENDIF
  36.    ENDIF
  37.  
  38.    DECLARE _usethis[FCOUNT()]
  39.    AFIELDS(_usethis)
  40.    _ptr = ASCAN(_usethis, UPPER(_thefield))
  41.    IF _use_use
  42.       USE
  43.    ENDIF
  44.    SELECT &_retto.
  45.    RETURN(_ptr)
  46.  
  47. * End of File
  48.