WHEN-COMPILED - Datum und Uhrzeit der Übersetzung

Die WHEN-COMPILED-Funktion liefert Datum und Uhrzeit der Übersetzung des Programms.
Funktionstyp: alphanumerisch.

Format

---

FUNCTION WHEN-COMPILED

---

Returnwert

1. Die Zeichenpositionen des Returnwerts enthalten (von links nach rechts gezählt):

   Zeichenposition	Inhalt
   1-4 5-6 7-8 9-10 11-12 13-14 15-21	vier Ziffern für die Jahresangabe (Gregorianischer Kalender) zwei Ziffern für die Monatsangabe; Wertebereich: 01 bis 12 zwei Ziffern für die Tagesangabe; Wertebereich: 01 bis 31 zwei Ziffern für die Stundenangabe; Wertebereich: 00 bis 23 zwei Ziffern für die Minutenangabe; Wertebereich: 00 bis 59 zwei Ziffern für die Sekundenangabe; Wertebereich: 00 bis 59 0000000

Siehe auch:       CURRENT-DATE, DATE-OF-INTEGER, DAY-OF-INTEGER,
                            INTEGER-OF-DATE, INTEGER-OF-DAY

Beispiel 9-48

...
DATA DIVISION.
WORKING-STORAGE SECTION.
01  DATUM PIC X(21).
PROCEDURE DIVISION.
P1 SECTION.
MAIN.
    MOVE FUNCTION WHEN-COMPILED TO DATUM.
    DISPLAY DATUM UPON T.
    STOP RUN.

Ergebnis: 199604211434270000000