Append(arMain,arItems) New IdxItems Set IdxItems="" For Set IdxItems = $O(arItems(IdxItems)) Quit:IdxItems="" Do . Set NewIdx = $O(arMain(""),-1)+1 . Set arMain=NewIdx . Set arMain(NewIdx)=arItems(IdxItems) Quit