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 DATAXINITIALIZE DATAX REPLACING ALPHABETIC DATA BY 'A'INITIALIZE DATAX REPLACING ALPHANUMERIC
DATA BY 'A1'
INITIALIZE DATAX REPLACING NUMERIC DATA BY 1INITIALIZE 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△△△△000A△△△000△
I△△△△△△△△△△△A△△△△△△△△△△
J*****0設定しない
K00/00
L0000.00
M+¥00000
N¥00000△
O*********
P*********
Q△△△.00
R***.00
S△△△△△¥0+
T符号付き内部10進の「000」符号付き内部10進の「001」
U各要素に2進形式の値000各要素に2進形式の値001
V000設定しない
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
K00/04
L0004.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.