MainframeMaster

COBOL Data Initialization

Data initialization sets initial values for variables and data structures when programs start or when data areas need to be reset. Learn to use VALUE clauses, INITIALIZE statements, and proper initialization techniques.

VALUE Clauses in Data Definition

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
       WORKING-STORAGE SECTION.
       01 INITIALIZED-DATA.
           05 COUNTER PIC 9(4) VALUE 0.
           05 FLAG PIC X VALUE 'N'.
           05 AMOUNT PIC 9(6)V99 VALUE 1000.50.
           05 NAME PIC X(20) VALUE 'DEFAULT NAME'.
           05 DATE-FIELD PIC 9(8) VALUE 20231225.
           05 STATUS-FLAG PIC X VALUE 'A'.
               88 ACTIVE-STATUS VALUE 'A'.
               88 INACTIVE-STATUS VALUE 'I'.
       
       PROCEDURE DIVISION.
       DISPLAY 'Counter: ' COUNTER
       DISPLAY 'Flag: ' FLAG
       DISPLAY 'Amount: ' AMOUNT
       DISPLAY 'Name: ' NAME
       DISPLAY 'Date: ' DATE-FIELD.

Use VALUE clauses in data definition to set initial values for variables. Use appropriate initial values: 0 for numeric fields, SPACES for alphanumeric fields, and meaningful defaults for business data.

INITIALIZE Statement

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
       WORKING-STORAGE SECTION.
       01 DATA-TO-INITIALIZE.
           05 NUMERIC-FIELD PIC 9(6).
           05 ALPHANUMERIC-FIELD PIC X(20).
           05 DECIMAL-FIELD PIC 9(6)V99.
           05 FLAG-FIELD PIC X.
       
       PROCEDURE DIVISION.
       *> Initialize with default values
       INITIALIZE DATA-TO-INITIALIZE
       DISPLAY 'After INITIALIZE:'
       DISPLAY 'Numeric: ' NUMERIC-FIELD
       DISPLAY 'Alphanumeric: ' ALPHANUMERIC-FIELD
       DISPLAY 'Decimal: ' DECIMAL-FIELD
       DISPLAY 'Flag: ' FLAG-FIELD
       
       *> Initialize with specific values
       INITIALIZE DATA-TO-INITIALIZE
           REPLACING NUMERIC DATA BY 999
                    ALPHABETIC DATA BY 'INIT'
       DISPLAY 'After REPLACING:'
       DISPLAY 'Numeric: ' NUMERIC-FIELD
       DISPLAY 'Alphanumeric: ' ALPHANUMERIC-FIELD.

Use INITIALIZE statement to reset data to initial values during program execution. Use REPLACING clause to specify different initial values for numeric and alphabetic data types.

Array Initialization

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
       WORKING-STORAGE SECTION.
       01 ARRAY-DATA.
           05 ARRAY-SIZE PIC 9(3) VALUE 10.
           05 DATA-ARRAY OCCURS 10 TIMES.
               10 ARRAY-VALUE PIC 9(4) VALUE 100.
               10 ARRAY-FLAG PIC X VALUE 'N'.
       
       PROCEDURE DIVISION.
       *> Initialize entire array
       INITIALIZE DATA-ARRAY
       DISPLAY 'Array initialized with defaults'
       
       *> Initialize specific array elements
       MOVE 0 TO ARRAY-VALUE(1)
       MOVE 'Y' TO ARRAY-FLAG(1)
       MOVE 999 TO ARRAY-VALUE(10)
       MOVE 'Y' TO ARRAY-FLAG(10)
       
       DISPLAY 'Element 1: ' ARRAY-VALUE(1) ' Flag: ' ARRAY-FLAG(1)
       DISPLAY 'Element 10: ' ARRAY-VALUE(10) ' Flag: ' ARRAY-FLAG(10).

Initialize arrays using INITIALIZE statement or by setting individual elements. Use VALUE clauses in array definitions for default values, then modify specific elements as needed.

Group Item Initialization

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
       WORKING-STORAGE SECTION.
       01 CUSTOMER-DATA.
           05 CUSTOMER-ID PIC 9(6) VALUE 0.
           05 CUSTOMER-NAME PIC X(30) VALUE SPACES.
           05 CUSTOMER-BALANCE PIC 9(9)V99 VALUE 0.
           05 CUSTOMER-STATUS PIC X VALUE 'N'.
       
       PROCEDURE DIVISION.
       *> Initialize entire group
       INITIALIZE CUSTOMER-DATA
       DISPLAY 'Customer ID: ' CUSTOMER-ID
       DISPLAY 'Customer Name: ' CUSTOMER-NAME
       DISPLAY 'Customer Balance: ' CUSTOMER-BALANCE
       DISPLAY 'Customer Status: ' CUSTOMER-STATUS
       
       *> Initialize with specific values
       INITIALIZE CUSTOMER-DATA
           REPLACING NUMERIC DATA BY 999999
                    ALPHABETIC DATA BY 'UNKNOWN'
       DISPLAY 'After REPLACING:'
       DISPLAY 'Customer ID: ' CUSTOMER-ID
       DISPLAY 'Customer Name: ' CUSTOMER-NAME.

Initialize group items as units using INITIALIZE statement. Use REPLACING clause to set different initial values for numeric and alphabetic fields within the group.

Conditional Initialization

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
       WORKING-STORAGE SECTION.
       01 CONDITIONAL-INIT.
           05 INIT-TYPE PIC X.
               88 FULL-INIT VALUE 'F'.
               88 PARTIAL-INIT VALUE 'P'.
               88 RESET-INIT VALUE 'R'.
           05 DATA-FIELDS.
               10 FIELD-1 PIC 9(4).
               10 FIELD-2 PIC X(10).
               10 FIELD-3 PIC 9(6)V99.
       
       PROCEDURE DIVISION.
       EVALUATE INIT-TYPE
           WHEN FULL-INIT
               INITIALIZE DATA-FIELDS
               DISPLAY 'Full initialization completed'
           WHEN PARTIAL-INIT
               MOVE 0 TO FIELD-1
               MOVE SPACES TO FIELD-2
               DISPLAY 'Partial initialization completed'
           WHEN RESET-INIT
               INITIALIZE DATA-FIELDS
               REPLACING NUMERIC DATA BY 0
                        ALPHABETIC DATA BY SPACES
               DISPLAY 'Reset initialization completed'
       END-EVALUATE.

Implement conditional initialization based on program requirements or data state. Use different initialization strategies for different scenarios or data conditions.

Runtime Initialization

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
       WORKING-STORAGE SECTION.
       01 RUNTIME-INIT.
           05 CURRENT-DATE PIC 9(8).
           05 CURRENT-TIME PIC 9(6).
           05 PROGRAM-VERSION PIC X(10).
           05 USER-ID PIC X(8).
       
       PROCEDURE DIVISION.
       *> Initialize with current system values
       MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE
       MOVE FUNCTION CURRENT-TIME TO CURRENT-TIME
       MOVE 'V1.0.0' TO PROGRAM-VERSION
       
       *> Get user ID from environment
       CALL 'CEE3INF' USING USER-ID-ENV-NAME
                            USER-ID
                            USER-ID-LENGTH
                            RETURN-CODE
       
       DISPLAY 'Program initialized at: ' CURRENT-DATE ' ' CURRENT-TIME
       DISPLAY 'Version: ' PROGRAM-VERSION
       DISPLAY 'User: ' USER-ID.

Initialize data with runtime values from system functions, environment variables, or user input. Use current date/time, program version, and user information for proper program initialization.

Initialization Best Practices

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
       WORKING-STORAGE SECTION.
       01 BEST-PRACTICES-INIT.
           05 CONSTANTS.
               10 MAX-RECORDS PIC 9(4) VALUE 1000.
               10 COMPANY-NAME PIC X(20) VALUE 'ACME CORP'.
               10 DEFAULT-STATUS PIC X VALUE 'A'.
           05 VARIABLES.
               10 RECORD-COUNT PIC 9(4) VALUE 0.
               10 ERROR-COUNT PIC 9(4) VALUE 0.
               10 PROCESSING-FLAG PIC X VALUE 'N'.
           05 WORK-AREAS.
               10 TEMP-BUFFER PIC X(100).
               10 CALCULATION-AREA PIC 9(9)V99.
       
       PROCEDURE DIVISION.
       *> Initialize work areas at start of processing
       INITIALIZE WORK-AREAS
       
       *> Reset counters for new processing
       MOVE 0 TO RECORD-COUNT
       MOVE 0 TO ERROR-COUNT
       MOVE 'N' TO PROCESSING-FLAG
       
       DISPLAY 'Program initialized with best practices'.

Follow initialization best practices: use meaningful initial values, initialize work areas at processing start, reset counters and flags appropriately, and document initialization logic.

Error Handling in Initialization

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
       INITIALIZE-WITH-ERROR-HANDLING.
           MOVE 'Y' TO INIT-SUCCESS-FLAG
           
           *> Validate initialization parameters
           IF INIT-TYPE = SPACES
               DISPLAY 'Error: Initialization type not specified'
               MOVE 'N' TO INIT-SUCCESS-FLAG
           ELSE
               PERFORM VALIDATE-INIT-PARAMETERS
           END-IF.
           
           *> Perform initialization if parameters are valid
           IF INIT-SUCCESS-FLAG = 'Y'
               PERFORM EXECUTE-INITIALIZATION
           ELSE
               DISPLAY 'Error: Initialization failed'
               MOVE 8 TO RETURN-CODE
           END-IF.

Implement error handling for initialization operations. Validate initialization parameters, check for errors, and provide meaningful error messages. Set appropriate return codes for initialization failures.

Data Formatting

Display and output formatting

Data Initialization Concepts

Data initialization concepts