|
View previous topic :: View next topic
|
| Author |
Message |
rmd3003
New User
Joined: 03 Jul 2006
Posts: 55
|
|
|
|
Hello there. I have a question about eliminating duplicates. Let's say I have a file with duplicates. If I use XSUM, can I eliminate dups and in the same step reformat output file which has dups.
This is my JCL (it doesn't work, only to show my input):
| Code: |
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
----+----1----+----2----+----3----+----4----+----5----+----6--
AAAAAXXXXX1111111111XXXXXXXXXXXXXX
AAAAAXXXXX1111111111XXXXXXXXXXXXXX
AAAAAXXXXX1111111111XXXXXXXXXXXXXX
BBBBBXXXXX2222222222XXXXXXXXXXXXXX
BBBBBXXXXX2222222222XXXXXXXXXXXXXX
CCCCCXXXXX3333333333XXXXXXXXXXXXXX
/*
//OUT DD SYSOUT=*
//SORTXSUM DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,3,CH) FIRST DISCARD(SORTXSUM) -
USING(CTL1)
/*
//CTL1CNTL DD *
OUTREC FIELDS=(11,10) |
This is how my main output file (OUT) should look like:
| Code: |
AAAAAXXXXX1111111111XXXXXXXXXXXXXX
BBBBBXXXXX2222222222XXXXXXXXXXXXXX
CCCCCXXXXX3333333333XXXXXXXXXXXXXX |
This is what my DUPS output (SORTXSUM) should look like:
| Code: |
1111111111
1111111111
2222222222 |
|
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Just use the following DFSORT statements for CTL1CNTL:
| Code: |
//CTL1CNTL DD *
OUTFIL FNAMES=OUT
OUTFIL FNAMES=SORTXSUM,BUILD=(11,10)
/*
|
|
|
| Back to top |
|
|
rmd3003
New User
Joined: 03 Jul 2006
Posts: 55
|
|
|
|
| Frank, thanks. Every time you answer it looks so simple. Just awesome. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
I have the DFSORT books memorized (since I wrote them).  |
|
| Back to top |
|
|
|
|
