“复制”带有“REPLACING”的语句在COBOL中

Question

我收到编译错误，因为

在嵌套的“COPY”中找到了带有“REPLACING”短语的“COPY”语句。

这是我们的编译设置，我们不能在嵌套副本中使用 REPLACING 动词。 我们有一本抄写本，其中有多个带有替换动词的复制语句。 谁能帮我解决这个错误？

Answer 1

在 COBOL 中嵌套 COPYBOOKS 是有一点技巧的。一般来说
仅当不存在时才可以嵌套习字簿
包含 REPLACING 短语并且不会导致递归。

假设您有以下两个字帖：

COPYBOOK ABC

  01 :A:-VAR-A1     PIC X.
  01 :A:-VAR-A2     PIC X.
  COPY XYZ REPLACING ==:A:== BY ==B==.

和

COBPYOOK XYZ

  01 :A:-VAR-X1     PIC X.
  01 :A:-VAR-X2     PIC X.

不允许在 COPYBOOK ABC 中嵌套，因为它包含 REPLACING 短语。

但是，您可以执行以下操作。从 COPYBOOK ABC 中删除 RELACING 这样
它变成：

COPYBOOK ABC

  01 :A:-VAR-A1     PIC X.
  01 :A:-VAR-A2     PIC X.
  COPY XYZ.

现在将 COPYBOOK ABC 包含到源程序中，如下所示：

  REPLACE ==:A:== BY ==B==.
  COPY ABC.
  REPLACE OFF.

REPLACE 指令会导致所有出现 :A:
被 B 替换，直到遇到 REPLACE OFF 指令，并且这些
替换发生在所有 COPY 指令执行后。网
上述语句的结果将是：

  01 B-VAR-A1     PIC X.    <== from ABC
  01 B-VAR-A2     PIC X.    <== from ABC
  01 B-VAR-X1     PIC X.    <== Nested copy of XYZ from ABC
  01 B-VAR-X2     PIC X.    <== Nested copy of XYZ from ABC

这是执行嵌套抄写本替换的唯一“合法”方式
据我所知，在 COBOL 中。

Answer 2

虽然 Neal 的答案对于他和 OP 正在使用的 Cobol 变体来说可能是正确的，但值得注意的是，一些 Cobol 编译器将允许嵌套 COPY ... REPLACING 语句。

事实上，我们有很多在代码中使用它的实例。

例如，我有许多 Cobol 模块程序，其中包含以下方式的复制成员：

COPY 'uwxxxxsel.prg' REPLACING
             LEADING "xxxxSEL" BY "AREASEL".

并且“uwxxxxsel.prg”复制成员包含另一个文件的以下 COPY，如下所示：

COPY 'uwf8list.prg'
       REPLACING LEADING 'XXXXXX-F8-' BY 'SELECT-F8-'
                 ==FUNCTION-KEY== BY ==F8-FUNCTION-KEY==.

并且效果很好。

我将其用作通用功能的一种“继承”结构。

不过，我们的编译器有一个问题。更高级别的REPLACING在嵌套的REPLACING之后不会继续，但是只要嵌套的REPLACING是copymember中的最后一个东西，它就是美好的。