>>>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 >>>>>
>JournaalSubsetLaLike_year = m._year >JournaalSubsetLaLike_DateFrom = {^0001/01/01} >JournaalSubsetLaLike_DateTo = {^9999/12/31} >JournaalSubsetLaLike_la = m._la_like > >if( !used(m.CursorName) ) > use JournaalSubsetLaLike in 0 alias (m.CursorName) NODATA > select (m.CursorName) > index on bintoc(j_ref) tag j_ref && optimze bug (bintoc(j_ref) == bintoc(0)) > index on dtos(j_date) tag j_date > index on j_la_id tag j_la_id > set order to >endif > >select(m.CursorName) >=requery() >>
>JournaalSubsetLaLike_year = m._year >JournaalSubsetLaLike_DateFrom = {^0001/01/01} >JournaalSubsetLaLike_DateTo = {^9999/12/31} >JournaalSubsetLaLike_la = m._la_like > >CursorTmp = NewCursorName() >use JournaalSubsetLaLike in 0 alias (m.CursorTmp) >if( !used(m.CursorName) ) > select (m.CursorTmp) > =CreateCursor(m.CursorName) && routine to create a cursor based on the selected alias > select (m.CursorName) > index on bintoc(j_ref) tag j_ref && optimze bug (bintoc(j_ref) == bintoc(0)) > index on dtos(j_date) tag j_date > index on j_la_id tag j_la_id > set order to >endif >=ZapCursor(m.CursorName) && zapz >=CopyAlias(m.CursorTmp, m.CursorName) && something like append from dbf(m.AliasFrom) for !deleted() >Gregory,