Developing Compaq COBOL Programs
1.6 Special Information for Year 2000 Programming
4-digit ACCEPT FROM DATE YYYYMMDD
4-digit ACCEPT FROM DAY YYYYDDD
Compaq COBOL offers date functions that can be used in program logic that
makes decisions about year order. The full four-digit year handled by the six
functions listed should be used in internal program logic decisions that are based
on years. External displays of year information can continue to use two-digit
formats when that is appropriate.
You should check program logic in code that uses ACCEPT, to verify that
millennium transition dates are properly handled.
The use of two-digit years in applications does not automatically create a problem,
but a problem could exist. Programmers need to inspect each of their applications
for two-digit year dependencies and change any such instances to check the full
four-digit year value.
Developing Compaq COBOL Programs 1–63