5.7.1　INITIALIZE文

INITIALIZE文は，特定の型のデータ領域に，あらかじめ決められた値を設定します。例えば，数字データにはゼロを，英数字データには空白を設定できます。

INITIALIZE文については，マニュアル「COBOL2002　言語　標準仕様編」　「10.8.24　INITIALIZE文」を参照してください。

INITIALIZE文の例を次に示します。

（例1）

       01 DATAX .
         05 A      PIC A(5).
         05 B      PIC X(5).
         05 C      PIC 9999.
         05 D      PIC S9(5).
         05 E      REDEFINES D PIC X(5).
         05 F      PIC S9(3)V9(2).
         05 G      PIC 9(4)PP.
         05 H      PIC X(4)0(3)9.
         05 I      PIC A(5)BA(5).
         05 J      PIC **,**9.
         05 K      PIC 99/99.
         05 L      PIC 9(4).9(2).
         05 M      PIC +\9(5).
         05 N      PIC \9(5)-.
         05 O      PIC \**,***CR.
         05 P      PIC \**,***DB.
         05 Q      PIC ZZZ.99.
         05 R      PIC ***.99.
         05 S      PIC \\\,\\9+.
         05 T      PIC S9(3) USAGE PACKED-DECIMAL.
         05 U      PIC S9(3) USAGE COMP OCCURS 10 TIMES.
         05 V      PIC 1(3).
         05 W      PIC 1(3) USAGE BIT.
         05 X      PIC XAX.
         05 Y      PIC N(3).
         05 Z      PIC N(2)BN(1).
         05 FILLER PIC X.

項目	INITIALIZE DATAX	INITIALIZE DATAX REPLACING ALPHABETIC DATA BY 'A'	INITIALIZE DATAX REPLACING ALPHANUMERIC DATA BY 'A1'	INITIALIZE DATAX REPLACING NUMERIC DATA BY 1	INITIALIZE DATAX REPLACING ALPHANUMERIC-EDITED DATA BY 'A'
A	△△△△△	A△△△△	設定しない	設定しない	設定しない
B	△△△△△	設定しない	A1△△△	〃	〃
C	符号なし外部10進の「0000」	〃	設定しない	符号なし外部10進の「0001」	〃
D	符号付き外部10進の「00000」	〃	〃	符号付き外部10進の「00001」	〃
E	設定しない	〃	〃	設定しない	〃
F	符号なし外部10進の「00000」	〃	〃	符号なし外部10進の「00100」	〃
G	符号なし外部10進の「0000」	〃	〃	符号なし外部10進の「0000」	〃
H	△△△△000	〃	〃	〃	A△△△000△
I	△△△△△△△△△△△	〃	〃	〃	A△△△△△△△△△△
J	*****0	〃	〃	〃	設定しない
K	00/00	〃	〃	〃	〃
L	0000.00	〃	〃	〃	〃
M	+¥00000	〃	〃	〃	〃
N	¥00000△	〃	〃	〃	〃
O	*********	〃	〃	〃	〃
P	*********	〃	〃	〃	〃
Q	△△△.00	〃	〃	〃	〃
R	***.00	〃	〃	〃	〃
S	△△△△△¥0+	〃	〃	〃	〃
T	符号付き内部10進の「000」	〃	〃	符号付き内部10進の「001」	〃
U	各要素に2進形式の値000	〃	〃	各要素に2進形式の値001	〃
V	000	〃	〃	設定しない	〃
W	内部ブール形式の0	〃	〃	〃	〃
X	△△△	〃	A1△	〃	〃
Y	▲▲▲	〃	設定しない	〃	〃
Z	▲▲▲▲	〃	〃	〃	〃
FILLER^※	設定しない	〃	〃	〃	〃

　

項目	INITIALIZE DATAX REPLACING NUMERIC -EDITED DATA BY 4	INITIALIZE DATAX REPLACING NATIONAL DATA BY N'花'	INITIALIZE DATAX REPLACING NATIONAL-EDITED DATA BY N'花'
A	設定しない	設定しない	設定しない
B	〃	〃	〃
C	〃	〃	〃
D	〃	〃	〃
E	〃	〃	〃
F	〃	〃	〃
G	〃	〃	〃
H	〃	〃	〃
I	〃	〃	〃
J	*****4	〃	〃
K	00/04	〃	〃
L	0004.00	〃	〃
M	+¥00004	〃	〃
N	¥00004△	〃	〃
O	¥*****4△△	〃	〃
P	¥*****4△△	〃	〃
Q	△△4.00	〃	〃
R	**4.00	〃	〃
S	△△△△△¥4+	〃	〃
T	設定しない	〃	〃
U	〃	〃	〃
V	〃	〃	〃
W	〃	〃	〃
X	〃	〃	〃
Y	〃	花▲▲	〃
Z	〃	設定しない	花▲▲▲
FILLER^※	〃	〃	設定しない

（凡例）

△：半角の空白を示す

▲：全角の空白を示す

注※

FILLER句については，マニュアル「COBOL2002　言語　標準仕様編」　「9.16.22　記述項名句」を参照してください。

（例2）

オブジェクト参照を使用したINITIALIZE文の例

       01 DATAY USAGE OBJECT REFERENCE.
       01 DATAZ USAGE OBJECT REFERENCE.
                ：
           INITIALIZE DATAY REPLACING OBJECT-REFERENCE
                            DATA BY DATAZ.
                ：

この場合，次の文を実行した結果と同じになります。

           SET DATAY TO DATAZ.

5.7.1 INITIALIZE文

5.7.1　INITIALIZE文