create cursor crsr1(id i) for i=1 to 10 insert into crsr1 value(i) endfor create cursor crsr2(a c(1),b c(1),c c(1)) SELECT crsr1 lnTest = 0 lcInsert = "INSERT INTO Crsr2 VALUES (m.Val1, m.Val2, m.Val3)" SCAN lnTest = lnTest + 1 m.TestV = "m.Val" + TRANSFORM(lnTest) &TestV = TRANSFORM(Id) IF lnTest == 3 &lcInsert lnTest = 0 ENDIF ENDSCAN SELECT Crsr2 BROW