News array column on the right

[WyoDave]

Is there a better way of adding a column on the right side of an array than this?

PUBLIC ARRAY gaDave(2,2)
nRows = 2
nCols = 3

DIMENSION gaDave(nRows * nCols)

nElements = ALEN(gaDave)
FOR nCnt = 1 TO nElements
	IF MOD(nCnt, nCols) = 0 AND nCnt < nElements
		=AINS(gaDave, nCnt)
	ENDIF
ENDFOR

DIMENSION gaDave(nRows, nCols)

 

[Olaf Doschke]

Perhaps this way? Create cursor, Append from array, Alter table cursoalias, Select into array?

Bye, Olaf.