This register stores the current date. CURRENT-DATE can be used with a MOVE or DISPLAY statement.
MOVE CURRENT-DATE TO {dest-item} ...
DISPLAY CURRENT-DATE [ UPON new-window ] ...
DISPLAY CURRENT-DATE [ UPON mnemonic-name ] ...
The value of CURRENT-DATE is stored in an 8-character alphanumeric field in the format "MM/DD/YY", where "MM" is the month (01 for January, 02 for February, etc.), "DD" is the day of the month, and "YY" is the last two digits of the year. For example, the date February 15, 2001 is formatted as "02/15/01".