INITIALIZE creating zeros
196: INITIALIZE group entry with OCCURS
1
2 IDENTIFICATION DIVISION.
3 PROGRAM-ID. prog.
4 DATA DIVISION.
5 WORKING-STORAGE SECTION.
6 01 G1.
7 02 G2 OCCURS 2.
8 03 X1 PIC X.
9 03 X2 PIC 9.
10 PROCEDURE DIVISION.
11 MOVE SPACE TO G1.
12 INITIALIZE G2 (2).
13 IF G1 NOT = " 0"
14 *> DISPLAY G1 NO ADVANCING
15 *> also applied in tests below
16 *>
17 DISPLAY G1
18 END-DISPLAY
19 END-IF.
20 STOP RUN.
Output is 0
, but the default value of G1 has no 0
.