例題
[P2554.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2554. 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 DATA BY SPACE 000013 END PROGRAM P2554.
P2554.cob 12: JMN2554I-S INITIALIZE文で，REPLACINGの直後は項類を表す語でなければなりません．次の文または手続き名までが無効になります．
詳細な説明
特定の項類を持つ基本項目を特定の値で初期化する場合，REPLACINGの後に初期化の対象とする項類を指定し，DATA BYの後に初期値を指定します．
