Use Icetool help



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

Use Icetool help

Postby pulcinella » Mon Dec 10, 2007 10:23 pm

Hi All,

i have two PS files have x records with 124 pos order by the same columns.

x records file1:

AAAAAAAA
BBBBBBBB
GGGGGGGG
HHHHHHHH
JJJJJJJJ


X records file2:

11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII

in this second file2, I need delete all duplicate records (AAAAAAAA, BBBBBBBB, GGGGGGGG,HHHHHHHH,JJJJJJJJ) and
obtain two files (all duplicates, all no dupliocates)

y record file:

11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII

y record file2:

11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG

Thanks
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Use Icetool help

 

Re: Use Icetool help

Postby Frank Yaeger » Tue Dec 11, 2007 12:22 am

You can use a DFSORT/ICETOOL job like the following to do what you asked for. I assumed your input files have RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//CON DD *
        AAAAAAAA
        BBBBBBBB
        GGGGGGGG
        HHHHHHHH
        JJJJJJJJ
/*
//    DD *
11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII
/*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(CON) TO(OUT1) ON(9,8,CH) KEEPNODUPS KEEPBASE -
  WITHALL WITH(1,81) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=(1,8,CH,EQ,C' '),OVERLAY=(81:C'BB')),
        IFTHEN=(WHEN=NONE,OVERLAY=(81:C'VV'))
  OUTFIL FNAMES=OUT1,INCLUDE=(81,2,CH,EQ,C'VV'),BUILD=(1,80)
  OUTFIL FNAMES=OUT2,INCLUDE=(81,2,CH,EQ,C'VB'),BUILD=(1,80)
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

Re: Use Icetool help

Postby pulcinella » Wed Dec 12, 2007 3:54 pm

Thanks Frank very much. I will try to do it for two weeks ago.
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post