home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / RLIB20.ZIP / RL_NTXKE.PRG < prev    next >
Encoding:
Text File  |  1989-02-18  |  571 b   |  17 lines
  1. *--------------------------------------------------------------------------
  2. * Function: NtxKeyVal
  3. * Syntax..: NtxKeyVal()
  4. * Returns.: The value from the current database(s) from the evaluation of
  5. *           the index key from the currently selected database.
  6. *--------------------------------------------------------------------------
  7. FUNCTION NtxKeyVal
  8. PRIVATE f_ntx_key
  9.  
  10. f_ntx_key = INDEXKEY(0)               && controlling index key expression
  11.  
  12. IF LEN(TRIM(f_ntx_key)) > 0          && evaluate only if not empty
  13.    RETURN &f_ntx_key
  14. ENDIF
  15.  
  16. RETURN ''
  17.