例
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句が有効になります．