Otimizacao de Codigo - II

Uma boa forma de otimizar um for each numa tabela de muitos campos, quando você tem uma seleção que não se adequa a um nenhum indice, é a utilização do comando fields. Ele trará no for each somente os campos da tabela que foram especificados, por isto, é imprescindível que qualquer campo que você vá utilizar no programa esteja dentro do fields. Vou mostrar um exemplo:

FOR EACH tabela1 FIELDS(tabela1.campo1 tabela1.campo2 tabela1.campo3)
WHERE tabela1.campo1 = "B" and
tabela1.campo2 = "C" no-lock:
disp tabela1.campo3.
end.