>clear >CREATE CURSOR testIndexPhase1 (f1 C) >testindex() > >INSERT INTO testIndexPhase1 values('1') >testindex() > >INSERT INTO testIndexPhase1 values('2') >testindex() > >INSERT INTO testIndexPhase1 values('3') >testindex() >GO 2 >testindex() > >GO BOTTOM >SKIP >testindex() > >PROCEDURE testindex >PUBLIC iPhase >iPhase=0 >? >? "current record",RECNO(),"reccount ",RECCOUNT() >INDEX ON KeyRecno() TAG t1 && FOR .F. >DELETE TAG ALL > >PROCEDURE KeyRecno(rn) > ? IIF(m.iPhase<2,"Key test recno ","Build index recno "), RECNO(),"OUT OF TABLE " AT 40,EOF() > iPhase=m.iPhase+1 >ENDPROC >