Beslissingen met IF en EVALUATE

De besluitvorming in COBOL wordt voornamelijk uitgevoerd met behulp van de voorwaardelijke instructie IF en de meervoudige selectiestructuur EVALUATE (analoog aan switch of match in moderne talen).

De IF voorwaardelijke verklaring

De fundamentele syntaxis van de instructie IF is:

IF condition
    statements-if-true
ELSE
    statements-if-false
END-IF.

In moderne COBOL-versies (COBOL-85 en hoger) moet de instructie expliciet eindigen met END-IF. in plaats van uitsluitend te vertrouwen op de laatste punt ., waardoor parseer- en logische fouten aanzienlijk worden verminderd.

Algemene voorwaarden

• Groter dan: > of GREATER THAN
• Minder dan: < of LESS THAN
• Gelijk aan: = of EQUAL TO
• Groter dan of gelijk aan: >= of GREATER THAN OR EQUAL TO
• Kleiner dan of gelijk aan: <= of LESS THAN OR EQUAL TO

IF WS-BALANCE < 0
    DISPLAY "OVERDRAWN"
ELSE
    DISPLAY "ACCOUNT ACTIVE"
END-IF.

De EVALUATE-verklaring

Wanneer we een variabele moeten vergelijken met meerdere afzonderlijke waarden, kunnen geneste IF-instructies complex worden. De instructie EVALUATE lost dit op door de keuzes op een overzichtelijke manier te structureren:

EVALUATE WS-USER-ROLE
    WHEN "ADMIN"
        DISPLAY "FULL ACCESS"
    WHEN "EDITOR"
        DISPLAY "EDIT ACCESS"
    WHEN OTHER
        DISPLAY "LIMITED ACCESS"
END-EVALUATE.

• WHEN OTHER: Identificeert de fallback-vertakking (equivalent aan default of de laatste else in moderne talen).
• END-EVALUATE.: Sluit de structuur.

Probeer het zelf