Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Furor,
You can use a DFSORT/ICETOOL job like the following to get the unique records in one file and the duplicates in another:
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=INPUT.FILE,
// DISP=SHR
//UNQ DD DSN=OUPUT.UNQ.KEY FILE,
// DISP=(,NEW,CATLG,DELETE),
// UNIT=SYSDA
// SPACE=(CYL,(X,Y),RLSE)
//DUPS DD DSN=OUPUT.DUPS.KEY FILE,
// DISP=(,NEW,CATLG,DELETE),
// UNIT=SYSDA
// SPACE=(CYL,(X,Y),RLSE)
//TOOLIN DD *
SELECT FROM(IN) TO(UNQ) ON(1,5,CH) NODUPS DISCARD(DUPS)
/*
|
|
|
