Насколько быстро файл может быть записан/прочитан программой progress 4GL?

Простой способ — использовать TIME или ETIME в зависимости от того, какая точность вам нужна.

Для точности в целых секундах:

DEFINE VARIABLE iStart AS INTEGER NO-UNDO.
DEFINE VARIABLE iEnd   AS INTEGER NO-UNDO.

iStart = TIME.

/* Do something. Using pause to simulate. Use spacebar to break pause */
PAUSE 10.

iEnd = TIME.

MESSAGE "It took" iEnd - iStart "seconds".

Для точности в миллисекундах:

ETIME(TRUE).

/* Do something. Using pause to simulate. Use spacebar to break pause */
PAUSE 10.

MESSAGE "It took" ETIME "milliseconds".

Вы также можете посмотреть на MTIME решение, похожее на первое, но с миллисекундами вместо секунд.