例題
[P2359.cob] 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進項目でなければなりません．
