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

2.3.83 JMN2134I-S

BLANK WHEN ZERO句は,ゼロ抑制記号の星印を持つ数字編集項目に指定できません.
BLANK WHEN ZERO句は,無効になります.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2134.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WNE1        PIC ZZ99 BLANK WHEN ZERO. *> OK
      000007 01 WNE2        PIC **99 BLANK WHEN ZERO. *> ERROR
      000008 PROCEDURE      DIVISION.
      000009 END PROGRAM    P2134.
    

P2134.cob (7) : JMN2134I-S BLANK WHEN ZERO句は,ゼロ抑制記号の星印を持つ数字編集項目に指定できません.BLANK WHEN ZERO句は,無効になります.

詳細な説明

BLANK WHEN ZERO句は,データ項目の値がゼロのとき値を空白に置き換える指定です.一方,PICTURE句のゼロ抑制文字の"*"(星印)は,ゼロを"*"で置き換える指定です.これらは両立しない指定なので同時に指定することはできません.

両方指定された場合は,ゼロ抑制文字の"*"の方を有効とみなして処理しますが,このときオブジェクトファイルや実行形式ファイルは生成されません.