Re: LF Index Entries and QUSRMBRD

[Tony Carolla <carolla@xxxxxxxxx>]

Didn't think of that -- that's even easier. Thanks! 

You know what would be real nice, is if the PDF Manuals that IBM puts out 
contained data structures that didn't use From/To notation. I would like to 
get a copy of the INFDS using Len/Type notation, put it in a /copy member, 
and forget about it. Has anybody done this, who would be willing to share a 
copy? If not, I will get around to it and post it on the code sharing site. 

On 8/18/05, Peter Dow (ML) <maillist@xxxxxxxxxxxxxxx> wrote:
> 
> Hi Tony,
> 
> Assuming that the logical file has selection criteria so that it only
> includes the records where the date field is not *LOVAL, then the number 
> of
> records in the file is the number of index entries.
> 
> In CL you could use RTVMBRD NBRCURRCD, or in RPG, use the file status data
> structure to get the number of records at open, i.e. pos. 156-159 binary.
> 
> hth,
> Peter Dow
> Dow Software Services, Inc.
> www.dowsoftware.com <http://www.dowsoftware.com>
> 909 793-9050 voice
> 909 793-4480 fax
> 
> > -----Original Message-----
> > I am writing a balancing/checksum program, and there is an account file
> (PF)
> > with a date field. I want a count of all records where this date field
> isn't
> > *LOVAL. I could simply create an LF, then read and count the records, 
> but
> I
> > notice that, once I create the LF, I can DSPFD it, and get the 'Number 
> of
> > index entries' from the display. So I want my program to use an API to 
> get
> > this info, and avoid any File I/O.
> >
> > I looked at QUSRMBRD, and I see the Current number of records field in 
> the
> > MBRD0200 format, but this is not what I am looking for. Has anybody else
> > accomplished this, perhaps with a different API?
> 
> --
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.338 / Virus Database: 267.10.12/77 - Release Date: 8/18/2005
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>