COBOL – 复制语句

COPY 用于在 COBOL 程序中插入 copybook，copybook 是指保存在其中声明的所有变量的成员。 COPY 语句是一个库语句，它将预先编写的文本放在 COBOL 编译单元中。预写的源代码条目可以在编译时包含在编译单元中。因此，安装可以使用标准文件描述、记录描述或过程，而无需重新编码。然后可以将这些条目和过程保存在用户创建的库中；然后可以通过 COPY 语句将它们包含在程序和类定义中。

句法：

COPY copybook-name
   [REPLACING "string_1" BY "string_2"]

在哪里，

1. copybook-name是指包含源字符串的文件。
2. string_1指的是要替换的字符串。
3. string_2指的是替换字符串。

使用 COPY 的优点：

以下是在 COBOL 中使用 COPY 语句的优点：

• 一个字帖可以在多个程序中使用，无需再次编写变量声明。
• 抄写本可以与数据集一起使用，以按照抄写本内定义的标签形式查看数据。
• 减少更改期间的时间、精力和成本，因为当在单个字帖中进行更改时，它将在 COPY 语句的帮助下反映在其他地方以及使用字帖的地方。

我们以 COBOL 中的 Copy 为例。

例子：

Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO3.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
     
    COPY COPYBOOK.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
     
    ACCEPT ST_ID
    ACCEPT FIRST_NAME
    ACCEPT LAST_NAME
    DISPLAY STUDENT.
    STOP RUN.

上面的代码在编译 COBOL 时在工作存储部分内的关键字 COPY 的帮助下使用下面的字帖，下面的代码被插入到 COPY COPYBOOK 的位置。

科博尔

01 STUDENT.
 20 ST_ID         PIC 9(5).
 20 FIRST_NAME    PIC X(20).
 20 LAST_NAME     PIC X(20).

输出：