Clear Close Tables all USE c:\wintemp\zip IN 0 SHARED Select zip Set Multilocks on ? CursorSetProp('buffering',5) ? CursorSetProp("KeyFieldList","iid") CursorToXML("zip", "c:\wintemp\zip.xml", 1, 512, 0, "zip.xsd") Replace all state with "zz" for Recno() <= 15 cOutGram = XMLUpdategram("zip",2+4+8+32) StrToFile(cOutGram,"c:\wintemp\zipgram.xml",0) ? Chr(13) + Chr(10) ? XMLToCursor("c:\wintemp\zipgram.xml","incursor",4)Thx.