sqlcode1
Active Member
Joined: 08 Apr 2010 Posts: 577 Location: USA
|
|
|
|
manugeorge2004,
Please refer to Smart DFSort Tricks (Combine multiple records into one record)
ftp.software.ibm.com/storage/dfsort/mvs/sorttrck.pdf
For completion, assuming input file of FB 06.
Code: |
//STEP01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
111111
222222
333333
444444
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(13,8,ZD) WITHEACH KEEPNODUPS -
WITH(7,6) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(13:ID=8,21:SEQ=2)),
IFTHEN=(WHEN=(21,2,ZD,EQ,2),OVERLAY=(7:1,6))
OUTFIL FNAMES=OUT,BUILD=(1,12)
/* |
OUTPUT
Code: |
111111222222
333333444444 |
Thanks, |
|