Counting the number of records in PS file

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi,
Could somebody please assist me in writing a small EZT + pgm, where in i need to count the number of records in the input PS(sequential) file,

I dont want to read the entire file for getting the number of records in it as the file contains more than a billion records

Thanks

ksk · Posted: Thu Sep 20, 2007 12:34 pm

Hi,

If my undersatnding is correct, following solution may solve ur problem. Otherwise please post ur requirment with example.

READ the file and set the COUNTER. Do this until u get required number of records. SET a FLAG with the number of records u want to read in READ statement.

If this won't resolve ur problem please give the detaild informaion on ur query.

KSK

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

I'm afraid that solution won't solve the problem as the OP doesn't want to read the entire file

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi,
See the the file details are LRECL(record length)=80,RECFM=FB.
The file is a flat file.
Please let me know if u need other details

murmohk1 · Posted: Thu Sep 20, 2007 12:43 pm

Kumail,

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi,
EZT/COBOL means writing the code in either Easytrive or COBOL would solve the purpose.
Also could please elaborate a bit more on your solution?
Thanks

murmohk1 · Posted: Thu Sep 20, 2007 12:57 pm

Kumail,

ksk · Posted: Thu Sep 20, 2007 12:57 pm

Acevedo,

I am not asking him to read bellion of records. If he knows number of records he wants to read, he can provide that value in his procedure division statements.

E.g.,

Main-Para.

PERFORM Read-Para UNTIL FLAG1='Y'.

Main-Para-Exit.
Exit.

Read-Para.
MOVE 0 TO COUNTER1.
READ FILE1.
IF EOF (another flag need to be declared)
Perform Main-para-exit.
END-IF.
ADD 1 TO COUNTER1.
IF COUNTER1 = 10000 (If he watns to read Ten Thousand Records)
MOVE 'Y' TO FLAG1
ELSE
PERFORM READ-PARA
END-IF.

Please note that I have consider only counting the number of records in the above logic.

KSK

murmohk1 · Posted: Thu Sep 20, 2007 1:02 pm

KSK,

enrico-sorichetti · Posted: Thu Sep 20, 2007 1:07 pm

I am always puzzled by this kind of questions...
I cannot think of them as "IT real world examples"

counting the number of records in a sequential file is usually one of the first programming samples/exercises given in a programming course ( for any language )

- no structured I/O area needed,
- a simple counter,
- basic end of file handling,
- at the end a display of the counter

there should not be any problem writing it.

As far as the other issue raised by the OP on the unwillingness to read all the file, he is out of luck, for the exact count he needs to read ALL the records.

So, why these questions?
It would be more confortable for the responders to see in the question
something like :
- I am learning
- it' s a programming test
- any lame excuse you like
- ...

And the replies would be more appropriate and helpful

regards

e.s

murmohk1 · Posted: Thu Sep 20, 2007 1:15 pm

enrico-sorichetti,

enrico-sorichetti · Posted: Thu Sep 20, 2007 1:19 pm

Anuj Dhawan · Posted: Thu Sep 20, 2007 1:25 pm

Hi Kumail Fazal,

REXX will suit better to your need. (Not sure though whether would you like to do it that way or not)

enrico-sorichetti · Posted: Thu Sep 20, 2007 1:43 pm

What I would like to point out is the POOR organization of the shops many posters work for.

most of the shops I was consulting for usually had for the newcomers a printed/online document
( even be a simple text file produced using the ISPF editor )
containing a short description of the home grown small tools and standards being used like..

- user data set allocation ( naming, dcb, space )
- use of the most common utilities
- security issues
- TSO short primer
- JCL standards
- how to solve the most common abends ( SB37, SE37, -805, ... )
- THE TELEPHONE NUMBER OF THE TECHNICAL SUPPORT STAFF
- ... add as many as You want

and they usually had a library ( sample name )
"xxxxxx.sample.jcllib"
with jcl samples of the most common utilities customized for their
standards

I did not take an exact count but the forum traffic is about 50% due to the lack of this very simple items available.

I wonder how these IT shops got their ISO900x ( or equivalent ) certification

I firmly believe that the objective of these forums is to help the individuals,
but also to teach IT shops how to run their business.
But alas... if their organizations do not change their BAD habits
we will continue to give free training/consultancy to those IDtenS
( not the posters, but the organizations they work for and their managers )

regards

e.s

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

how could Rexx, Cobol or DFSORT know the total records of a flat file without reading the whole file?

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi,
Thanks everyone for all your inputs.
I cannot do it using a JCL(though i know it can be done) as my requirements does not allows me to do so.
I also cannot write a rexx code again due to my requirement issues and code delivery deadline

I'll try using murmohk1 solution of using Record-count.

If anyone has some other way of dealing with this problem, please share your thoughts

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

BUT what about your original requirement?

I dont want to read the entire file for getting the number of records

that's the KEY of this thread...do you think that using murmohk1 solution will avoid reading the whole file?

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi,
I am trying the solution given by murmohk1, but i see a very less possibility of that working out as even RECORD-COUNT defination says that
"RECORD-COUNT is a read-only four-byte binary field with zero decimal places that contains the number of logical I/O operations performed on a file".
and i am also not sure of the syntax. But at this moment i have only this solution so pinning all my hopes on it.

murmohk1 · Posted: Thu Sep 20, 2007 2:53 pm

Kumail,

Kumail Fazal · New User Joined: 29 May 2007 Posts: 12 Location: Mysore

Hi murmohk1,
iI have got the syntax and i am browsing the net for more information.
Hope to get the slotion using the keyword "Record Count"

Thanks once again for sharing this.

enrico-sorichetti · Posted: Thu Sep 20, 2007 4:05 pm

richa gupta · New User Joined: 29 Jul 2007 Posts: 8 Location: noida

if appropriate, you can sort the file and get the count .

murmohk1 · Posted: Thu Sep 20, 2007 4:14 pm

Rich,

richa gupta · New User Joined: 29 Jul 2007 Posts: 8 Location: noida

Yes Murali,

I was referring to SORT utility. SORT=COPY, will give the exact number of records sorted in the spool.