>
>Final result of that development is published here ( See FAQ#29297 ) and I hope you will enjoy it for your favourite 'datamunging'.
>It is very simple and it works just fine.
>
>No matter how badly it was done, even if just one person find it usefull and make some solution out of it, it was worthed bothering to respond at first place.
>
>Have great & productive day.
>( & Don't bother responding )

Hi Srdjan,
About your FAQ entry. I didn't check it extensively but still sounded you're doing it longer than what it might be, hope this contributes for some improvement (up to 65000 records):

select * from customer into cursor crsCustomer
oCustomer = Cursor2Obj('crsCustomer')
? oCustomer.aRecords[5].Company

Procedure Cursor2Obj(m.tcAlias)
select (m.tcAlias)
oCarrier = createobject('custom')
oCarrier.Addproperty('nRecords',reccount())
if oCarrier.nRecords > 0
 oCarrier.Addproperty('aRecords['+trans(reccount())+']')
 scan
   scatter name oCarrier.aRecords[recno()] memo
 endscan
endif
return oCarrier

I didn't include structure inclusion, error checking, restoring alias etc but I think this is more feasible (with multiple tables my real world production timings are under a second - never timed really, because the response was instant).
Cetin