Entscheidungen mit IF und EVALUATE

Die Entscheidungsfindung in COBOL erfolgt hauptsächlich über die bedingte Anweisung IF und die Mehrfachauswahlstruktur EVALUATE (analog zu switch oder match in modernen Sprachen).

Die bedingte Anweisung IF

Die grundlegende Syntax der Anweisung IF lautet:

IF bedingung
    anweisungen-wenn-wahr
ELSE
    anweisungen-wenn-falsch
END-IF.

In modernen Versionen von COBOL (COBOL-85 und höher) muss die Anweisung explizit mit END-IF. enden, anstatt sich ausschließlich auf den Endpunkt . zu verlassen, was Parsing- und Logikfehler erheblich reduziert.

Häufige Bedingungen

• Größer als: > oder GREATER THAN
• Kleiner als: < oder LESS THAN
• Gleich: = oder EQUAL TO
• Größer oder gleich: >= oder GREATER THAN OR EQUAL TO
• Kleiner oder gleich: <= oder LESS THAN OR EQUAL TO

IF WS-BALANCE < 0
    DISPLAY "CONTO IN ROSSO"
ELSE
    DISPLAY "CONTO ATTIVO"
END-IF.

Die EVALUATE-Anweisung

Wenn wir eine Variable mit mehreren diskreten Werten vergleichen müssen, kann die Verwendung mehrerer geschachtelter IFs komplex werden. Die Anweisung EVALUATE löst dieses Problem, indem sie die Auswahlmöglichkeiten geordnet strukturiert:

EVALUATE WS-USER-ROLE
    WHEN "ADMIN"
        DISPLAY "ACCESSO COMPLETO"
    WHEN "EDITOR"
        DISPLAY "ACCESSO EDIT"
    WHEN OTHER
        DISPLAY "ACCESSO LIMITATO"
END-EVALUATE.

• WHEN OTHER: Identifiziert den Fallback-Zweig (entspricht dem default oder dem abschließenden else).
• END-EVALUATE.: Schließt die Struktur ab.

Probier es selbst aus