Page 1 of 1

Use Icetool help

PostPosted: Mon Dec 10, 2007 10:23 pm
by pulcinella
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

Re: Use Icetool help

PostPosted: Tue Dec 11, 2007 12:22 am
by Frank Yaeger
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)
/*

Re: Use Icetool help

PostPosted: Wed Dec 12, 2007 3:54 pm
by pulcinella
Thanks Frank very much. I will try to do it for two weeks ago.