Changing the defaul of the date stored in COBOL from MMDDYY to DDMMYY?

Problem:

Changing the date format stored in COBOL register from MMDDYY to DDMMYY.

Resolution:

The compiler directive CURRENT-DATE specifies the format stored in the CURRENT-DATE special register.  The syntax is

CURRENT-DATE "date-format"

"date-format" is either DDMMYY  or MMDDYY

Setting CURRENT-DATE to DDMMYY  causes CURRENT-DATE to be stored in European format. The parameter can be specified in either upper case or lower case.