View previous topic :: View next topic
|
Author |
Message |
Chinnadu
New User
Joined: 05 Mar 2009 Posts: 46 Location: Hyderabad
|
|
|
|
Hello,
I need to compare 2 records of the same file(sorted in ascending order), If first 4 bytes of the records are same and 5th byte in first records is blank and 5th byte in second records is not spaces, then I need to write output record with first 4 bytes and 5th byte(which not spaces in the second record). example given below. If there are no duplicate records based on first 4 bytes then that record should be written to output file as it is.
Input file:
----------
aaaa
aaaaM
bbbb
cccc
ccccM
Output file should be:
-------------------------
aaaaM
bbbb
ccccM
We are using both DFsort and ICETOOL in our system.
Regards,
Chinnadu |
|
Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
chinnadu,
Use the following DFSORT/ICETOOL JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
AAAA
AAAAM
BBBB
CCCC
CCCCM
DDDD
DDDD
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,4,CH) FIRST USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(1,4,CH,A,5,1,CH,D)
//* |
|
|
Back to top |
|
|
Chinnadu
New User
Joined: 05 Mar 2009 Posts: 46 Location: Hyderabad
|
|
|
|
Skolusu,
Thank you very much, it worked.
- Chinnadu |
|
Back to top |
|
|
|