Enterprise Developer で FROM CENTURY-DATE および FROM CENTURY-DAY 指定を ACCEPT 文で使用するには、RM コンパイラ指令を設定します。
または、ACCEPT 文で以下と等しい指定を使用します。
- FROM DATE YYYYMMDD (FROM CENTURY-DATE と等しい)
- FROM DAY YYYYDDD (FROM CENTURY-DAY と等しい)
procedure division.
ACCEPT data-name-1 FROM DATE YYYYMMDD.
ACCEPT data-name-2 FROM DAY YYYYDDD.