附加二进制值的记录

Question

我有一个FB长度= 80的文件。我想在第81位添加固定值数字1，如果位置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首先将所有内容设置为零。

由于这是一个大型机任务，如果您使用该标记，则会得到较早的响应。