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.