IF ve EVALUATE ile kararlar

COBOL'da karar verme, öncelikle IF koşullu ifade ve çok dallı seçim yapısı EVALUATE (modern dillerdeki switch veya match'ye benzer) kullanılarak gerçekleştirilir.

IF Koşullu İfadesi

IF ifadesinin temel sözdizimi şöyledir:

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

Modern COBOL sürümlerinde (COBOL-85 ve üzeri), yalnızca . son noktasına dayanmak yerine ifadenin açıkça END-IF. ile bitmesi gerekir; bu da ayrıştırma ve mantık hatalarını önemli ölçüde azaltır.

Ortak Koşullar

• Şundan büyük: > veya GREATER THAN
• Şundan az: < veya LESS THAN
• Şuna eşittir: = veya EQUAL TO
• Büyük veya eşittir: >= veya GREATER THAN OR EQUAL TO
• Küçük veya eşittir: <= veya LESS THAN OR EQUAL TO

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

DEĞERLENDİRME Beyanı

Bir değişkeni birden çok ayrı değerle karşılaştırmamız gerektiğinde, iç içe geçmiş IF ifadeleri karmaşık hale gelebilir. EVALUATE ifadesi, seçenekleri temiz bir şekilde yapılandırarak bu sorunu çözer:

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

• WHEN OTHER: Geri dönüş dalını tanımlar (modern dillerde default veya son else ile eşdeğerdir).
• END-EVALUATE.: Yapıyı kapatır.

Kendin dene