Page 1 of 1

eliminating duplicate but values in duplicate record copied

PostPosted: Thu Dec 29, 2011 1:24 am
by pradeepgowda
Hi all

My input is

aaaaaa 123456
aaaaaa 234567
aaaaaa 456789
bbbbbb 111111
bbbbbb 222222
ccccccc 333333

Output should be:
aaaaaa 123456 234567 456789
bbbbbb 111111 222222
ccccccc 333333

Please help

Re: eliminating duplicate but values in duplicate record cop

PostPosted: Fri Dec 30, 2011 3:32 am
by skolusu
use the following DFSORT/ICETOOL JCL which will give you desired results

//STEP0100 EXEC PGM=ICETOOL                                   
//TOOLMSG  DD SYSOUT=*                                       
//DFSMSG   DD SYSOUT=*                                       
//IN       DD *                                               
AAAAAA 123456                                                 
AAAAAA 234567                                                 
AAAAAA 456789                                                 
BBBBBB 111111                                                 
BBBBBB 222222                                                 
----+----1----+----2----+----3----+----4----+----5----+----6--
CCCCCC 333333                                                 
//OUT      DD SYSOUT=*                                       
//TOOLIN   DD *                                               
  SPLICE FROM(IN) TO(OUT) ON(1,6,CH) WITH(15,7) WITH(22,7) - 
  WITHANY KEEPNODUPS USING(CTL1)                             
//CTL1CNTL DD *                                               
  SORT FIELDS=COPY                                           
  INREC IFOUTLEN=80,IFTHEN=(WHEN=INIT,BUILD=(1,6,81:8,6)),   
  IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,6),PUSH=(87:SEQ=1)),         
  IFTHEN=(WHEN=(87,1,ZD,EQ,1),OVERLAY=(08:81,6)),             
  IFTHEN=(WHEN=(87,1,ZD,EQ,2),OVERLAY=(15:81,6)),             
  IFTHEN=(WHEN=(87,1,ZD,EQ,3),OVERLAY=(22:81,6))             
//*