01 ODO-SENDER
02 SEND-OBJ PIC 99.
02 SEND-ITEM PIC X OCCURS 1 TO 20 DEPENDING ON SEND-OBJ.
01 ODO-RECEIVER.
02 RECV-OBJ PIC 99.
02 RECV-ITEM PIC X OCCURS 1 TO 20 DEPENDING ON RECV-OBJ.
⋮
MOVE 5 TO SEND-OBJ.
MOVE 10 TO RECV-OBJ.
MOVE ODO-SENDER TO ODO-RECEIVER.
⋮
CMPR2:
Occurrences 1-5 of ODO-SENDER moved to ODO-RECEIVER.
Occurrences 6-10 of ODO-RECEIVER become spaces.
Occurrences 11-20 of ODO-RECEIVER are unchanged.
NOCMPR2:
Occurrences 1-5 of ODO-SENDER moved to ODO-RECEIVER.
Occurrences 6-20 of ODO-RECEIVER become spaces.
データ移動ステートメントの実行時に ODO オブジェクトの値を超えるテーブル・オカレンス数を参照 するプログラムは、NOCMPR2 のもとで使用されると正しい結果を生成しません。
上記の例では、グループ移動の前にオカレンス 11 ~ 20 にデータがあって も、NOCMPR2 のもとで実行されると、グループ移動後にデータが消失します。