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※
〃
〃
設定しない
- (例2)
-
オブジェクト参照を使用したINITIALIZE文の例
01 DATAY USAGE OBJECT REFERENCE. 01 DATAZ USAGE OBJECT REFERENCE. : INITIALIZE DATAY REPLACING OBJECT-REFERENCE DATA BY DATAZ. :
この場合,次の文を実行した結果と同じになります。
SET DATAY TO DATAZ.