例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2359.
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 S9(9) DISPLAY
000009 BLANK WHEN ZERO. *> ERROR
000010 PROCEDURE DIVISION.
000011 END PROGRAM P2359.
P2359.cob (9) : JMN2359I-W BLANK WHEN ZERO句を符号付き外部10進項目に指定した場合，符号なしとして扱います．
詳細な説明
数字項目にBLANK WHEN ZERO句を指定する場合，数字項目は符号なしの外部10進項目でなければなりません．