Utilizando o ETIME no Progress

22Jan09

O ETIME serve como um contador no Progress.
O exemplo abaixo vai retornar quantos segundos ou minutos demorou o FOR EACH na tabela PESSOA…

/* Zera contador */
ETIME(true).

FOR EACH PESSOA
NO-LOCK:
END.

IF ETIME < 60000 then
MESSAGE ETIME / 1000 “segundos” VIEW-AS ALERT-BOX.
ELSE
MESSAGE ETIME / 60000 “minutos” VIEW-AS ALERT-BOX.

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, contador, each, etime, exemplo, for, Progress