IBM Mainframe Forum

by **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

by **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.

Select all

//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)
/*

by **pulcinella** » Wed Dec 12, 2007 3:54 pm

Thanks Frank very much. I will try to do it for two weeks ago.

IBM Mainframe Forum

Use Icetool help

Use Icetool help

Re: Use Icetool help

Re: Use Icetool help