PROCEDURE Main()
   LOCAL aStruct, sx, sy, sz

   FErase("p.dbf")
   aStruct := { {"X","N",6,0}, {"Y","N",6,0}, {"Z","N",6,0} }
   dbCreate("p.dbf", aStruct)
   USE p.dbf NEW EXCLUSIVE ALIAS p
   dbAppend(); FieldPut(1, 1); FieldPut(2, 10); FieldPut(3, 100)
   dbAppend(); FieldPut(1, 2); FieldPut(2, 20); FieldPut(3, 200)
   dbAppend(); FieldPut(1, 3); FieldPut(2, 30); FieldPut(3, 300)
   dbCommit()

   /* Multi-pair SUM */
   dbGoTop()
   SUM p->x, p->y, p->z TO sx, sy, sz
   ? "sx=", sx, "(expect 6)"
   ? "sy=", sy, "(expect 60)"
   ? "sz=", sz, "(expect 600)"

   dbCloseArea()
   FErase("p.dbf")
   ? "DONE"
   RETURN