Re: %EOF on subfile WRITE

[Booth Martin <booth@xxxxxxxxxxxx>]

(Added editorial comment that I can not keep from adding.  Sorry but 
sometimes I obey the voices in my head.)

For a load-all subfile:
   C     NBRRECS = RRN

   A                       SFLSIZ(&NBRRECS)
   A    91                 SFLEND(*SCRBAR)
   A     NBRRECS   5S 0P

This eliminates the problem with record 17 but more importantly this 
allows the scrollbar cursor to correctly size itself and place itself in 
5250.


On 8/31/2011 7:15 AM, Joe Pluta wrote:
> This is a new one to me, so I thought I'd share.  Sometimes I do a full
> subfile load, and usually I condition the loop on EOF on the file being
> read.  Not to go into a ton of detail, but this time I conditioned on
> generic %EOF and I was surprised to find my loop ending after filling
> one page and one record of my subfile.
>
> Well, here's what happened:  My subfile was defined with SFLPAG of 16
> and SFLSIZ of 17 (the traditional method of defining an expanding
> subfile).  Unbeknownst to me, writing record 17 to that subfile turns on
> the EOF setting, which is returned by the generic %EOF BIF!
>
> So I changed my loop to end when RRN = 9999 and the problem went away.
> But it was interesting enough that I thought I'd share.
>
> Joe