doc -cw data;
iRow = 1; //The ith row of the new worksheet
loop(i,1,count)
{
   win -a data$(i); // activate next wks
   nCol = wks.nCols; 
   loop(jj,1,nCol)
   {		
     %(newdata,$(jj),$(iRow)) = %(%H,$(jj),1); //copy the 1st row to the newdata wks
   }
  iRow = iRow + 1; //The next row of the newdata worksheet.

}