Nested IF Statements in COBOL

Welcome back! In the previous lessons, you learned to use IF statements for decision-making and the EVALUATE statement for more complex decision paths in COBOL. Now, let's take it a step further by discussing nested IF statements. This lesson will help you understand how to use nested IF statements to create more sophisticated decision-making structures in your COBOL programs.

Nested IF statements allow you to handle multiple layers of conditions in a hierarchical manner. This is particularly useful when dealing with complex logic that requires several conditions to be checked before making a decision. In this lesson, we'll cover:

• The syntax for nested IF statements
• Practical examples to illustrate nested IF statements in action

Here’s a snippet of COBOL code to demonstrate:

IDENTIFICATION DIVISION.
PROGRAM-ID. NestedIfDemo.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Account-Balance PIC 9(6) VALUE 0.
01 Minimum-Balance PIC 9(6) VALUE 1000.
01 Account-Status PIC X(13).
PROCEDURE DIVISION.
    MOVE 500 TO Account-Balance.
    IF Account-Balance > 0
        IF Account-Balance < Minimum-Balance
            MOVE "Low Balance" TO Account-Status
        ELSE
            MOVE "Good Standing" TO Account-Status
        END-IF
    ELSE
        MOVE "Overdrawn" TO Account-Status
    END-IF.
    DISPLAY "Account Status: " Account-Status.
    STOP RUN.

In this example:

1. Primary Condition Check: We first check if the Account-Balance is greater than zero.
2. Secondary Condition Check: If the Account-Balance is indeed greater than zero, we check if it is less than the Minimum-Balance.
3. Nested Decisions: Depending on the value of Account-Balance, we then update the Account-Status accordingly.

By nesting IF statements, you can handle more complex decision trees efficiently. This method is ideal when multiple related conditions need to be evaluated step-by-step.

Also, pay attention to the fact that the nested END-IF statement doesn't have a period at the end, unlike the primary END-IF statement. In COBOL, a period signifies the end of a logical block of code, such as a statement, a paragraph, or even an entire section. When you use a period at the end of an IF statement, it tells the compiler that the IF block is complete and that execution should continue with the next independent statement. This can be problematic in nested IF statements because it might terminate the inner block prematurely, leading to incorrect logic.