Need to know count ot records using cobol

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi,

I want to know the count of records in i/p file and writei it to output.

e.g if i/p file has following records:
rupesh
rupesh
bill
bill
mike

o/p should be
rupesh 02
bill 02
mike 01

I want to write a cobol code for that. Please help.

Regards,
rupesh

expat · Posted: Wed Jun 03, 2009 7:45 pm

Why reinvent the wheel when your SORT product can almost certainly give you the results that you want.

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi Expat,

Sort is wonderful ,I can do it in sort ,but just needs to write a small cobol code for that.

If you can please let me know pseudo code i can try my self.

regards,
rupesh

expat · Posted: Wed Jun 03, 2009 8:00 pm

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi Expat,

Yes please substitute want for need. I have not worked much in cobol side so wants to explore new things in cobol.

regards,
rupesh gupta

enrico-sorichetti · Posted: Wed Jun 03, 2009 8:18 pm

have You devised the logic yet ??

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi Enrico,

I have following code:

Itanium · Active User Joined: 22 Jan 2006 Posts: 114 Location: India

Change the code as below and try.

dbzTHEdinosauer · Posted: Wed Jun 03, 2009 9:10 pm

would suggest this change also:

Bill O'Boyle · Posted: Wed Jun 03, 2009 9:38 pm

Check whether you can use the REXX function LISTDSI (not sure if this is a VSAM file or not). Otherwise, for VSAM, a small Assembler sub-program, which issues a SHOWCB macro would work.

Both suggestions don't require any I-O.

It seems that to read the entire file just to determine the number of records is very inefficient.

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi,

Thanks all for your reply. I tried using all the logic and I am getting some of the result. But count is not coming correctly.

It is giving the positon from where rec starts instead of how many records are there.

my i/p is :

dbzTHEdinosauer · Posted: Thu Jun 04, 2009 3:22 pm

rather hard to help when you do not supply the code that you used.

dick scherrer · Posted: Thu Jun 04, 2009 11:56 pm

Hello,

Is this now working? If not post the code as requested. . .

One problem is that the counter is not being reset when the name changes. . .

star_dhruv2000 · Posted: Fri Jun 05, 2009 1:05 am

Try following if your file is sorted as given:

rupesh gullu · New User Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon

Hi Dick,

Following is my code which i used:

dick scherrer · Posted: Fri Jun 05, 2009 8:53 am

Hello,

The code constantly adds to the counter but never zeros the counter.

The counter needs to be set to zero each time a new name is detected.