例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1426.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC +9.9E+9.
000007 PROCEDURE DIVISION.
000008 STOP RUN.
C1426.cob (6) : JMN1426I-W 外部浮動小数点項目のPICTURE文字列で,指数部のけた数は2けたでなければなりません.2けたとみなします.