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

You could load into a Dataque. I have some code that does that if you
want to  check it out.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Frank.Kolmann@xxxxxxxxxx
Sent: Thursday, March 02, 2006 4:49 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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)