Re: validate & update of subfile

I agree with Kerry
We went nuts with this situation.
Debug showed that the values did in fact change, but when it came to the
EXFMT, absolutely NOTHING changed.
We started to believe in Gremlins and Hobgoblins, until we came across what
Kerry described.
However, instead of doing what Kerry described, we removed ALL references
of SFLMSG and ERRMSG and used a message subfile instead.
It takes a while to do this, but it has definitely paid off in the long run



Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/30/2009 08:43:27 AM:

If you debug into the program, does the variable in your control record
change, but old value rather than the new value display?
If so, your problem is the SFLMSG. SFLMSG and ERRMSG do not refresh the
VARIABLE VALUES on the screen - just the MESSAGE displayed on the screen.
I'm sure there is a more elegant solution to this, but I don't remember
what it is. Try Writing the Control record before doing the EXFMT. I
believe that will refresh the variables in the Control record. Don't
change the indicator values between the WRITE and the EXFMT. Your code
will look like this:
WRITE control;
EXFMT control;

I believe what I want to do is not possible however I am wrong so often
I decided to ask here.

I have a subfile with two editable columns.
I wish to validate that each code in column I is valid.
I wish to total the numeric values in column II and display the total of

column II in a field on the Control Record

If the user keys an invalid code in column I _and_ changes values in
column II I would like to issue a SFLMSG, highlight the erroneous field,

_and_ change the column II total on the Control Record.

Reasonably possible?

Mr. Kerry Lockwood
Celadon Trucking, Inc.
9503 E. 33rd Street
Indianapolis, IN 46235
(317) 972-7000 ext. 2147
--
This is the RPG programming on the IBM i / System i (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.