create cursor crsr1(id i) >for i=1 to 10 >insert into crsr1value(i) >endfor>Now, I have another cursor with three columns
create cursor crsr2(a c(1),b c(1),c c(1))>
Local Array aTrans[1] Local ix Select Padl(Id,2,'0') From crsr1 Into Array aTrans Dimension aTrans[Ceiling(Alen(aTrans)/3),3] For ix=_Tally+1 To Alen(aTrans) aTrans[m.ix]='' EndFor Insert into crsr2 from Array aTransPS: Depending on version arrays have a limti of 65000 elements. Over 65000 rows case is not handled here.