例題
[C1343.cob] 000001 @OPTIONS CONF(74,V10),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1343. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 OBJECT-COMPUTER. OBJ1 000007 PROGRAM COLLATING SEQUENCE IS HUGO1. 000008 SPECIAL-NAMES. 000009 ALPHABET HUGO1 IS LOW-VALUE ALSO HIGH-VALUE. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 DATA-1 PIC 9(4). 000013 PROCEDURE DIVISION. 000014 IF DATA-1 = HIGH-VALUE THEN 000015 DISPLAY "HIGH-VALUE!" 000016 END-IF. 000017 END PROGRAM C1343.
C1343.cob 14: JMN1343I-I (CONF)PROGRAM COLLATING SEQUENCE句に,ALSO付きの定数指定を記述した符号系名が指定されていて,かつ表意定数HIGH-VALUEまたはLOW-VALUEが参照されています.