例
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句を指定した場合，その数字項目の項類は数字編集であるとみなされます．