In
Visual COBOL, to use the FROM CENTURY-DATE and FROM CENTURY-DAY phrases with the ACCEPT statement, set the RM Compiler directive.
Alternatively, use the following equivalent phrases with the ACCEPT statement:
- FROM DATE YYYYMMDD, which is the equivalent of FROM CENTURY-DATE.
- FROM DAY YYYYDDD, which is the equivalent of FROM CENTURY-DAY.
procedure division.
ACCEPT data-name-1 FROM DATE YYYYMMDD.
ACCEPT data-name-2 FROM DAY YYYYDDD.