Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
kregen,
The following DFSORT JCL will give you the desired results. i just showed for a max of 8 records per key and you can adjust that to 400 records per key
| Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
VSSZZZ6KZXR423833G PE2
VSSZZZ6KZXR423833G PH1
VSSZZZ6KZXR423833LAAUE0A
VSSZZZ6KZXR423833LABR1PA
VSSZZZ6KZXR423833LABV0Q0
WVWZZZ3BZYE190021LAED0DE
WVWZZZ3BZYE190021LAGM0GF
WVWZZZ3BZYE190021LAHV1D0
WVWZZZ3BZYE190032LGAB0L2
WVWZZZ3BZYE190032LGEN8GL
WVWZZZ3BZYE190032IGSPG0C
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(25:SEQNUM,3,ZD,RESTART=(1,17),30:2800Z)),
IFTHEN=(WHEN=(25,3,ZD,EQ,001),OVERLAY=(0030:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,002),OVERLAY=(0037:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,003),OVERLAY=(0044:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,004),OVERLAY=(0051:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,005),OVERLAY=(0058:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,006),OVERLAY=(0065:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,007),OVERLAY=(0072:18,7)),
IFTHEN=(WHEN=(25,3,ZD,EQ,008),OVERLAY=(0079:18,7))
SORT FIELDS=(1,17,CH,A)
SUM FIELDS=(30,8,38,8,46,8,54,8,62,8,70,8,78,8),FORMAT=BI
OUTREC BUILD=(1,17,30,56,TRAN=ALTSEQ)
ALTSEQ CODE=(0040)
|
The output from this job is
| Code: |
VSSZZZ6KZXR423833G PE2G PH1LAAUE0ALABR1PALABV0Q0
WVWZZZ3BZYE190021LAED0DELAGM0GFLAHV1D0
WVWZZZ3BZYE190032LGAB0L2LGEN8GLIGSPG0C
|
|
|
