*-- Have an index on these two fields:
INDEX ON EMPTY (InsCommand) TAG E_InsCmd
INDEX ON SearchTB TAG SearchTB
SET ORDER TO

LOCATE ;
 FOR SearchTB = m.lcSearch AND NOT EMPTY (InsCommand) ;

IF FOUND()
 *Do the work
 CONTINUE && Locate the next qualifing record
ENDIF

Regards,

Mike

"We try to solve the problem by rushing through the design process so that enough time is left at the end to uncover the errors that were made because we rushed through the design process."
- Glenford Myers

If you're going through hell, keep going. - Walt Disney