ACCEPT FROM CENTURY-DATE および FROM CENTURY-DAY

Enterprise Developer で FROM CENTURY-DATE および FROM CENTURY-DAY 指定を ACCEPT 文で使用するには、RM コンパイラ指令を設定します。

または、ACCEPT 文で以下と等しい指定を使用します。

procedure division.
ACCEPT data-name-1 FROM DATE YYYYMMDD.
ACCEPT data-name-2 FROM DAY YYYYDDD.