对于 2 个条件的并集，在 COBOL 中使用 IF 或 EVALUATE？

Question

“如果有效，就不要碰它”……我明白。也就是说，我正在扩展的代码中布满了这样的块：

 EVALUATE TRUE ALSO TRUE
  WHEN FOO-YES ALSO BAR-YES
   PERFORM ACTION
  WHEN OTHER
   SET ERROR TO TRUE
 END-EVALUATE

对于我缺乏经验的人来说， IF 似乎更清晰：

 IF FOO-YES AND BAR-YES
   PERFORM ACTION
 ELSE
   SET ERROR TO TRUE
 ENDIF

在编写新功能时，是否有理由更喜欢 EVALUATE 而不是 IF？

Answer 1

没有理由更喜欢 EVALUATE 而不是 IF。我愿意，但我没有充分的理由。我尝试编写代码，以便维护者很容易理解，但在某些情况下，逻辑很复杂，最终会得到如下结构：

EVALUATE TRUE ALSO TRUE ALSO TRUE
  WHEN INITIAL-STATE ALSO ANY ALSO ANY 
       PERFORM 0100-INITIALIZE
       PERFORM 1000-DISPLAY-MENU
  WHEN MENU-DISPLAYED ALSO DFHRESP(NORMAL) ALSO UPDATE-REQUESTED
       PERFORM 2000-DO-THE-UPDATE
       EXEC CICS RETURN END-EXEC
  [...and so forth...]
END-EVALUATE

某处有一句话说事情应该尽可能简单，但不能更简单。当然，有很多方法可以对相同的逻辑进行编码。不同的人发现不同的结构更容易理解。由于这些差异，出现了很多争论。

Answer 2

你读对了。 “True ALSO True”对于编码来说是一件非常奇怪的事情。

通常您会看到“Evaluate True”，在这种情况下，when 条件的行为与 IF 语句完全相同。使用 ALSO 可能会带来一些奇怪的情况，因为它与所有其他语言中的 CASE 语句不同。

更好的写法是：

Evaluate true
  when FOO-YES and BAR-YES
    perform action
  when other 
    set error to true
End-Evaluate

当然，TRUE ALSO TRUE 很容易理解，但是如果你写 TRUE ALSO WS-BLAH-BLAH，这可能会让人感到困惑。 Cobol Evaluate 动词非常强大，有时很容易搬起石头砸自己的脚。也就是说，它非常强大，可以让你做很多事情。

通常情况下，嵌套不清晰的复杂 IF 可以通过编写良好的 Evaluate 很好地修复。

Answer 3

我可能会说，在某些情况下这会让生活变得轻松。举例来说，我们将在哪里添加另一个条件，根据该条件我们可能需要执行不同的代码块；在这种情况下，附加另一个 WHEN 会比调整 IF 上的条件更容易。以下是将 WHEN 与调整 IF 条件进行比较时的要点：

• 我们可以根据需要提供尽可能多的 WHEN(s)基于要执行的 PARAs。
• 使用 OR 或 AND 参数时，IF 条件很容易出错。
• 此外，WHEN 可以清晰地显示事物的流程因为我们在分析IF时可能需要调整我们的眼镜。 [当我们有复杂的循环时，可能会发生这种情况，但作为一名高效的程序员，我们应该预测这种情况]
• 最后但并非最不重要的一点是，使用较少的 IF 数量可以很容易地将代码恢复到之前的状态。

但在您当前的情况下，我感觉 EVALUATE 和 IF 之间的清晰度和区别不太明显。所以，选择让你快乐的那个吧:)

Answer 4

对我来说，这一切都取决于可读性（因此，以后的维护也更简单）。

当我查看您问题中的 2 个代码段时，我发现 IF 块更具可读性。

在 22 年的 Cobol 编程生涯中，我从未在 EVALUATE 中使用过 ALSO。
使用 EVALUATE 块进行简单的二进制真/假测试对我来说似乎有点迟钝。

但不要误会我的意思，如果使用得当，我喜欢 EVALUATE。 6 年前，当我开始使用 Java 编程时，EVALUATE 是我最怀念的东西。当然，Java 有 switch，但它不能像 EVALUATE 那样灵活使用。

考虑以下代码段：

IF ACTION = "START"
   PERFORM START
ELSE IF ACTION = "STOP"
   PERFORM STOP
ELSE IF ACTION = "PROCESS" AND FILE-NAME = "A"
   PERFORM PROCESS-A-FILE
ELSE IF ACTION = "PROCESS" AND FILE-NAME = "B"
   PERFORM PROCESS-B-FILE
ELSE IF ACTION = "RESET"
   PERFORM RESET
ELSE
   PERFORM INVALID-ACTION-ERROR.

这个 IF 语句集合存在一些实际问题。如果不在其末尾添加 5 个 END-IF，则必须以句号结束该块。但是，如果代码位于 PERFORM UNTIL ... END-PERFORM 块内，您将无法执行此操作。虽然这个示例相当简单，但在更复杂（更长）的示例中，弄清楚哪个 ELSE 与哪个 IF 匹配可能会很棘手。

迫切需要将其放入 EVALUATE TRUE 块中，因此：

EVALUATE TRUE
   WHEN ACTION = "START"
      PERFORM START
   WHEN ACTION = "STOP"
      PERFORM STOP
   WHEN ACTION = "PROCESS" AND FILE-NAME = "A"
      PERFORM PROCESS-A-FILE
   WHEN ACTION = "PROCESS" AND FILE-NAME = "B"
      PERFORM PROCESS-B-FILE
   WHEN ACTION = "RESET"
      PERFORM RESET
   WHEN OTHER
      PERFORM INVALID-ACTION-ERROR
END-EVALUATE

将 EVALUATE 更改为 TRUE ALSO TRUE 会使其可读性大大降低，而且确实没有必要。