How to determine number of records in a file...

[gwilburn]

I have written a series of pgms that clean-up or delete records. Each pgm deletes records from quite a few files.

I would like to create a log as the programs are running that tracks the starting number of records, ending number of records, and the number of records deleted for each file. I would like to do this with a few lines of code.

Questions:

Other than RTVMBRD command - is there a way in RPG to determine the number of records in a file?

Is there a DS (INFDS, etc.) that contains the record format name of the file currentl (or last) opened/updated? Given the number of files involved, it would be helpful to have the filename/format name in a variable w/out having to "eval" it myself.

Thx

[FaStOnE]

Re: How to determine number of records in a file...

Use SQL --

Select Count(*) into :RecCount From Lib/File;

Use this to find the File Name, etc ... utilizing the INFDS.

[RBOrrell]

Re: How to determine number of records in a file...

While I have never done it, I am just thinking of ways to do this. There is a INFDS field that has the relative record number in it. If you were to position the file cursor at the end of the file and then do a READP, this INFDS field "should" give you the record number.

[jamief]

Re: How to determine number of records in a file...

you can use the infds

fbrc02hsta uf   e           k disk    infds(infhst)
dinfhst           ds                     
d fileRRN               397    400I 0    
D NUM_RCDS         156    159I 0 

[gwilburn]

Re: How to determine number of records in a file...

So i really just need to define the fields in the INFDS so I can check them? BTW - what happened to the link on this site that described the fields in INFDS and PSDS and the like?

[jamief]

Re: How to determine number of records in a file...

Its still there
http://www.code400.com/codepage.php?id=11

jamie

[FaStOnE]

Re: How to determine number of records in a file...

That's what the link I provided up top does for you... gives you the INFDS and the definitions...

I know .. you just like Jamie best. He ALWAYS gets the attention around here.... Jaime, Jaime Jaime!!

[MichaelCatalani]

Re: How to determine number of records in a file...

That's what the link I provided up top does for you... gives you the INFDS and the definitions...

I know .. you just like Jamie best. He ALWAYS gets the attention around here.... Jaime, Jaime Jaime!!

WHy do I suddenly have the urge to break into a 1970's dance routine???

[tomholden]

Re: How to determine number of records in a file...

WHy do I suddenly have the urge to break into a 1970's dance routine???

coz you're old???

[abercrombieande]

Re: How to determine number of records in a file...

Rather than do the count yourself the count is stored in the system tables

select TABLE_NAME ,  NUMBER_ROWS
from QSYS2/SYSTABLESTAT
where TABLE_SCHEMA = ''
and TABLE_NAME= ''