lnNeededCols = 20 dimension myArray[lnNeededCols+3,4] myArray[1,1] = 'FieldA' myArray[1,2] = 'C' myArray[1,3] = 10 myArray[1,4] = 0 myArray[2,1] = 'FieldB' myArray[2,2] = 'D' myArray[2,3] = 8 myArray[2,4] = 0 myArray[3,1] = 'FieldC' myArray[3,2] = 'L' myArray[3,3] = 1 myArray[3,4] = 0 for ix = 4 to lnNeededCols+3 myArray[ix,1] = 'Field'+padl(ix,2,'0') myArray[ix,2] = 'I' myArray[ix,3] = 4 myArray[ix,4] = 0 endfor create cursor myCursor from array myArray-Get SQL generated cursor's structure into array and create from array
select .... from ... into cursor myCursor afields(aStruc) create my2ndCursor from array aStrucCetin