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