Decyzje z IF i EVALUATE

Podejmowanie decyzji w COBOL-u odbywa się głównie za pomocą instrukcji warunkowej IF oraz struktury wielokrotnego wyboru EVALUATE (odpowiednik switch lub match w nowoczesnych językach).

Instrukcja warunkowa IF

Podstawowa składnia instrukcji IF to:

IF warunek
    instrukcje-jeśli-prawda
ELSE
    instrukcje-jeśli-fałsz
END-IF.

W nowoczesnych wersjach COBOL-a (COBOL-85 i nowsze) instrukcja musi kończyć się jawnie słowem kluczowym END-IF. zamiast polegać wyłącznie na kropce ., co znacznie zmniejsza błędy parsowania i błędy logiczne.

Typowe warunki

• Większy niż: > lub GREATER THAN
• Mniejszy niż: < lub LESS THAN
• Równy: = lub EQUAL TO
• Większy lub równy: >= lub GREATER THAN OR EQUAL TO
• Mniejszy lub równy: <= lub LESS THAN OR EQUAL TO

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

Instrukcja EVALUATE

Gdy musimy porównać zmienną z wieloma osobnymi wartościami, użycie wielu zagnieżdżonych instrukcji IF może stać się skomplikowane. Instrukcja EVALUATE rozwiązuje ten problem, organizując opcje wyboru w uporządkowany sposób:

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

• WHEN OTHER: Określa gałąź domyślną (odpowiednik default lub końcowego else).
• END-EVALUATE.: Kończy strukturę.

Spróbuj sam