Subject: RE: Subfile size equals page size. SFLEND(*MORE) and eof

["Mike savino" <mikejsavino@xxxxxxxxxxx>]

> > Everything I've seen is some variation of read one extra record.

> > Realistically, that's the only way of finding the EOF when you don't know
> > how many records are there.  In other words, you could get the record 
> > count
> > of the file and keep track of how many you've displayed.

True if you're not doing a READE or any kind of filtering in the program 
itself.  For instance if you had a Subfile of Order Items and were doing a 
Read by Order Number, knowing the number of records in the file is useless.  
Maybe a quick SQL, like:

    Select Count(*) as LineCount from Orders Where Ordno = 100

and then when the number of Records you've added to the SFL equals 
LineCount, turn on SFLEND.

But most apps don't go through that much trouble.

This code will work as well and it's not necessary to do any extra reads:

C     S0MoreData    Begsr
c*
c                   Eval      D2Rno = v2LastRno
c                   If        D2Rno = 0                                If 
it's first SFL Record
c     FFKy01        ReadE     AurfAU01L
c                   Endif
c                   Eval      V1PageCt = 0
c*
c                   Dow       V1pageCt < V1PageSize
c                             And Not %EOF(AuLfAU01)
c                   If        Not %EOF(AuLfAU01)
c                   Eval      V1pageCt = V1PageCt + 1              Increment 
Page Ct
c                   Eval      D2Rno = D2Rno + 1                       
Increment SLF rrn
c                   Eval      *IN37 = *On                                 
SFL Display
c                   Exsr      S0MovFlds                                     
Move File Flds to SFL Fields
c                   Write     FSfl
c                   Endif
c     FFKy01        ReadE     AurfAU01L
c                   Enddo
c*
c                   If        %EOF(AuLfAU01)
c                   Eval      *In38 = *On                            Turn on 
SFLEND
c                   Endif
c*
c*
c     X0MoreData    Tag
c                   Eval      v2LastRno = D2Rno
c*
c                   Endsr


The above code ain't guarnteed but it is from a working program and I tested 
the situation where total records read = SFLPAGE.  There is a SETLL that's 
not shown in another Subroutine that's called when the Selection Criteria 
changes.

HTH

Mike

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today - it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/