Updates your COBOL programs to handle the year 2000 issue.
Note: When calling this routine, ensure you are using the 1024 calling convention.
This library routine retrieves the first two digits of the current year.
Syntax:
CALL "C$Century" USING value-buffer
Parameters:
- value-buffer
- A two-byte data item with a format of either unsigned numeric display (NSU) or alphanumeric display (ANS).
On Exit:
- value-buffer
- The first two digits of the current year.
Comments:
You can achieve the same result using the standard COBOL command
ACCEPT data-name FROM DATE YYYYMMDD and then referencing the data name.