Cobol internal sort to remove duplicate

psriv20 · New User Joined: 25 May 2009 Posts: 19 Location: Pune

Hi All,

I got a requirment to sort one file in cobol which could have duplicate records but we hae to write unique records into the output file.

thanks

expat · Posted: Mon Apr 18, 2011 2:50 pm

Why write a program when your SORT product will probably do this much faster and more efficiently

Bill Woodger · Posted: Mon Apr 18, 2011 8:14 pm

I don't know if you are thinking of coding your own sort, or doing a Cobol internal sort.

Without knowing more about your requirement, I'd recommend using your system sort in a step prior to the execution of your program. Then using the sorted file in the program. Keeps your program simple.

If you tell me, "well to do that, I'd have to split the program". Then I'd say, split it. Keep it simple.

Anuj Dhawan · Posted: Tue Apr 19, 2011 6:08 pm

As it's been already suggested - it's easy to use a SORT product right away in a Job would be easy, however, for a record - even if you write a Program to call the SORT - in back-end, your default SORT product will be invoked, you know.

Or if you insist (I assume there is some key, on which a record is called duplicate) --

Perform until end-of-file
READ the file
Move first read record in a temp varaible
READ "next reocrd"
compare "next reocrd" with the temp varaible
if on the key - records are same -- don't write to ouput
else write to ouput

gcicchet · Posted: Wed Apr 20, 2011 4:13 am

Hi Anuj,

you are assuming the file is already sorted.

Gerry

Anuj Dhawan · Posted: Wed Apr 20, 2011 2:48 pm

Yes Gerry, You're correct - I did assume that, forget to mention ...

.

Nic Clouston · Posted: Wed Apr 20, 2011 3:02 pm

So if it is already sorted the duplicates can be removed at an earlier stage.

Anuj Dhawan · Posted: Wed Apr 20, 2011 3:25 pm

A riddle with many loose ends is right here...

chandan.inst · Posted: Tue Apr 26, 2011 11:10 am

Hi,

I have executed such kind of request long back

While executing cobol program wih internal sort give following option at runtime

Kjeld · Posted: Thu Apr 28, 2011 12:22 pm

Most mainframe sort utilities have a control statement keyword that will exclude duplicate occurences of the sort key values to be output. Search the manual for your sort product for 'duplicate'.