ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.4.11 JMN2010I-S

集団項目に従属する項目のUSAGE句は,その集団項目のUSAGE句と同じ用途でなければなりません. 集団項目に指定されたUSAGE句を有効とみなします.

例題

[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句を持つため,この診断メッセージが出力されます.