COBCH1873 ネストされた COPY REPLACING はサポートされない

プログラムに含まれるコピーファイルが、それ自体に別の COPY REPLACING が含まれる COPY REPLACING 文を使用してコピーされています。IBM 方言用にコンパイルする場合、これは許可されません。

解決方法：

コードを修正して従来どおり再コンパイルするか、IBM 方言以外の方言用に再コンパイルします。

例：

次の例では、方言が IBM ENTCOBOL 用に設定され、COPY REPLACING を使用して、PROCEDURE DIVISION がコピーファイルにコピーします。この例では、COPY1 コピーファイルにも COPY REPLACING が含まれているものと想定しています。

      $set dialect(entcobol)
       id division.
       program-id err1873.
       data division.
       working-storage section.
       01 x1 pic x(10).
       procedure division.
           copy "copy1" replacing ==move== by ==mov==.