According to the book I have, the CURRENT-DATE FUNCTION returns something that looks like this:

YEAR 9(4)
MONTH 9(2)
DAY 9(2)
HOUR 9(2)
MINUTE 9(2)
SECOND 9(2)
HUNDREDTH 9(2) VALUE 0.
GMT-OFFSET X(1)
GMT-HOUR 9(2)
GMT-MINUTE 9(2)

So it would appear the year is actually 4 digits and would contain 2000 as the value.

PS: You may also wish to post you question on [log in to unmask]

>>> "Tomazin, Frank" <[log in to unmask]> 10/21/99 05:26PM >>>
i have a question for cobol programmers will the special register
current-date be
as follows on jan 1, 2000  01/01/00 just want to make sure that the year
will be
set to double zeroes. can anyone let me know if my date will come out as
01/01/00.

thanks frank