Create cursor foo1 (f1 T, rn I)
create cursor foo2 (f2 n(20,2), rn I)

....populate data

REPLACE ALL rn WITH RECNO() IN foo1
REPLACE ALL rn WITH RECNO() IN foo2

select f1,f2 from foo1,foo2 where foo1.rn = foo2.rn into cursor foo

>Create cursor foo1 (f1 T)
>create cursor foo2 (f2 n(20,2))
>
>....populate data
>
>select f1,f2 from foo1,foo2 where foo1.recno() = foo2.recno() into cursor foo
>
>