例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1218.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 ALPHABET ABC IS "ABC" THRU "XYZ".
000007 END PROGRAM C1218.
C1218.cob (6) : JMN1218I-S ALPHABET句で,文字定数は長さが1バイトでなければなりません.先頭1バイトを文字定数とみなします.
C1218.cob (6) : JMN1218I-S ALPHABET句で,文字定数は長さが1バイトでなければなりません.先頭1バイトを文字定数とみなします.