Re: updating windowed subfile

Same result.....

I will post a part of the code and see if anyone can figure it out, I am 
down to the end on having any idea....although I am sure it is something 
stupid on my part.

On Wed, 11 Jan 2006 14:52:37 -0600, Booth Martin wrote
> Try doing a write of the control record before you process the F4 key.
> 
> Douglas W. Palme wrote:
> > 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.
> >
> 
> -- 
> -----------------------------------
> 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.