Selecionar linhas em um browse

Código para selecionar uma ou mais linhas em um browse e trabalhar a lógica em cima das linhas selecionadas:

Código:

def var hBrowse    as handle no-undo.
def var iRow         as int       no-undo.
/* Verificar se nenhuma linha foi selecionada */
if browse-1:query:num-results in frame {&frame-name} = 0 then do:
        MESSAGE "Nenhum registro encontrado. Verifique" VIEW-AS ALERT-BOX INFO BUTTONS OK.
        return no-apply.
end.

hBrowse = browse Browse-1:handle.
do iRow = 1 to hBrowse:num-selected-rows:
    hBrowse:fetch-selected-row(iRow).
    /* Executar sua lógica neste ponto */
end.