>>694 こんな感じか（西暦2100年問題あり）

01 WK受付日６.
　　03 WK受付年月.
　　　　05 WK受付年　　 PIC 9(02).
　　 　 05 WK受付月　　 PIC 9(02).
　　03 FILLER　　　　 　　PIC 9(02).
01 WKシステム時間８
　 03 FILLER 　　　　　PIC 9(02).
　 03 WKシステム年月.
　　　05 WK受付年　　 PIC 9(02).
　　 05 WK受付月　　 PIC 9(02).
　 05 FILLER　　　　 　 PIC 9(02).

・・・・

MOVE 受付日 TO WK受付日６.
MOVE システム時間 TO WKシステム時間８.

IF WK受付月 = 12 THEN
　　ADD 　1 TO WK受付年
　　MOVE 1 TO WK受付月
ELSE
　　ADD　 1 TO WK受付月
END-IF.

IF WK受付年月 <　 WKシステム年月　THEN
　　削除分
ELSE
　　保存分
END-IF.