Hmm.
ACCEPT CurrentDate FROM DATE.
In COBOL Is still not Y2K compatable as it gives you something like 211117 unless you specifically call it with custom format string like ACCEPT CurrentDate FROM DATE YYYYMMDD.
I guess that they couldn’t break the old API without breaking a lot of things.