例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2100.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1 PIC X(2).
000007 88 CD1 VALUE "ABC".
000008 PROCEDURE DIVISION.
000009 END PROGRAM P2100.
P2100.cob (7) : JMN2100I-W 条件名のVALUE句の定数の長さは，対応する条件変数の項目長と等しいかまたは短くなければなりません．条件変数の項目長より長い定数部分を切り落します．
詳細な説明
条件名記述項(レベル番号が88)のVALUE句で指定した定数長が，条件変数の項目長よりも長くなっています．条件変数の長さ分の定数を条件名の値とみなし，余った定数は切り捨てます．