With PUTOVR keyword, your fields won't get updated unless you have the OVRDTA attribute on your fields...


On 5/20/2011 1:13 PM, daparnin@xxxxxxxxxxxxxx wrote:
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 ...

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