例題
[P5145.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5145. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A TYPEDEF PIC 9(2) VALUE 99. 000006 01 B TYPE A VALUE 33. 000007 PROCEDURE DIVISION. 000008 STOP RUN. 000009 END PROGRAM P5145.
P5145.cob 6: JMN5145I-W 値を持つ型に，新しい値が指定されています．指定されたとおりに，受け入れます．
詳細な説明
この診断メッセージは，型宣言(TYPEDEF)にも，その型を参照するTYPE句を指定したデータ記述項にも，VALUE句が指定されている場合，初期値の設定が重複していることを指摘します．このとき，TYPE句を指定したデータ記述項側のVALUE句が有効になります．
