update.p
| 1 |
|
|---|---|
| 2 |
create test. |
| 3 |
update test.num with frame f1. |
| 4 |
message test.num. |
| 5 |
|
| 6 |
update test.num with frame f2 no-validate no-help. |
| 7 |
message test.num. |
| 8 |
|
| 9 |
for each test: |
| 10 |
display test.num |
| 11 |
with frame f3. |
| 12 |
|
| 13 |
choose field test.num |
| 14 |
with frame f3 no-help. |
| 15 |
end. |
| 16 |
|
| 17 |
def query q for test scrolling. |
| 18 |
|
| 19 |
def browse b query q no-lock display test.num enable all |
| 20 |
with 15 down /*no-assign*/ separators. |
| 21 |
|
| 22 |
def frame f4 b with no-help no-validate. |
| 23 |
|
| 24 |
open query q for each test. |
| 25 |
enable all with frame f4. |
| 26 |
|
| 27 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 28 |
|