FWD » Core Development » Database

def temp-table tt field f1 as integer field f11 as char index idx1 f1.
define query q for tt.

def var i as int no-undo.

do transaction:
    create tt. tt.f1 = 1. tt.f11 = "a".
    create tt. tt.f1 = 2. tt.f11 = "b".
    create tt. tt.f1 = 3. tt.f11 = "c".
end.

open query q for each tt.
do i = 1 to 2 on stop undo, leave:
    message "Try" i.
    get last q.
    message tt.f1 query-off-end("q"). // 3
    get prev q.
    message tt.f1 query-off-end("q"). // 2
    get prev q.
    message tt.f1 query-off-end("q"). // 1
    get prev q.
    if avail(tt) then message tt.f1 query-off-end("q"). else message "??" query-off-end("q"). // ?? yes
    get prev q.
    if avail(tt) then message tt.f1 query-off-end("q"). else message "??" query-off-end("q"). // ?? yes
    get next q.
    message tt.f1 query-off-end("q"). // 1 no
end.
message available(tt).
message query-off-end("q").

The output in 4GL:

Try 1
3 no
2 no
1 no
?? yes
?? yes
1 no
Try 2
3 no
2 no
1 no
?? yes
?? yes
1 no

The output in FWD:

Try 1
3 no
2 no
1 no
?? yes
?? yes
1 no
Try 2
3 no
** No tt record is available. (91)
? yes
** No tt record is available. (91)
? yes
?? yes
?? yes
** No tt record is available. (91)
? yes
no

TL;DR: I do the same scenario two times. The second time, when doing get prev q, the record is not found. In FWD-H2, I reached LazyResult.hasPrevious, where beforeLast is true. Radu, I don't quite get beforeLast; should it have been beforeFirst? If that is the case, note that beforeLast can be reset back to false if we ever do next. This is my example, going before the first record, going to the last record and doing a prev.

This was merged to FWD-H2 trunk as rev. 28 and reached trunk as fwd-h2-1.31-trunk.

This can be closed.