例題
[P2003.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2003. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 D1 EXTERNAL. 000007 02 PIC X(10). 000008 01 R2 REDEFINES D1. 000009 02 PIC N(10). 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2003.
P2003.cob 8: JMN2003I-S EXTERNAL句を持つレベル番号01の項目を再定義する場合，項目の長さは，再定義される項目の長さ以下でなければなりません．書かれたとおり受け入れます．
詳細な説明
外部属性(EXTERNAL句)を持つデータ項目を再定義する場合，再定義する項目の長さは再定義される項目の長さと等しいか，小さくなければなりません．
例えば，例題プログラムでは，外部属性を持つD1をR2で再定義していますが，データ項目の長さはR2がD1より大きいです．これが原因でこの診断メッセージが出力されています．
