CURRENT-DATE - Aktuelles Datum

Die CURRENT-DATE-Funktion liefert einen 21 Zeichen langen alphanumerischen Wert, der das aktuelle Kalenderdatum und die aktuelle Uhrzeit darstellt.
Funktionstyp: alphanumerisch.

Format

---

FUNCTION CURRENT-DATE

---

Returnwert

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

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

Siehe auch:        DATE-OF-INTEGER, DAY-OF-INTEGER, INTEGER-OF-DATE, INTEGER-OF-DAY, WHEN-COMPILED

Beispiel 9-9

...
DATA DIVISION.
WORKING-STORAGE SECTION.
01  DATUM PIC XXXX/XX/XXBBXXBXXBXXBXXBBX(5).
PROCEDURE DIVISION.
P1 SECTION.
MAIN.
    MOVE FUNCTION CURRENT-DATE TO DATUM.
    DISPLAY DATUM UPON T.

Ergebnis:        1995/08/10         14 36 19 00           00000