使用“替换”关键字不会更改此COBOL代码中的值

Question

我在COBOL编程中还很陌生，我不明白为什么我的代码没有生成我想要的东西。这正在改变“ m-poem”的价值。

   data division.
   working-storage section.

   01 m-poem pic A(50) value 'nothing here'.

并使用它：

  procedure division.

  initialize m-poem replacing alphanumeric data by
  -    "This is the way
  -         "I chose to take".
  display m-poem.

我得到的是：“这里什么都没有”。这是“诗”的原始值，而不是被替换的诗。

Answer 1

^{（感谢您对COBOL的介绍。）}

之所以不起作用，是因为您试图替换其中仅包含alphanumeric data数据的记录alphabetic。

您可以通过以下任一方法解决此问题：

1. A(50)必须与replacing alphabetic data配对； 或
2. replacing alphanumeric data必须与X(50)配对。