大佬教程收集整理的这篇文章主要介绍了JCL 将记录合并为一行，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
我有 4 个数据集，每个数据集只有一个包含两位数的记录。例如：
file1: 45
file2: 78
file3: 83
file4: 52
我希望将数据合并到一个新的数据集中 这样：
4578
8352
如何在 Mainframe-JCL 中编写此代码？
要完成此任务，请将您的四个输入文件连接到 sorTin：
//STEP1 EXEC PGM=SORT
//SORTin DD DSN=File1,DISP=SHR
// DD DSN=File2,DISP=SHR
// DD DSN=File3,DISP=SHR
// DD DSN=File4,DISP=SHR
//SORTOUT DD DSN=Combined
//SYSIN DD *
* Combine each pair of records into a single record
SORT FIELDS=COPY
* Append a sequence number 00,50,00,...
INREC BUILD=(1,2,2X,SEQNUM,ZD,START=0,INCR=50)
* Reformat the output record depending on the sequence number
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(5,CH,EQ,C'00'),PUSH=(7:1,2)),IFTHEN=(WHEN=GROUP,C'50'),PUSH=(9:1,2))
* Include only the second record of each group (the 50 records)
OUTFIL FILES=OUT,INCLUDE=(5,BUILD=(7,4)
END
对于四个输入文件：
文件 1：
45
文件 2：
78
文件 3：
83
文件 4：
52
组合输出文件应该是：
4578
8352
这已经通过 AHLSORT for Windows v14r3 验证，但应该适用于 z/OS 上的 DFSORT 或 SYNCSORT。
以上是大佬教程为你收集整理的JCL 将记录合并为一行全部内容，希望文章能够帮你解决JCL 将记录合并为一行所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。