例題
[P2010.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2010. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 G1 DISPLAY. 000007 02 E1 PIC S9(9). 000008 02 E2 PIC S9(9) BINARY. 000009 02 E3 PIC S9(9). 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2010.
P2010.cob 8: JMN2010I-S 集団項目に従属する項目のUSAGE句は,その集団項目のUSAGE句と同じ用途でなければなりません.集団項目に指定されたUSAGE句を有効とみなします.
詳細な説明
USAGE句は基本項目のみではなく,集団項目にも指定することができます.ただし,USAGE句を指定した集団項目に明または暗に従属する基本項目は次のいずれかでなければなりません.
USAGE句を持たない基本項目
上位集団項目と同じ指定のUSAGE句を持つ基本項目
例えば,例題プログラムの場合,従属する項目E2が集団項目と異なる指定のUSAGE句を持つため,この診断メッセージが出力されます.