例題
[C3013.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3013. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(18). 000006 PROCEDURE DIVISION. 000007 COMPUTE ED01 = 0 ** 0. 000008 END PROGRAM C3013.
C3013.cob 7: JMN3013I-W 算術式中でゼロのゼロ乗を計算しようとしています．ここでいうゼロとは，値ゼロの数字定数，表意定数ZERO，演算の中間結果で有効けたがすべて消失した場合のいずれかです．結果をゼロとして処理を続けます．
