参照変更された可変長グループにデータを MOVE するプログラムは、可変長グループを評価するのに使用された長さが実際の長さと最大長のどちらかであるかによって、異なる結果を生成する可能性があります。
01 VAR-LEN-PARENT-A.
02 VAR-LEN-GROUP-A.
03 ODO-OBJECT PIC 99 VALUE 5.
03 OCCURS-SUBJECT OCCURS 10 TIMES DEPENDING ON ODO-OBJECT.
04 TAB-ELEM PIC X(4).
02 VAR-LOC-ITEM PIC XX.
01 NEXT-GROUP.
MOVE ALL SPACES TO VAR-LEN-GROUP-A(1:).
01 VAR-LEN-PARENT-B.
02 VAR-LEN-GROUP-B.
03 ODO-OBJECT PIC 99 VALUE 5.
03 OCCURS-SUBJECT OCCURS 10 TIMES DEPENDING ON ODO-OBJECT.
04 TAB-ELEM PIC X(4).
03 VAR-LOC-ITEM PIC XX.
01 NEXT-GROUP.
MOVE ALL SPACES TO VAR-LEN-GROUP-B(1:).
上記の例では、MOVE ALL SPACES TO VAR-LEN-GROUP-A (1:) の実行結 果は、どの NOCMPR2 プログラム (VS COBOL II リリース 3.x、VS COBOL II リリース 4、また は Enterprise COBOL) の場合も同じになります。このケースでは、どの NOCMPR2 プログラムも実際の長さを使用します。