COBOL – 包含语句
INCLUDE 语句引用它后面提到的文件或目录，并在预编译状态下插入该成员中存在的命令。基本上，它用于将代码块插入到源程序中。
句法：
INCLUDE member-name在哪里，
- member-name是指包含源代码的文件的名称。
使用的优点包括：
以下是使用 INCLUDE 语句的优点：
- 增加代码的可读性，减少代码的长度。
- 假设在应用程序中重复使用相同的代码，而不是重复编写相同的代码部分，我们可以使用 Include 将相同的代码插入程序中。
- 当在包含在许多程序中的模块内只进行一次更改时，可以减少维护成本、时间和工作量。
让我们以 Cobol 中的 INCLUDE 语句为例。
例子：
Cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO2.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 NUM PIC 9(5) VALUE ZERO.
01 REM PIC 9(5) VALUE ZERO.
01 DIV PIC 9(5) VALUE ZERO.
01 FLAG PIC A(1) VALUE 'Y'.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
A-PARA.
INCLUDE ODDEVE.
EXIT.
PERFORM A-PARA UNTIL FLAG EQUAL 'N'
STOP RUN.Cobol
DISPLAY 'ENTER NUMBER:'
ACCEPT NUM
DIVIDE NUM BY 2 GIVING DIV REMAINDER REM.
IF REM = 0
DISPLAY 'EVEN NUMBER'
DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
ACCEPT FLAG
ELSE
DISPLAY 'ODD NUMBER'
DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
ACCEPT FLAG
END-IF.解释：
程序 DEMO2 在 COBOL 中的 Include 语法的帮助下使用成员ODDEVE，当程序执行而不是行 INCLUDE ODDEVE 时，将插入成员ODDEVE（如下所示）中存在的实际代码，该代码在逻辑上被写入以检查数字是否为奇数或偶数。
科博尔
DISPLAY 'ENTER NUMBER:'
ACCEPT NUM
DIVIDE NUM BY 2 GIVING DIV REMAINDER REM.
IF REM = 0
DISPLAY 'EVEN NUMBER'
DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
ACCEPT FLAG
ELSE
DISPLAY 'ODD NUMBER'
DISPLAY 'DO YOU WANT TO CONTINUE? (Y/N):'
ACCEPT FLAG
END-IF.
输出：
