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