例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1022.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 TEISU PIC X(10) VALUE "ABCDEF.
000006 END PROGRAM C1022.
C1022.cob (5) : JMN1022I-S 定数の終わりの引用符がありません．B領域の終わりまでを定数とみなします．