MVSFORUMS.com

[wiprov]

Thanks a ton, for the logic.
I have used your idea and made the below logic which perfectly worked. Thanks again!

1) INREC - building the key at 11th position followed by sequence number (Col-21:26) and ID values (Col 27:32)
2) Sequence number (Col 21:26) gets incremented when it encounters header record
3) OUTREC - building the sequence number (Col 31:36) which gets restarted only when there is change in key value (11th position)
4) Checking the sequence number (col 31:36) with seq number (Col 21:26) and omitting the records if they are not equal
5) In the second SORT step, retaining the original order of records by sorting the ID values.

You people are great and many thanks for the timely help. Nice time