Try the following:

local i
select *, inc(@i) as rec_no from tmp1 where optimizedcondition;
order by sortname into cursor tmp
index on rec_no tag rec_no
seek 50000

where:

function inc
lparam x
x = x + 1
return x

Vlad