例題
[C3011.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3011. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(9). 000006 01 ED02 PIC S9(9). 000007 PROCEDURE DIVISION. 000008 COMPUTE ED01 = ED02 / 0. 000009 END PROGRAM C3011.
C3011.cob 8: JMN3011I-S 除数の値がゼロです．ここでいうゼロとは，値ゼロの数字定数，表意定数ZERO，演算の結果で有効けたがすべて消失した場合のいずれかです．受取り側項目のPICTURE句で指定されたけた数だけの9を転記します．ただし，算術式の途中でこのような除算が実行されると，その結果は30けたの9として扱われます．
