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

I think it was V1R3.   But like ILE and modular programing it was slow
in adoption. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lapeyre, Francis
Sent: Friday, March 03, 2006 9:00 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: 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.
--
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.
Note: This message, including attachments, is from H&R Block Financial Advisors,
Inc., Member NYSE, SIPC. This is not a solicitation of any order to buy or 
sell. The
information contained herein is deemed to be reliable but is in no way 
warranted by us as
to accuracy or completeness. Messages are monitored and retained by the 
Company, but
the company cannot guarantee the security of this message. The company, and its
associates, may not accept orders to affect purchase or sale transactions, 
accept funds,
securities, or similar instructions via email. If you are not the intended 
recipient of this
message promptly delete this message and notify the sender of the delivery 
error by
return email or calling 1.800.HRBLOCK and selecting the option for 'Financial 
Services'
You may not forward, print, copy, distribute, or use the information in this 
message if
you are not the intended recipient.