Quyết định với IF và ĐÁNH GIÁ

Việc ra quyết định trong COBOL được thực hiện chủ yếu bằng cách sử dụng câu lệnh điều kiện IF và cấu trúc lựa chọn nhiều nhánh EVALUATE (tương tự switch hoặc match trong các ngôn ngữ hiện đại).

Câu lệnh điều kiện IF

Cú pháp cơ bản của câu lệnh IF là:

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

Trong các phiên bản COBOL hiện đại (COBOL-85 trở lên), câu lệnh phải kết thúc rõ ràng bằng END-IF. thay vì chỉ dựa vào dấu chấm cuối cùng ., giúp giảm đáng kể các lỗi logic và phân tích cú pháp.

Điều kiện chung

• Lớn hơn: > hoặc GREATER THAN
• Nhỏ hơn: < hoặc LESS THAN
• Bằng: = hoặc EQUAL TO
• Lớn hơn hoặc bằng: >= hoặc GREATER THAN OR EQUAL TO
• Nhỏ hơn hoặc bằng: <= hoặc LESS THAN OR EQUAL TO

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

Tuyên bố ĐÁNH GIÁ

Khi chúng ta cần so sánh một biến với nhiều giá trị riêng biệt, các câu lệnh IF lồng nhau có thể trở nên phức tạp. Câu lệnh EVALUATE giải quyết vấn đề này bằng cách cấu trúc các lựa chọn một cách rõ ràng:

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

• WHEN OTHER: Xác định nhánh dự phòng (tương đương với default hoặc else cuối cùng trong các ngôn ngữ hiện đại).
• END-EVALUATE.: Đóng cấu trúc.

Hãy tự mình thử