COBOL – 包含语句

在 COBOL 中，包含语句（INCLUDE statement）用于将另一个 COBOL 文件中的一部分代码包含进当前程序中。这个功能使得代码的复用变得更加容易，也让程序员可以更好地组织自己的代码。

包含语句的语法如下：

INCLUDE filename [REPLACING identifier BY identifier]

其中，filename 是要包含的 COBOL 文件的文件名；REPLACING 子句则是可选的，用于在包含的代码中替换指定的标识符。

下面是一个包含语句的例子：

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

PROCEDURE DIVISION.
    DISPLAY 'Start of main program.'.

    INCLUDE 'util.cbl' REPLACING WS-AMOUNT BY WS-TOTAL-AMOUNT.

    DISPLAY 'End of main program.'.

在上面的例子中，我们通过包含语句将名为 util.cbl 的文件中的代码包含进了当前程序中。同时，我们使用了 REPLACING 子句将 WS-AMOUNT 标识符替换为 WS-TOTAL-AMOUNT。

需要注意的是，在包含语句中使用的标识符必须与被包含的程序中的标识符保持一致。否则，程序将无法编译通过。

总之，包含语句是一个非常有用的 COBOL 语言特性，可以帮助程序员更好地管理自己的代码，并加速程序的开发过程。