update3.p
| 1 |
|
|---|---|
| 2 |
def var fi as int no-undo view-as fill-in. |
| 3 |
|
| 4 |
update fi validate(fi > 0, "please enter a positive number") with frame f1 no-auto-validate. |
| 5 |
message fi:validate(). |
| 6 |
|
| 7 |
update fi validate(fi < 0, "please enter a negative number") with frame f2 no-auto-validate. |
| 8 |
message fi:validate(). |
| 9 |
|
| 10 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 11 |
|