cAlias = ALIAS() cKeyExpn = SYS(14) uIndexKeyValue = EVAL(cKeyExpn) nRecNo = RECNO() SELECT * FROM (cAlias) ; WHERE &cKeyExpn < uIndexKeyValue ; INTO CURSOR (SYS(2015)) nLogicalRecNo = _TALLY + 1 USE SELECT (cAlias) SEEK uIndexKeyValue * * If the key is non-unique, you need to do the following: * DO WHILE RECNO() # nRecNo nLogicalRecNo = nLogicalRecNo + 1 SKIP ENDDOIt's a kludge, but it works...