upbrowse.p
| 1 |
def query q for test scrolling. |
|---|---|
| 2 |
|
| 3 |
create test. |
| 4 |
|
| 5 |
def browse b query q no-lock |
| 6 |
display test.num test.num1 |
| 7 |
enable test.num help "explicit help" /*validate (test.num < 0, "num must be negative")*/ test.num1 |
| 8 |
with 15 down separators no-validate. |
| 9 |
|
| 10 |
def frame f4 b |
| 11 |
with no-help. |
| 12 |
|
| 13 |
open query q for each test. |
| 14 |
enable all with frame f4 no-validate no-help /*no-auto-validate*/. |
| 15 |
|
| 16 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 17 |
|