× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.