Re: updating windowed subfile

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.