使用 IF 和 EVALUATE 做出决策

COBOL 中的决策主要使用 IF 条件语句和多分支选择结构 EVALUATE （类似于现代语言中的 switch 或 match）来执行。

IF 条件语句

IF 语句的基本语法是：

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

在现代 COBOL 版本（COBOL-85 及更高版本）中，语句必须显式以 END-IF. 结尾，而不是仅仅依赖于最后一个句点 .，从而显着减少解析和逻辑错误。

常见条件

• 大于：> 或 GREATER THAN
• 小于：< 或 LESS THAN
• 等于：= 或 EQUAL TO
• 大于或等于：>= 或 GREATER THAN OR EQUAL TO
• 小于或等于：<= 或 LESS THAN OR EQUAL TO

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

评估语句

当我们需要将一个变量与多个离散值进行比较时，嵌套的 IF 语句可能会变得复杂。 EVALUATE 语句通过以干净的方式构建选择来解决这个问题：

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

• WHEN OTHER：标识后备分支（相当于现代语言中的 default 或最后的 else）。
• END-EVALUATE.：关闭结构。

自己尝试一下