例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3012.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 ED01 PIC S9(18).
000006 01 ED02 PIC S9P(15).
000007 01 ED03 PIC S9P(15).
000008 PROCEDURE DIVISION.
000009 COMPUTE ED01 = ED02 * ED03.
C3012.cob (9) : JMN3012I-W 演算の中間結果で，有効けたがすべて消失しています．結果をゼロとして処理を続けます．
詳細な説明
中間結果が固定小数点の場合，その最大桁数は30桁と定められています．演算要素から求められた中間結果の桁数が，整数部が-30桁以下または小数部が-30桁以下となった場合，演算処理をしても結果が最大桁数である30桁の部分に反映されないことになります．この場合は演算処理は行わずに，演算結果をゼロとして以降の処理が継続されます．