RE: Subfile Reposition with scrolling

Just a thought...

/free

  ClearSFL();
  Dou %EOF;
    Read customer;
     If %EOF;
       Leave;
     EndIf;
     //  inrecrement RRN & write SFL record
     If CustName=PositionToName;
       SFLRCDNBR=RRN;
     EndIf; 
  EndDo;
/end-free

Of course this is assuming you are using a "load-all" subfile.


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Thompson, Elonna
Sent: Friday, September 30, 2005 7:54 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Subfile Reposition with scrolling

I have searched the forums for help on this and can not find any threads
that contain the info that I need. Any help/suggestions is much
appreciated.

 

I am displaying a subfile with a list of customer names which can be
very long. I need a "position-to" field where a user can type in a name
and have the subfile reposition itself to display that name or the most
similar one. 

 

I have this working currently by using SETLL on the customer file and
rebuilding the subfile. However, this is not quite the functionality I
need since I am only then reloading some of the records. I actually need
to be able to just move forward or back to the name from within my
original subfile so the user can continue to scroll up or down from
their position to point.

 

The way I currently have it coded, it of course only allows the user to
scroll forward to the end since I am rebuilding the subfile with only
partial data.

 

I know there must be a way, maybe using SFLRCDNBR (?), to just
reposition the display of my original whole subfile so the user can
still scroll back and forth. I just can't seem to figure it out. 

 

Again, any suggestions are appreciated.

 

Thank you.

Elonna

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