Re: updating windowed subfile

Actually after the F4 is processed I am doing a READC on SUBFILE A.
Which should be writing that data to the subfile.


On Wed, 11 Jan 2006 14:23:58 -0600, Booth Martin wrote
> ah.  been there.  I suspect that you are loosing the entered data 
> because it was never received by your program?  You processed F4 
> without first reading the subfileA's fields and saving/writing the data.
> 
> Douglas W. Palme wrote:
> > 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.
> >
> 
> -- 
> -----------------------------------
> Booth Martin
> http://martinvt.com
> -----------------------------------
> -- 
> 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.