INITIALIZE文は,特定の型のデータ領域に,あらかじめ決められた値を設定します。例えば,数字データにはゼロを,英数字データには空白を設定できます。
INITIALIZE文については,マニュアル「COBOL2002 言語 標準仕様編 10.8.24 INITIALIZE文」を参照してください。
INITIALIZE文の例を次に示します。
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※ | 〃 | 〃 | 設定しない |
01 DATAY USAGE OBJECT REFERENCE.
01 DATAZ USAGE OBJECT REFERENCE.
:
INITIALIZE DATAY REPLACING OBJECT-REFERENCE
DATA BY DATAZ.
:
SET DATAY TO DATAZ.