例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1219.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 ALPHABET ABC IS "A" THRU "A".
000007 END PROGRAM C1219.
C1219.cob (6) : JMN1219I-S ALPHABET句で，固有文字集合における各文字に対応する定数は，ただ一度しか指定できません．