例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3245.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC S99.
000007 PROCEDURE DIVISION.
000008 COMPUTE A = 0 ** -5.
000009 END PROGRAM C3245.
C3245.cob (8) : JMN3245I-W 算術式中でゼロを負の整定数乗しようとしています.ここでいうゼロとは,値ゼロの数字定数,表意定数ZERO,演算の中間結果において有効けたがすべて消失した場合のいずれかです.結果をゼロとして処理を続けます.