SFL with > 9999 records. was(RE: worst RPG ever seen?)

Are you sure this is not a SFLSIZ=SFLPAG.  I need to do stuff like that 
for a page at a time sfl.
If someone has a better technique I am interested. Sometimes I have to fix 
programs that load ALL their records into a sfl, and problems happen when 
more than 10000 rcds are loaded, so I modify the program to load a db file 
into qtemp and then do a page at a time sfl and  use this sort or 
technique to show more/end. 
Frank Kolmann

=================================================================
from: "Lapeyre, Francis" <FLAPEYRE@xxxxxxxx>
Got another one.

      *  Turn on Nondisplay indicator for lcdopt and lcdcod 
      *  move "More..." into lcddec 
     C                     SELEC 
     C           LINE      WHEQ 1 
     C                     MOVE *OFF      *IN75 
     C                     Z-ADDRRNLCD    CURSR 
     C           LINE      WHEQ 7 
     C                     MOVE *ON       *IN75 
     C                     CLEARLCDDSC 
     C           LCDCOD    SETGTLCD                  40 
     C           *IN40     IFEQ *OFF 
     C                     MOVE 'More...' LCDDSC 
     C                     ELSE 
     C                     MOVE 'Bottom ' LCDDSC 
     C                     ENDIF 
     C                     ENDSL 
     C                     WRITEDTALCD 

SFLEND(*MORE) apparently was an alien concept. (*IN75 turns on DSPATRR(HI)
for LCDOPT and makes the option field a nondisplay field)