Z/OS Cobol 6.3 副本：如何仅包含一个块？

Question

我需要此信息：我有一个 Cobol 6.3 程序“PROGRAM1”，其中包含复制语句

COPY1

。

COPY1

仅包含数据定义，它可以包含在WORKING STORAGE或LINKAGE SECTION中。我需要在包含过程中定制副本。我只需包含两个引人注目的人之间的陈述。引人注目的内容并不重要，但它必须是注释，因为

COPY1

包含在许多其他COBOL程序中，必须按原样包含没有重大修改的副本。

下面是一个例子：

程序1：

IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM1.

ENVIRONMENT DIVISION.
DATA DIVISION.

WORKING-STORAGE SECTION.
    COPY COPY1 from eye-catcher 1 to eye-catcher 2**.

    ... Rest of program data definition ...

PROCEDURE DIVISION.
    

    ... Rest of program logic ...

    STOP RUN.

** This isn’t a valid COBOL statement. It’s only for clarity.

COPY1:

01  AREA1 PIC X (10).

...eye-catcher 1...

01  AREA2 PIC X (10).

...eye-catcher 2...

01  AREA3 PIC X (10).

I need to include only :

01  AREA2 PIC X (10).

我已经搜索过，但一无所获。有什么想法吗？

Answer 1

如果您不被允许按照 @BruceMartin 建议修改 COPY1，请尝试...

COPY COPY1 REPLACING 
  ==01  AREA1 PIC X (10).== BY ====
  ==01  AREA3 PIC X (10).== BY ====
.