× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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)

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.