query-entry.p
| 1 |
def temp-table tt field f1 as integer |
|---|---|
| 2 |
field f2 as integer. |
| 3 |
|
| 4 |
def var i as integer. |
| 5 |
repeat i = 1 to 10: |
| 6 |
create tt. tt.f1 = i. |
| 7 |
end. |
| 8 |
|
| 9 |
repeat i = 20 to 30: |
| 10 |
create tt. tt.f1 = i. |
| 11 |
end. |
| 12 |
|
| 13 |
|
| 14 |
def query q for tt scrolling. |
| 15 |
open query q for each tt. |
| 16 |
|
| 17 |
def var h as handle. |
| 18 |
h = query q:handle. |
| 19 |
|
| 20 |
h:get-first(). |
| 21 |
h:get-next(). |
| 22 |
h:get-next(). |
| 23 |
h:get-next(). |
| 24 |
|
| 25 |
create tt. tt.f1 = 15. |
| 26 |
h:create-result-list-entry(). |
| 27 |
find first tt. |
| 28 |
|
| 29 |
h:get-next(). |
| 30 |
if not avail(tt) then message "after: N/A". |
| 31 |
else message "after: " tt.f1. |
| 32 |
|
| 33 |
def var res as logical. |
| 34 |
res = h:get-first(). |
| 35 |
repeat while res: |
| 36 |
if not avail(tt) then message "N/A". |
| 37 |
else message tt.f1. |
| 38 |
res = h:get-next(). |
| 39 |
end. |