このエラーは、ACUCOBOL または RM/COBOL 方言コンパイラ指令のいずれかを使用してコンパイルしている場合にのみ発生します。MODE IS BLOCK を指定して、ソース コードとこの COBOL システムとの互換性を高めるようにします。MODE IS BLOCK を設定することにより、集団項目が基本項目として扱われます。
01 group-01. 02 field-01 pic x(10). 02 filler pic x(02). 02 field-02 pic x(10). Procedure division. accept group-01 auto *> correct - the auto phrase is allowed for group items accept group-01 beep *> incorrect - the beep phrase is not allow for group items accept group-01 beep MODE IS BLOCK *> correct - the group-01 item is treated as an elementary item (pic x (22))