>>691

01 WK受付日８.
03 FILLER PIC X(02) VALUE "20".
03 WK受付日６　PIC X(06).


・・・・・・


MOVE 受付日 TO WK受付日６.

この後、WK受付日８と、システム時間とを比較して何とかする。