例
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句のゼロ抑制文字の"*"(星印)は,ゼロを"*"で置き換える指定です.これらは両立しない指定なので同時に指定することはできません.
両方指定された場合は,ゼロ抑制文字の"*"の方を有効とみなして処理しますが,このときオブジェクトファイルや実行形式ファイルは生成されません.