How to find the number of records using rexx program

sundar_er · New User Joined: 20 Dec 2006 Posts: 5 Location: india

Hi ,
Can any one tell me How to find the number of records using rexx program?

superk · Posted: Wed Jan 10, 2007 4:21 pm

Sure.

Set the counter to zero.
Read a record.
Add 1 to the counter
Continue until you reach EOF.

OR

Read the entire dataset into a stem array. The number zero entry of the stem (stemname.0) will contain the number of items read.

OR

Run DFSORT/ICETOOL with the COUNT parameter, as shown by many examples in the DFSORT Forum.

sundar_er · New User Joined: 20 Dec 2006 Posts: 5 Location: india

Thanks superk ..
Even i tried the same technique but stem approach is failing when my dataset contains records in millions ....

Any other function in rexx which does this ....

Mickeydusaor · Posted: Fri Jan 19, 2007 8:51 pm

I had the same problem, so I wrote a little Assembler program to handle
this. I you want to contact me about it, I would be glad to send you the source as its only 230 lines of code.

ofer71 · Posted: Sat Jan 20, 2007 5:16 pm

If the file is to big, you might want to use LISTDSI, then calculate the number of records based on REFB, LRECL and size allocated.

O.

dick scherrer · Posted: Sun Jan 21, 2007 8:00 am

Hello,

Why not post the assembler code here? You could "post" it as a downloadable text file.

It has been asked several times and the answer could benefit several others.

Mickeydusaor · Posted: Tue Jan 23, 2007 3:01 am

I will Attach the correct readable files after the above have been deleted
as the are not readable. SORRY.

Mickeydusaor · Posted: Tue Jan 23, 2007 8:38 pm

I will try this one more time. I have included the two PANELS used in the REXX Exec. The included REXX is only the code used for the SEQ. Files as
my full REXX code also process PO and VSAM file COUNTS.