例題
[P2541.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2541. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WNUM PIC S9(9) BINARY. 000008 02 WDX1 PIC X(10). 000009 02 WDX2 PIC N(10). 000010 PROCEDURE DIVISION. 000011 INITIALIZE WGRP 000012 REPLACING 000013 ALPHANUMERIC DATA BY SPACE 000014 ALPHANUMERIC DATA BY LOW-VALUE 000015 END PROGRAM P2541.
P2541.cob 14: JMN2541I-S INITIALIZE文のREPLACING指定に，同じ項類は指定できません．手続き名，または次の文まで無効になります．
詳細な説明
INITIALIZE文はデータ項目を初期化します．
データ項目の項類がREPLACING指定に書いた項類に属する場合にだけ，そのデータ項目はBY指定の作用対象の値で初期化されます．同じ項類を指定したREPLACING指定を複数記述してはなりません．
