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

2.3.173 JMN2337I-S

VALUE句を持つ集団項目に従属する項目のUSAGEは,DISPLAYでなければなりません.
USAGE句を有効とみなします.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2337.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WGRP VALUE LOW-VALUE.
      000007   02 WELM1     PIC X(5).
      000008   02 WELM2     PIC 9(5) BINARY.
      000009   02 WELM3     PIC X(5).
      000010 PROCEDURE      DIVISION.
      000011 END PROGRAM    P2337.
    

P2337.cob (8) : JMN2337I-S VALUE句を持つ集団項目に従属する項目のUSAGEは,DISPLAYでなければなりません.USAGE句を有効とみなします.

詳細な説明

集団項目への初期値の設定は,集団項目全体が1つの英数字項目であるかのように設定されるため,用途が表示用(USAGE IS DISPLAY)でない場合は有効な値になりません.

従属項目に指定された用途(USAGE)を有効とみなして処理を続けますが,このときオブジェクトファイルや実行形式は生成されません.