例題
[P2555.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2555. 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 01 WINIT PIC X(1) VALUE SPACE. 000011 PROCEDURE DIVISION. 000012 LBL1. 000013 INITIALIZE WGRP 000014 REPLACING ALPHANUMERIC DATA BY LBL1.
000015 END PROGRAM P2555.
P2555.cob 14: JMN2555I-S INITIALIZE文で，BYの直後は一意名または定数でなければなりません．次の項類を表す語または文の終わりまでが無効になります．
詳細な説明
BYの後ろには，初期値になる値を指定します．
