Kbase 6074: Sample program: Editing block prevents field overwrite
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
Sample program: Editing block prevents field overwrite
920217-elp05
Subject: Not automatically clearing fields when updating
This program will prevent field values from being overwritten.
def var x as char init "test1".
def var y as char init "test2".
repeat:
update x y
editing:
message lastkey.
if can-do("return,tab,back-tab",keyfunction(lastkey))
or lastkey = -1 then do:
apply keycode("cursor-right").
apply keycode("cursor-left").
end.
readkey.
apply lastkey.
end. /* end of editing block */
end.
Progress Software Technical Support Note # 6074