Tracy, you can use this:
PUBLIC myarray
dimension myarray(8,30)
FOR k=1 TO ALEN(myarray,1)
FOR j=1 TO ALEN(myarray,2)
myarray[k,j]="Driver"+TRANSFORM(k)+" Violation"+TRANS(j)
NEXT
NEXT
A_AddColumns(@m.myarray,10,"")
LIST MEMORY LIKE "myarray"
PROCEDURE A_AddColumns(aArray,columnsToAdd,fillValue)
PRIVATE old_ColumnCount , iRow, aBlank
old_ColumnCount = ALEN(aArray,2)
DIMENSION aArray(ALEN(aArray,1),m.old_ColumnCount+m.columnsToAdd),aBlank(m.columnsToAdd)
aBlank = m.fillValue
=ACOPY(aBlank,aArray,1,-1, 1 + ALEN(aArray) - m.columnsToAdd)
FOR iRow=ALEN(aArray,1)-1 TO 1 STEP -1
=ACOPY(aArray,aArray,1 + m.iRow * m.old_ColumnCount ,m.old_ColumnCount,1 + m.iRow * ALEN(aArray,2));
,ACOPY(aBlank,aArray,1,-1,1 + m.iRow * ALEN(aArray,2) - m.columnsToAdd)
NEXT
ENDPROC
