Subfile not forwarding correctly

 HI I have a subfile that I can code as a page at a time. Previous
subfiles I did do work, but they are the 'load-all' type, and there is
that pause for each BLD.

What is happening is that I load a page, and the READ is fine, there is no
re-reading there, but the DISPLAY in the first case, it is not displaying
the 12 records just read. Later on, it seems to be displaying some of the
previous page records. SFLPAG is set to 12 in the D spec. I call this
subroutine once initially, and then every time on a ROLL key. Perhaps
someone can help me on this. I must be doing something stupid.

The code for the BLD is very straight forward:

C                   eval      rrn1 = lstrrn
C                   eval      *in90 = *off
 * Load the subfile with one page of data or until end-of-file
C                   do        sflpag
C                   read      reopclass
C                   if        *in90
C                   leave
C                   endif
C                   eval      rrn1 = rrn1 + 1
C                   eval      option = *blank
C                   write     sfl1
C                   enddo
 * If no records are loaded to subfile, don't display it

The ROLL KEY:

C                   when      (cfkey = rollup) and (not *in32)
C                   exsr      sflbld