RE: Subfile problem

I think there is progress now w/ the *on / *off switch. At least its not
showing *MORE on the 2 lines example but bottom. So I am on my way,
Thanks,
Phil

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Friday, September 29, 2006 3:37 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Subfile problem

God you can tell its Friday afternoon.
What I usually do for screens is the following

for the Workstation, I define as follows
FSlstopsllrcf   e             workstn indds(ScreenInd)

Where the indicators used in the DDS are defined in Screenind as shown
D ScreenInd       ds
D  Divsflinit                 41     41
D  DivsflMore                 42     42n
D  Crsrposn                   43     43
D  Redisplaymsgs              58     58n
D  Sfl1More                   69     69n
D  ClrSfl1                    70     70n
and I check to display Bottom on the subfile in the following manner

C                   eval      Sfl1More = %eof(filename)

where filename is the file that you are reading to the end



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/29/2006 02:58:59 PM:

Hi, I have a small problem w/ the code.
The indicator for *more records in the subfile seems to be always on.
A  90                                  SFLEND(*MORE)

I turn 90 in the program if there is more than a page of records to
still display. On a debug, w/ a page of only 2 lines, the ind. Was

*OFF

but *MORE still showed, on the first pass.

 Even when there are only 2 records, *more is showing!

Thanks,
Phil


This message contains information proprietary to our company. It is
intended to be read only by the individual or entity named above or
their designee.
Any distribution of this message or the information contained herein
without written permission from our company is strictly prohibited.
If the reader of this message is not the intended recipient or an
agent responsible for delivering it to the intended recipient, you
are hereby notified that you have received this document in error
and that any review, dissemination, distribution, or copying of this
message is strictly prohibited. If you have received this
communication in error, please notify us immediately by e-mail, and
delete the original message.



--
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.