implicit-input.p
| 1 |
|
|---|---|
| 2 |
def var i as INT FORMAT ">>>>". |
| 3 |
def var j as INT FORMAT ">>>>". |
| 4 |
def var k as INT FORMAT ">>>>" EXTENT 3. |
| 5 |
|
| 6 |
def temp-table tt |
| 7 |
field f1 as integer |
| 8 |
field f2 as integer |
| 9 |
field f3 as integer extent 3. |
| 10 |
|
| 11 |
create tt. |
| 12 |
|
| 13 |
|
| 14 |
UPDATE i validate (length(i) > 2 + i + j, left-trim(i) + "aa" ) with frame fr1. |
| 15 |
UPDATE f1 validate (length(f1) > 2 + f1 + j, left-trim(f1) + "aa" ) with frame fr2. |
| 16 |
|
| 17 |
UPDATE k[3] validate (length(k[3]) > 2 + k[3] + j, left-trim(k[3]) + "aa") with frame fr3. |
| 18 |
UPDATE f3[3] validate (length(f3[3]) > 2 + f3[3] + j, left-trim(f3[3]) + "aa") with frame fr4. |
| 19 |
|
| 20 |
UPDATE k validate (length(k) > 2 + k + j, left-trim(k) + "aa") with frame fr5. |
| 21 |
UPDATE f3 validate (length(f3) > 2 + f3 + j, left-trim(f3) + "aa") with frame fr6. |
| 22 |
|
| 23 |
update i validate (i:screen-value <> "", "aa") with frame fr7. /* attribute case */ |
| 24 |
update i validate (string(i) <> "", "aa") with frame fr8. /* STRING function case */ |
| 25 |
update i validate (i <> 1, input i) with frame fr9. /* INPUT value as message case */ |