COBOL2002 ユーザーズガイド
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.
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.