The INITIALIZE statement is used to initialize data items. The INITIALIZE statement is particularly useful for initializing all items that belong to a group level item.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The INITIALIZE statement is used to initialize data items. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 DATA DIVISION. 000080 WORKING-STORAGE SECTION. 000090 01 EMPLOYEE-DATA. 000100 02 PERSONAL-INFORMATION OCCURS 5 TIMES. 000110 03 EMPLOYEE-NUMBER PIC 9(8). 000120 03 PIC X(1) VALUE ":". 000130 03 NAME PIC X(20). 000140 03 PIC X(1) VALUE ":". 000150 03 WHERE-EMPLOYED PIC X(20). 000160 01 COUNTER PIC S9(4) BINARY. 000170 CONSTANT SECTION. 000180 01 HEADER PIC X(40) VALUE "<Number> <Name> 000185- " <Address>". 000190 PROCEDURE DIVISION. 000200*---------------------------------------------------------------------- 000210* Specifying a group item in the INITIALIZE statement sets appropriate 000220* initial values based on the attributes of the items that belong to 000225* the group item. Filler items, such as the colons above are not 000227* initialized. 000230*---------------------------------------------------------------------- 000240 INITIALIZE EMPLOYEE-DATA. 000250*---------------------------------------------------------------------- 000260 PERFORM DISPLAY-PROCESSING. 000270*---------------------------------------------------------------------- 000280* In addition, arbitrary initial values can be set. 000290*---------------------------------------------------------------------- 000300 INITIALIZE EMPLOYEE-DATA REPLACING NUMERIC DATA BY 99999999 000310 ALPHANUMERIC DATA BY ALL "-". 000320 PERFORM DISPLAY-PROCESSING. 000330 EXIT PROGRAM. 000340** 000350 DISPLAY-PROCESSING SECTION. 000360 DISPLAY " " 000370 DISPLAY HEADER. 000380 PERFORM TEST BEFORE 000390 VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > 5 000400 DISPLAY PERSONAL-INFORMATION (COUNTER) 000410 END-PERFORM. 000420 END PROGRAM SAMPLE.
