RE: overriding of fields

The CHANGE() keyword will tell the program if the field was touched...new
value, field exit to clear it, etc. Even if you type the same value that
was already there, CHANGE is tripped. You will need to add a hidden field
to the subfile record for comparison to the original value.

Add CHANGE(41) to the field in the DDS. Using 41 as an example. Any
indicator (01-99) works.
When the user types a value in the field and you read that subfile record,
indicator 41 will be turned on.

READC to get the next changed subfile record
If indicator 41 is on
Compare the screen field to the hidden field.
If they match, turn off the "white indicator"
If they do not match, turn on the "white indicator and
output the override message to screen.

SFLNXTCHG tags the record so it will be read by the READC opcode whether the
user touched that record or not. This won't help you because you have
already handled the field change with the above so no need to evaluate it a
second time.
I have never found a use for PUTOVER in my 30 years on the machine (not that
there isn't a use for it somewhere).



-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of jerry ven
Sent: Friday, May 20, 2022 11:49 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: overriding of fields

I mean when there is a subfile displayed on the screen with some field
heading let's say 'XYZ' and then we change any value of this field on the
screen either through entry or during maintenance then how can we return
warning message just for example 'Field override' and the field whose value
gets changed then after changing it's value whn we press enter on the screen
then it should be highlighted in white colour plus that warning at bottom of
that subfile page should be displayed.

Also if that specific field('XYZ') value is already zero , then even if we
override it with another zero value then no such warning or colour should be
highlighted for this zero value.


Thanks.

On Thu, 19 May 2022 at 22:34, jerry ven <jerryven95@xxxxxxxxx> wrote:

What about SFLNXTCHG or PUTOVER ?

Thanks

On Thu, 19 May 2022 at 22:16, x y <xy6581@xxxxxxxxx> wrote:

Either turn on CHANGE or MDT for each field you're watching.

On Thu, May 19, 2022 at 9:38 AM jerry ven <jerryven95@xxxxxxxxx> wrote:

Hi,

Suppose if there is a field which is equal to override and user

overrides

it in entry or maintenance then how to return warning message
indicating "Field Override"


Warn users if any field value ( above specific field value) is

overridden

but if that specific field value is zero, then no warning.



Thanks
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com