Dica For each em uma tabela após o número do RECID

Pessoal, bom dia.

Segue uma dica legal. Não sei se todos conhecem.

Obrigado. Abraço.

Código:

/*

- A intenção deste código é trazer todos os registros a partir de um RECID em diante.

*/

def var r-atual as recid no-undo.

def buffer bf-estabelec for estabelec.

for each estabelec
    where estabelec.cod-estabel = '10'
    no-lock:

    assign  r-atual = recid(estabelec).

    disp    estabelec.cod-estabel
            estabelec.estado.

end.


for each bf-estabelec
    where recid(bf-estabelec) > r-atual
    no-lock:

    disp    bf-estabelec.cod-estabel
            bf-estabelec.estado.

end.