Code: Alles auswählen.
REPORT ZZ_zeit .
PARAMETERS: P_MIN  TYPE I, " in Minuten anzugeben
            P_DAT  TYPE D DEFAULT '20060101',
            P_ZEIT TYPE T DEFAULT '003000'.
DATA: SEKUNDEN TYPE I.
START-OF-SELECTION.
  WRITE:/ 'Eingabe', P_ZEIT, P_DAT.
  SEKUNDEN = P_MIN * 60.     " in Sekunden umrechnen
  IF SEKUNDEN > P_ZEIT.      " komme in den Vortag
    P_DAT = P_DAT - 1.
  ENDIF.
  P_ZEIT = P_ZEIT - SEKUNDEN. " geht auch, wenn
                              " SEKUNDEN > P_ZEIT
  WRITE:/ 'Eingabe', P_ZEIT, P_DAT.