RE: Subfile Reposition with scrolling

As long as I'm not called late for supper I'm good ;-) 


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 3:26 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Reposition with scrolling

Thanks Tommy, sorry for calling you Tony earlier, don't know where I
came up with that one.

I set the field to OVRDTA and was able to clear it on redisplay.  Been
awhile since I worked with subfiles, just seem to be having a "forgot
everything I ever knew" day.

Thanks again.

Elonna

-----Original Message-----
From: rpg400-l-bounces+ethompson=wildflavors.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+ethompson=wildflavors.com@xxxxxxxxxxxx] On
Behalf Of Holden Tommy
Sent: Friday, September 30, 2005 3:44 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Reposition with scrolling

After you capture the RRN to display & leave the load loop...

Eval positionto=*blanks

Seton SFL indicators;
Exfmt SFLCTL
Setoff indicators; 


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 2:34 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Reposition with scrolling

Thanks Paul and Tony.

I actually got it to work almost correctly.  

Loaded subfile, then if position-to field was not blank, chained back
through subfile until I found the first name record >= to my position-to
field.  I set my SFLRCDNBR to the found RRN and updated the subfile.
The problem I was having is that I forgot to initialize my SFLRCDNBR
field to 1 so kept getting a session/device error when it tried to load
the first display of the subfile.  

The problem I am having now is that when I redisplay the subfile at the
new point, my position-to field is not blank.  I can't seem to get it to
clear as it is part of my SFLCTL (subfile header) record.

Thanks again for your input.

Elonna



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Morgan
Sent: Friday, September 30, 2005 3:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Subfile Reposition with scrolling

Elonna,

Subfiles aren't keyed so you can't position the subfile based on a name.
However, you could create a shadow work file with Name, RRN.  This work
file is created as you load your subfile.  When the user wants to
position by name you SETLL into your shadow work file to retrieve the
RRN and display the subfile using that RRN in the SFLRCDNBR field.

This assumes you're loading all your customers in the subfile. If you're
doing 'page at a time' loading then you'll have to do some complicated
processing if they select a name not already in the subfile.  You'd have
to load the subfile & work file up to the page containing that name.

Paul

--
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

Elonna wrote

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



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