Delay N seconds - report

REPORT ZDELAY.

* This program delays n seconds

DATA: TIM LIKE SY-UZEIT, N TYPE I VALUE 30.

TIM = SY-UZEIT.
TIM = TIM + N.
DO.
  GET TIME.
  IF TIM < SY-UZEIT.
    EXIT.
  ENDIF.
ENDDO.