例題
[P2135.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2135. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNE1 PIC 9(9) DISPLAY 000007 BLANK WHEN ZERO. *> OK 000008 01 WNE2 PIC 9(9) BINARY 000009 BLANK WHEN ZERO. *> ERROR 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2135.
P2135.cob 9: JMN2135I-S BLANK WHEN ZERO句は，外部10進項目または数字編集項目に指定しなければなりません．
詳細な説明
BLANK WHEN ZERO句は，データ項目の値がゼロのとき値を空白に置き換える指定です．用途が表示用でない数字項目には指定できません．
なお，BLANK WHEN ZERO句を指定した場合，その数字項目の項類は数字編集であるとみなされます．
