IF NOT FILE("TEST.DBF") CREATE TABLE test FREE (cField1 c(10)) FOR x = 1 TO 500000 INSERT INTO TEST (cField1) VALUES (TRANSFORM(m.x)) IF MOD(m.x,100)=0 WAIT WINDOW TRANSFORM(m.x) NOWAIT ENDIF ENDFOR INSERT INTO TEST (cField1) VALUES (" ") ENDIF IF NOT USED("TEST") USE TEST ENDIF SELECT TEST IF TAGNO("IXCFIELD1")=0 INDEX ON cField1 TAG IXcField1 ENDIF IF TAGNO("IXEVENS")=0 INDEX ON cField1 TAG IXEvens FOR MOD(VAL(cField1),2)=0 ENDIF IF TAGNO("IXFILTEVEN")=0 INDEX ON MOD(VAL(cField1),2) TAG IXFiltEven FOR MOD(VAL(cField1),2)=0 ENDIF LOCAL m.lcSys3054 m.lcSys3054 = SYS(3054) ?SYS(3054,12) SELECT * FROM TEST WHERE MOD(VAL(CFIELD1),2)=0 SYS(3054,m.lcSys3054)