mainframe - 用二进制值附加记录

Question

我有一个 FB 长度=80 的文件。我想1在位置 81 处附加固定值数字，如果位置 80 ='Y'

这个附加值应该是S9(9) BINARY从字帖中查看时的值。

附加字段将SUM FIELDS在单独的步骤中使用。

我如何对SORT SYSIN卡进行编码？

Answer 1

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

无需将此与您使用 SUM 分开。显然您不会使用 OPTION COPY。

如果您在第 80 列中对 Y 以外的记录求和，则需要先使用 IFTHEN=(WHEN=INIT 将所有内容设置为零。

由于这是一项大型机任务，因此如果您使用了该标签，您将得到较早的响应。