Mike,

VFP optimization have concept of deterministic/ not deterministic functions.

CREATE CURSOR randCursor ( F1 I DEFAULT 2015,F2 C(10) DEFAULT SYS(F1))
FOR K=1 TO 100
  APPEND BLANK
NEXT
INDEX ON F2 		TAG TAGSYS2
INDEX ON SYS(F1)	TAG TAGSYS1

CLEAR

SYS(3054,11)
SELECT * FROM randCursor WHERE F2=SYS(F1)

Fabio