IBM Mainframe Forum

by **jawaharsmg** » Tue May 18, 2010 8:51 pm

Hi,

I am having an input file in this structure

AAAA 1
AAAA 1
AAAA 2
BBBB 2
CCCC 3
CCCC 3
DDDD 5
EEEE 1
EEEE 1
EEEE 1
EEEE 1
EEEE 1

MY OUTPUT EXPECTED IS - ALL RECORDS THAT HAVE MORE THAN 1 RECORD ON THE COLUMNS AS LISTED

AAAA 1
AAAA 1
CCCC 3
CCCC 3
EEEE 1
EEEE 1
EEEE 1
EEEE 1
EEEE 1

PLEASE ADVISE

by **skolusu** » Tue May 18, 2010 9:22 pm

jawaharsmg,

Use the following DFSORT/ICETOOL JCL

Select all

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
AAAA 1
AAAA 1
AAAA 2
BBBB 2
CCCC 3
CCCC 3
DDDD 5
EEEE 1
EEEE 1
EEEE 1
EEEE 1
EEEE 1
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,4,CH) ALLDUPS
//*

IBM Mainframe Forum

DUPES - URGENT

DUPES - URGENT

Re: DUPES - URGENT