如何通过JCL实现基于父列合并对应子列数据？

在大型机环境中，JCL仅用于作业调度，实际的数据合并需借助DFSORT（IBM官方排序工具）完成。以下是针对需求的具体实现方案：

实现步骤 #

1. 排序分组：先按Parent字段对输入文件排序，确保相同父数据的记录连续排列
2. 字段合并：利用DFSORT的分组拼接功能，将同组的Child字段用逗号合并为单个字符串

完整JCL示例（含表头处理） #

//MERGECHLD JOB (ACCT),'MERGE CHILD RECORDS',CLASS=A,MSGCLASS=X
//* 作业说明：将同一Parent对应的Child字段合并为逗号分隔的单条记录
//SORT     EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=YOUR.INPUT.FILE,DISP=SHR
//SORTOUT  DD DSN=YOUR.OUTPUT.FILE,DISP=(NEW,CATLG,DELETE),
//         SPACE=(CYL,(5,5),RLSE),UNIT=SYSDA
//SYSIN    DD *
  OPTION SKIPREC=1          /* 跳过输入文件的第一行表头 */
  INREC FIELDS=(1,10,       /* 提取Parent字段（1-10位）*/
                12,10,      /* 提取Child字段（跳过第11位的|分隔符）*/
                80:X)       /* 补全至80字节，避免记录截断 */
  SORT FIELDS=(1,10,CH,A)   /* 按Parent字段字符升序排序 */
  OUTFIL REMOVECC,
         HEADER1=('Parent    |Child'), /* 输出目标表头 */
         SECTIONS=(1,10,    /* 按Parent字段分组 */
         TRAILER3=(1,10,    /* 输出分组的Parent字段 */
                   '|',     /* 输出分隔符 */
                   21,80)), /* 输出合并后的所有Child字段 */
         BUILD=(1,10,       /* 初始化组内第一条记录的输出格式 */
                '|',
                11,10,
                80:X),
         GROUP=(PUSH=(21:11,10,',',21,80)), /* 将后续Child字段追加到指定位置，逗号分隔 */
         INCLUDE=(1,10,NE,1,10,NEXT) /* 仅保留每个组的最终合并记录 */
/*

参数说明 #

• OPTION SKIPREC=1：跳过输入文件的第一行表头，避免表头参与排序和合并
• INREC：重新整理输入记录结构，提取有效字段并补全长度，保证后续处理格式统一
• SORT FIELDS：按Parent字段排序，确保同属一个父数据的记录连续排列，这是合并的前提
• OUTFIL HEADER1：输出目标文件的表头，与需求格式匹配
• SECTIONS + GROUP PUSH：核心合并逻辑，按Parent分组后，将组内后续记录的Child字段追加到第一条记录的指定位置，用逗号分隔
• INCLUDE：过滤掉组内的中间记录，只保留每个组完成合并后的最终记录

适配调整建议 #

• 如果Parent/Child字段的长度或位置与示例不同，请修改INREC、SORT FIELDS中的位偏移参数（例如Parent是1-12位则改为1,12）
• 若输入文件无表头，可删除OPTION SKIPREC=1和HEADER1配置
• 确保系统安装的DFSORT版本支持GROUP和SECTIONS功能（需z/OS 1.8及以上版本的DFSORT）

内容的提问来源于stack exchange，提问作者Ashish