例題
[C1219.cob] 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句で,固有文字集合における各文字に対応する定数は,ただ一度しか指定できません.