Have you tried removing the PUTOVR keyword? You already use the OVERLAY
keyword.

If you want to use PUTOVR you also need OVRDTA. With these keywords you
do not need the OVERLAY keyword.

Gary Monnier

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
daparnin@xxxxxxxxxxxxxx
Sent: Friday, May 20, 2011 11:13 AM
To: Midrange Systems Technical Discussion
Subject: RE: DDS field that refuses to update no matter what

This is the record. The field is XWORKC.


A R PROMPTR TEXT('Change Screen')
A*%%TS DD 20110520 132007 daparnin REL-V5.0.1 WDSc
A SETOF(97)
A BLINK
A OVERLAY
A PUTOVR
A CF03
A CF06
A CF12
A CF08
A CF04
A*
A 1 2'WKFPR100'
A COLOR(BLU)
A 1 73DATE
A EDTCDE(Y)
A 2 2SYSNAME
A 2 20'Nisco Budgeting Workcenter
Percent-
A Change'
A COLOR(BLU)
A 2 73TIME
A XFAC 2 B 6 43TEXT('Facility')
A 8 30'Workcenter:'
A DSPATR(HI)
A XWORKC 6Y 0B 8 43TEXT('Workcenter')
A EDTCDE(3)
A 8 51'*'
A XMSG 78 O 24 2COLOR(WHT)
A DSPATR(HI)
A 23 23'F8=Where Used'
A COLOR(BLU)
A*
A CONAME R O 1 21REFFLD(FLDREFFLE/CONAME)
A DSPATR(HI)
A COLOR(WHT)
A 10 32'% Change:'
A DSPATR(HI)
A 10 51'(xxx.xx %)'
A XPCTCHG 5Y 2B 10 43TEXT('Percentage Change')
A EDTCDE(3)
A 11 51'(1.10 = +10%)'
A 12 51'(0.90 = -10%)'
A 18 27'(Affects BD Routings
Only!)'
A DSPATR(HI)
A 14 34'Method:'
A DSPATR(HI)
A XMETHOD 2 O 14 43TEXT('Method Code')
A 23 3'F3=Exit'
A COLOR(BLU)
A 23 38'F12=Cancel'
A COLOR(BLU)
A 23 12'F4=Prompt'
A COLOR(BLU)
A 6 32'Facility:'
A DSPATR(HI)
A 23 50'F18=Update'
A COLOR(BLU)

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-2019 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].