>>function Do_It() >> >> >> set ansi on >> set exact on >> set collate to 'machine' >> set optimize on >> >> create cursor CursorTest ; >> ( j_ref I ; >> ) >> >> insert into CursorTest values(44 ) >> insert into CursorTest values( 0 ) >> insert into CursorTest values(44 ) >> >> index on bintoc(j_ref) tag j_ref >> >> ?'-------------------------------------' >> >> locate for (bintoc(j_ref) == bintoc(0)) >> ?'optimize locate 0 (TRUE)', found(), ' ERROR' >> >> locate for (bintoc(j_ref) == bintoc(0)) NOOPTIMIZE >> ?'no optimize locate 0 (TRUE)', found(), ' OK' >> >> local aa[1] >> aa[1] = 0 >> >> select count(*) ; >> from CursorTest ; >> into array aa ; >> where (bintoc(j_ref) == bintoc(0)) >> >> ?'optimize count 0 (1):', aa[1], ' ERROR' >> >> set optimize off >> select count(*) ; >> from CursorTest ; >> into array aa ; >> where (bintoc(j_ref) == bintoc(0)) >> set optimize on >> >> ?'no optimize count 0 (1):', aa[1], aa[1], ' ERROR' >> >> >> locate for (bintoc(j_ref) == bintoc(44)) >> ?'optimize locate 44 (TRUE), recno 1:', found(), 'OK ', recno() >> >> insert into CursorTest values( 0 ) >> locate for (bintoc(j_ref) == bintoc(0)) >> ?'optimize locate 0 (TRUE), recno 2:', found(), recno(), 'ERROR' >> >> >>endfunc >>