如何使用DFSORT在不影响相邻字段的情况下将较小的字符串替换为较大的字符串？

Question

我有以下输入文件: Field1=(1-7) field2= (8-12) field3= (13-19) ABC‘DEF12345GHIJ’‘KL

我需要相同字段长度的输出文件，如下所示: ABC?'DE12345GHIJ?'K

需要使用DFSORT将“‘”替换为“？”。如何做到这一点？请帮帮忙。

Answer 1

如果您的输入文件包含：

ABC'DEF12345GHIJ'KL 

使用以下控制卡：

RECORD TYPE=F,LENGTH=20
SORT FIELDS=COPY
INREC FINDREP=(IN=(C''''),OUT=(C'?'''))  * Replace ' with ?'
OUTREC BUILD=(1,20)  * Truncate to 20 Bytes
END

您的输出文件将包含：

ABC?'DEF12345GHIJ?'K

这一点已经使用AHLSORT for Windows x64 v14r3-87-g811342a2版本进行了验证，但在z/OS上使用DFSORT或SYNCSORT也应该是一样的。