eliminating duplicate but values in duplicate record copied



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

eliminating duplicate but values in duplicate record copied

Postby pradeepgowda » Thu Dec 29, 2011 1:24 am

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
pradeepgowda
 
Posts: 40
Joined: Mon Jan 04, 2010 4:17 pm
Has thanked: 0 time
Been thanked: 0 time

Re: eliminating duplicate but values in duplicate record cop

Postby skolusu » Fri Dec 30, 2011 3:32 am

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))             
//*                                                         
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post