HP e3000 COBOL supports special register words. These words reference memory storage that is generated at compile time and initialized at compile time or run time. They are treated as reserved words by ACUCOBOL-GT when it is in HP e3000 COBOL compatibility mode. In that mode, you cannot use any of the HP e3000 COBOL-specific special register words as user-defined words.
CURRENT-DATE
This register stores the current date. CURRENT-DATE can be used with a MOVE or DISPLAY statement.
Format
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".
TALLY
See "EXAMINE Statement" in section Q.2.4 for information about the special register TALLY.
TIME-OF-DAY
This register stores the current time of day. TIME-OF-DAY can be used with a MOVE or DISPLAY statement.
Format
MOVE TIME-OF-DAY TO {dest-item} ...
DISPLAY TIME-OF-DAY [ UPON new-window ] ...
DISPLAY TIME-OF-DAY [ UPON mnemonic-name ] ...
The value of TIME-OF-DAY is stored in the format "hhmmss", where "hh" is the hour, "mm" is the minute, and "ss" is the second, based on a 24-hour clock. For example, 5:30 p.m. is stored as "173000".
The DISPLAY output of TIME-OF-DAY is edited to include colons ( ":") as separators, so the displayed format is "hh:mm:ss". For example, 5:30 p.m. is displayed as "17:30:00".
WHEN-COMPILED
This register stores the date and time that the program was compiled. It can be used with a MOVE or DISPLAY statement.
Format
MOVE WHEN-COMPILED TO {dest-item} ...
DISPLAY WHEN-COMPILED [ UPON new-window ] ...
DISPLAY WHEN-COMPILED [ UPON mnemonic-name ] ...
The value of WHEN-COMPILED is stored in the format "MM/DD/YY hh:mm:ss".