Row2Col II

function Row2Col(doc)

  *// swap x & y axis
  max    = dcount(doc,@am)
  newDoc = raise(doc<1>)
  for i = 2 to max
     newDoc = splice(newDoc,char(222),raise(doc))
  next i
  doc = convert(char(222),@vm,newDoc)

return(doc) end