Keputusan dengan IF dan EVALUATE

Pengambilan keputusan di COBOL dilakukan terutama menggunakan pernyataan kondisional IF dan struktur pemilihan multi-cabang EVALUATE (analog dengan switch atau match dalam bahasa modern).

Pernyataan Bersyarat IF

Sintaks dasar dari pernyataan IF adalah:

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

Dalam versi COBOL modern (COBOL-85 dan yang lebih baru), pernyataan harus secara eksplisit diakhiri dengan END-IF. alih-alih hanya mengandalkan periode terakhir ., sehingga secara signifikan mengurangi kesalahan penguraian dan logika.

Kondisi Umum

• Lebih besar dari: > atau GREATER THAN
• Kurang dari: < atau LESS THAN
• Setara dengan: = atau EQUAL TO
• Lebih besar atau sama dengan: >= atau GREATER THAN OR EQUAL TO
• Kurang dari atau sama dengan: <= atau LESS THAN OR EQUAL TO

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

Pernyataan EVALUASI

Saat kita perlu membandingkan suatu variabel dengan beberapa nilai diskrit, pernyataan IF yang bertumpuk bisa menjadi rumit. Pernyataan EVALUATE menyelesaikan masalah ini dengan menyusun pilihan dengan cara yang bersih:

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

• WHEN OTHER: Mengidentifikasi cabang cadangan (setara dengan default atau else terakhir dalam bahasa modern).
• END-EVALUATE.: Menutup struktur.

Cobalah sendiri