Re: updating windowed subfile

Aha.
Brain is foggy, but I recall doing something similar to that.  Because you 
are pressing F4, you have to capture the RRN using the cursor row/position 
of when you press F4...
Man I wish I could recall the whole thing, but if you dont do that, then 
you won't know what record to update when you come back from subfile B. 
Basically, on F4, get the RRN, on return, chain out to the subfile using 
RRN and load it with the values from Subfile B.  If it weren't quitting 
time I'd look for that code, but perhaps this will jog someone's memory as 
to what I'm talking about.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/01/11 04:28 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: updating windowed subfile






Ron,
Here is what I am doing:

I load a blank record into subfile A and display it. The user can enter in 

some data and then select F4 (which is coded CF04) which if they select F4 

it will load subfile B with a list of accounts, the user selects one and 
hits enter, the program does a READC on subfile B to find any selections, 
moves that to the appropriate field in Subfile A and updates subfile A.

Similar to what you suggested, but if say I enter the date into the DDATE 
field, and then select F4 make my account selection and hit enter which 
should get rid of subfile B and update A with the account 
selection....that 
part works except for the date is gone......



On Wed, 11 Jan 2006 16:12:09 -0330, RPower wrote
> You should be able to do the following (pseudo code)
> 
> Load subfilea
> display subfilea
> readc subfilea
> load subfileb
> display subfileb
> readc subfileb
> return those values to subfilea
> update subfilea
> 
> That should work with no issues....
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
> 
___________________________________________________________________________
> Success is going from failure to failure without a loss of 
> enthusiasm. - Sir Winston Churchill
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/11 03:58 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: updating windowed subfile
> 
> Thanks Richard I at least now have that working although I have 
> noticed that any data entered into the subfile A is lost upon the 
> return from subfile B, with the exception of the data being passed 
> from subfile B back to subfile
> 
> A......is there a way to avoid this?
> 
> On Wed, 11 Jan 2006 18:19:51 +0100, Richard ECUYER wrote
> > Beofre the update of the subfile, be sure to make a read (readc or 
> > chain or read)
> > ----- Original Message ----- 
> > From: "Douglas W. Palme" <dpalme@xxxxxxxxxxx>
> > To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> > Sent: Wednesday, January 11, 2006 6:12 PM
> > Subject: RE: updating windowed subfile
> > 
> > > I tried that but it was generating an error, I will try it again and 

> if I
> > > get another error I will post that in reply.
> > >
> > >
> > >
> > > On Wed, 11 Jan 2006 11:07:53 -0600, Holden Tommy wrote
> > > > Not sure I have this right...but I THINK you're saying this.
> > > >
> > > > Subfile A is an entry type subfile which calls Subfile B (window) 
& 
> when
> > > > returning from Subfile B update Subfile A record?
> > > >
> > > > If so then after you load the display field via eval or move you 
> will
> > > > have to issue an update to Subfile A in order to display the 
> returned
> > > > value.
> > > >
> > > > Thanks,
> > > > Tommy Holden
> > > >
> > > > -----Original Message-----
> > > > From: rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx
> > > > [mailto:rpg400-l-
> > > > bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx] On Behalf Of
> > > > Douglas W. Palme Sent: Wednesday, January 11, 2006 11:00 AM To: 
RPG
> > Group
> > > > Subject: updating windowed subfile
> > > >
> > > > I have been playing around with some windowed subfiles, more
> > > > specifically I
> > > > have a subfile entry screen which I have added a lookup window
> > > > (subfile) to, as far as populating the windowed list, everything 
is
> > > > working fine....however when a user makes a selection and I do a
> > > > READC on the subfile I do get the return value as I should....so 
far
> > > > so good...however I have been unable to either EVAL that value or
> > > > MOVE it to the original subfile and have it display....I have 
tried
> > > > write and update but those have not worked...
> > > >
> > > > Suggestions on how to update the entry subfile with the selection?
> > > >
> > > > -- 
> > > > 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.
> > >
> > >
> > > If you bought it, it was hauled by a truck - somewhere, sometime.
> > >
> > > -- 
> > > 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.
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.