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

Nope..

     A          R CTLLCD                    SFLCTL(DTALCD)         
     A*%%TS  SD  19920731  125055  QSECOFR     REL-V2R1M1  5738-PW1
     A                                      SFLSIZ(0008)           
     A                                      SFLPAG(0007)           

This was before my time, and I never worked on a system earlier than V2R2,
so, to be fair, maybe the original programmer (long since gone - I think she
was a consultant) could not have SFLEND(*MORE).

Anybody know when that was introduced to DDS?

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Frank.Kolmann@xxxxxxxxxx
Sent: Thursday, March 2, 2006 3: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)
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.