JCL/DFSORT 根据 header 条记录中的 multi-lined 条记录拆分数据集
JCL/DFSORT to split dataset based on header of multi-lined records
我有一个处理过信息的数据集,用于 4 个不同的部门,我需要将它拆分为每个部门的一个数据集。这是一般的记录结构:
XXXXXXX = 不相关的字符串
AAA = 3 个字母字母部门 ID
记录详细信息无关紧要,行数可变
000001 0000000000000000000000000000000000000XXXXXXXAAA171220150000
000002 <irrelevant record details>
000003 <irrelevant record details>
000004 999999999999999999999999999999999999900000004000000000005700
000005 0000000000000000000000000000000000000XXXXXXXBBB171220150000
000006 <irrelevant record details>
000007 <irrelevant record details>
000008 <irrelevant record details>
000009 <irrelevant record details>
000010 <irrelevant record details>
000011 999999999999999999999999999999999999900000004000000000005700
000012 0000000000000000000000000000000000000XXXXXXXCCC171220150000
000013 <irrelevant record details>
000018 999999999999999999999999999999999999900000004000000000005700
如何使用 DFSORT 和 JCL 完成此操作?
这是使用 INREC WHEN=GROUP 的解决方案的示例代码,适用于 2 个部门:
//SRT0001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DATASET.IN,
// DISP=SHR
//AAAOUT DD DSN=DATASET.OUT.DEPAAA,
// DISP=(,CATLG),AVGREC=U,SPACE=(150,(100,10),RLSE)
//BBBOUT DD DSN=DATASET.OUT.DEPBBB,
// DISP=(,CATLG),AVGREC=U,SPACE=(150,(100,10),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'0000'),
END=(1,4,CH,EQ,C'9999'),
PUSH=(151:45,3))
OUTFIL FNAMES=AAAOUT,
INCLUDE=(151,3,CH,EQ,C'AAA'),BUILD=(1,150)
OUTFIL FNAMES=BBBOUT,
INCLUDE=(151,3,CH,EQ,C'BBB'),BUILD=(1,150)
/*
我有一个处理过信息的数据集,用于 4 个不同的部门,我需要将它拆分为每个部门的一个数据集。这是一般的记录结构:
XXXXXXX = 不相关的字符串
AAA = 3 个字母字母部门 ID
记录详细信息无关紧要,行数可变
000001 0000000000000000000000000000000000000XXXXXXXAAA171220150000
000002 <irrelevant record details>
000003 <irrelevant record details>
000004 999999999999999999999999999999999999900000004000000000005700
000005 0000000000000000000000000000000000000XXXXXXXBBB171220150000
000006 <irrelevant record details>
000007 <irrelevant record details>
000008 <irrelevant record details>
000009 <irrelevant record details>
000010 <irrelevant record details>
000011 999999999999999999999999999999999999900000004000000000005700
000012 0000000000000000000000000000000000000XXXXXXXCCC171220150000
000013 <irrelevant record details>
000018 999999999999999999999999999999999999900000004000000000005700
如何使用 DFSORT 和 JCL 完成此操作?
这是使用 INREC WHEN=GROUP 的解决方案的示例代码,适用于 2 个部门:
//SRT0001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DATASET.IN,
// DISP=SHR
//AAAOUT DD DSN=DATASET.OUT.DEPAAA,
// DISP=(,CATLG),AVGREC=U,SPACE=(150,(100,10),RLSE)
//BBBOUT DD DSN=DATASET.OUT.DEPBBB,
// DISP=(,CATLG),AVGREC=U,SPACE=(150,(100,10),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,4,CH,EQ,C'0000'),
END=(1,4,CH,EQ,C'9999'),
PUSH=(151:45,3))
OUTFIL FNAMES=AAAOUT,
INCLUDE=(151,3,CH,EQ,C'AAA'),BUILD=(1,150)
OUTFIL FNAMES=BBBOUT,
INCLUDE=(151,3,CH,EQ,C'BBB'),BUILD=(1,150)
/*