|
View previous topic :: View next topic
|
| Author |
Message |
hernikiten
New User
Joined: 08 Apr 2005
Posts: 23
Location: india
|
|
|
|
| I have a situation where in I ought to delete unique records from a sorted file. |
|
| Back to top |
|
 |
prav_06
Warnings : 1
Active User
Joined: 13 Dec 2005
Posts: 154
Location: The Netherlands
|
|
|
|
hernikiten,
| Quote: |
| delete unique records from a sorted file. |
Can u please be more clear, If u had provided SUM Fields=none for the sorted file each record would be unique. or u r tryin to say that u have to copy all unique recods from a input file to output file.?
Thamilzan. |
|
| Back to top |
|
|
hernikiten
New User
Joined: 08 Apr 2005
Posts: 23
Location: india
|
|
|
|
I want to remove records which are not duplicate.
I know the sum fields = none usage, but its different case here.
please advice. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
hernikiten,
If you want to keep just the duplicate records, you can use a DFSORT/ICETOOL job like this. I assumed your "key" is in positions 11-15, but you can change the job as needed.
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//OUT DD DSN=... output file
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(11,5,CH) ALLDUPS
/*
|
For complete information on all of the ways you can handle duplicate and non-duplicate records with the SELECT operator of DFSORT's ICETOOL,
see:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/6.11?DT=20060615185603 |
|
| Back to top |
|
|
hernikiten
New User
Joined: 08 Apr 2005
Posts: 23
Location: india
|
|
|
|
Many Thanks Frank,
I tested it and its working fine. |
|
| Back to top |
|
|
|
|
