>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
>