例
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,演算の中間結果で有効けたがすべて消失した場合のいずれかです.結果をゼロとして処理を続けます.