COBOL中的when zero

在COBOL（Common Business Oriented Language，通用商业语言）中，“WHEN ZERO”是一个条件判断结构，用于程序流程控制，尤其是与算术运算相关的分支逻辑。它的基本语法如下：

PERFORM some-statement
 WHEN (expression) = 0

在这个结构中，`expression` 是一个数学表达式，通常是基于某个算术运算的结果。当这个表达式的计算结果等于零时，`some-statement` 将被执行。这常用于检测循环计数器是否达到零、文件指针是否指向文件结束等条件。

举个例子：

IDENTIFICATION DIVISION.
...
PROCEDURE DIVISION.
   PERFORM VARYING COUNT FROM 1 BY 1 UNTIL COUNT > 10
      DISPLAY "Count: ", COUNT
      IF COUNT = 0 WHEN ZERO THEN EXIT PERFORM
   END-PERFORM.

这里，程序会打印从1到10的计数，当COUNT变为0时，执行“EXIT PERFORM”，跳出循环。