Добавить запись с двоичным значением

У меня есть файл с длиной FB =80. Я хочу добавить фиксированное значение числовое 1 в позиции 81, если значение в позиции 80='Y'

Это добавленное значение должно быть S9(9) BINARY при просмотре из тетради.

Добавленное поле будет использовано в SUM FIELDS в отдельном шаге.

Как мне кодировать SORT SYSIN карта?

1 ответ

OPTION COPY
INREC IFTHEN=(WHEN=(80,1,CH,EQ,C'Y'),OVERLAY=(81:+1,TO=BI,LENGTH=2))

Нет необходимости в том, чтобы это было отдельным от вас шагом с SUM in. Очевидно, что вы не будете использовать OPTION COPY.

Если вы используете SUMming для записей, отличных от Y в столбце 80, вам понадобится IFTHEN=(WHEN=INIT, чтобы сначала установить все на ноль.

Поскольку это задача мэйнфрейма, вы бы получили более ранний ответ, если бы использовали этот тег.

Другие вопросы по тегам