ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.3.217 JMN1343I-I

(CONF)PROGRAM COLLATING SEQUENCE句に,ALSO付きの定数指定を記述した符号系名が指定されていて,かつ表意定数HIGH-VALUEまたはLOW-VALUEが参照されています.

例題

[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が参照されています.