|
View previous topic :: View next topic
|
| Author |
Message |
deepam25
New User
Joined: 14 Jul 2007
Posts: 3
Location: bangalore
|
|
|
|
| in sort if we find duplicates it produce the first duplicate value hoe to store the 2 duplicate value |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| Quote: |
| in sort if we find duplicates it produce the first duplicate value hoe to store the 2 duplicate value |
Please show an example of the records in the input file and the expected output records. Give the starting position, length and format of each relevant field. Give the RECFM and LRECL of the input file. |
|
| Back to top |
|
|
Deepa.m
New User
Joined: 28 Apr 2005
Posts: 99
|
|
|
|
I tried to get a solution..
| Code: |
//S1 EXEC PGM=SORT
//SORTIN DD DSN=I/P
//SORTOUT DD DSN=O/P
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,5)))
OUTFIL INCLUDE=(81,8,ZD,EQ,2)
/*
|
but stuck up with removing the seqnum from the output file. |
|
| Back to top |
|
|
shankar.v
Active User
Joined: 25 Jun 2007
Posts: 196
Location: Bangalore
|
|
|
|
| Code: |
INREC OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,5))
OUTFIL INCLUDE=(81,8,ZD,EQ,2),OUTREC=(1,80)
|
|
|
| Back to top |
|
|
|
|
