RE: How many members in a file?

I was thinking along that line, and after I posted I tried exactly that
(which didn't work, as you noted later). I then modified my test program to
add a member to the file (mbrname=ZZZZZZZZZZ), then open the file at that
member to retrieve the member number via the infds. The member was
inserted/opened as number 16448... but a dspfd printout shows the number of
members to be over 31000.

Tom


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Tyler, Matt
Sent: Monday, April 02, 2012 11:30 AM
To: Midrange Systems Technical Discussion
Subject: RE: How many members in a file?

f$$arcsrc$$if e disk Rename($$arcsrc$$ :$$ARCSRCrf)
f Infds(infds)
D Infds ds
D Num_Mems 395 396i 0

/Free


*Inlr = *On;
/End-Free

Replace $$ARCSRC$$ with your file.

Thanks, Matt

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom Hightower
Sent: Monday, April 02, 2012 10:05 AM
To: Midrange Systems Technical Discussion
Subject: How many members in a file?


Is there a field in the INFDS to tell me how many members are in a file?
If
not, is there something else I can do to quickly return the count?

The reason I'm asking is that we have an EDI file that fills up to max
members every so often (3rd party package), and things go south real quick
when that happens. I'd like to write a monitor that will report when the
file is nearing capacity, giving us a chance to archive and cleanup before
we run into issues.

Tom
--