例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1020.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 CHRLIT PIC X(10) VALUE
000006 "ABCDEFGHIJ".
000007 END PROGRAM C1020.
C1020.cob (6) : JMN1020I-W 定数はB領域から書き始めなければなりません.B領域から書き始められているものとみなします.