GET RUN TIME FIELD

You can use the GET RUN TIME FIELD statement to measure the relative runtime of program segments in microseconds.

DATA: T1 TYPE I,
T2 TYPE I,
T TYPE P DECIMALS 2,
N TYPE I VALUE 1000.

T = 0.
DO N TIMES.
GET RUN TIME FIELD T1.

*****************************
* Code to be tested *
*****************************

GET RUN TIME FIELD T2.
T2 = T2 - T1.
T = T + T2 / N.
ENDDO.

WRITE: / 'Mean Runtime: ', T, 'microseconds'.