if-statement - COBOL if else-if 语句，使用它们的正确方法

Question

我是 COBOL 的新手，想编写一个嵌套的 if 语句。我在 ELSE-IF 和 ELSE 上遇到错误。我确信这是一个简单的修复，但我不知道哪里出了问题。

reading-procedure.
       display "Enter Type of Pet: " with no advancing.
       accept pet.
       display "Enter Appointment Fee: " with no advancing.
       accept fee.
       IF pet = 'dog' 
       add fee total giving dogTotal.
       add 1 to dogCount.
       ELSE-IF pet = 'cat' 
       add fee total giving catTotal.
       add 1 to catCount.
       ELSE
       add fee total giving otherTotal.
       add 1 to otherCount.
       END-IF

Answer 1

没有(标准)else-if COBOL 中的语句。在大多数情况下，您有多个分支机构 EVALUATE TRUE与 WHEN condition-1 <statements> WHEN condition-2 <statements> [...] END-EVALUATE是你想要使用的 - 在像你的示例这样的情况下你可以做 EVALUATE pet WHEN 'dog' ... WHEN 'cat' ... END-EVALUATE .

您收到 ELSE 语法错误的原因很简单:你用你的句点结束它们 - 摆脱它们(在 PROCEDURE DIVISION 中你唯一需要它们的部分是在段落/部分/条目定义之前和之后。