When you migrate your run-time to Language
Environment, your VS COBOL II
programs can get access to year 2000 ready date routines,
although you need to use a CALL statement
rather than native COBOL language:
CALL 'CEELOCT' USING LILIAN, SECONDS, GREGORN, FC
The four-digit year will be in the first four bytes of GREGORN.
If you migrate to the COBOL for OS/390 compiler as well, you can use the date/time intrinsic functions of the compiler for native COBOL support for year 2000 ready date functions. More details are provided in COBOL and Language Environment Intrinsics .
You will want to create and implement common date-handling routines for functions such as