COBOL 过程部之三——执行语句（PERFORM）

在 COBOL 中，PERFORM 语句用于执行一段程序，可以是一个子程序或一段代码块。PERFORM 可以带有一个标签，用于指定程序的入口点。

PERFORM 语句的语法如下：

PERFORM [label] procedure-name [THROUGH procedure-name] [VARYING identifier] [UNTIL condition]

其中，label 是可选的，用于标识程序的入口点；procedure-name 是要执行的程序的名称；THROUGH 关键字用于指定要执行的一段程序的范围；VARYING 关键字用于指定一个循环计数器；UNTIL 关键字用于指定循环的终止条件。

下面是一些 PERFORM 语句的示例：

PERFORM MySubroutine.
PERFORM MySubroutine THROUGH EndSubroutine.
PERFORM MyLoop VARYING i FROM 1 BY 1 UNTIL i > 10.

在第一个示例中，PERFORM 语句执行名为 MySubroutine 的子程序。

在第二个示例中，PERFORM 语句执行从 MySubroutine 到 EndSubroutine 标签之间的代码块。

在第三个示例中，PERFORM 语句执行一个循环，循环计数器为 i，初始值为 1，每次循环 i 增加 1，直到 i 大于 10 时停止循环。

PERFORM 语句是 COBOL 中最常用的控制结构之一，用于实现循环、条件分支等复杂的算法和逻辑。