использование ключевого слова «замена» не меняет значение в этом коде 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).