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