>Check Re: How to generate XML with fieldnames in uppercase ? Message #885508.
>I think SP2 allows to change names in place.

Thanks Sergey! It works like a charm :o)

		FOR itables = 1 TO oxa.Tables.Count
			oxt = oxa.Tables.Item(itables)
			FOR ifields = 1 TO oxt.fields.Count
                                *--Unicode
				lcFieldName = STRCONV(oxt.Fields.Item(1).xmlname,10)
                                *--Convert the fieldname to upper case cannot update the prop yet
				lcFieldName = UPPER(lcFieldName)
				oxf = oxt.Fields.Item(1)
                                *--View the properties of the field
				?oxf.alias
				?oxf.codepage
				?oxf.datatype
				?oxf.disableEncode
				?oxf.fractiondigits
				?oxf.isattribute
				?oxf.isbase64
				?oxf.isbinary
				?oxf.isattribute
				?oxf.keyfield
				?oxf.maxlength
				?oxf.nocptrans
				?oxf.unicode
				?oxf.wrapincdata
				?oxf.xmlname
				?oxf.xmlnameisxpath
				?oxf.xmltable
				?oxf.xmltype
				?oxf.xsdfractiondigits
				?oxf.xsdmaxlength
				?oxf.xsdtotaldigits
				?oxf.xsdtype
                                *--Remove the field from the collection
				oxt.fields.remove(1)
                                *--Update the field name to uppercase
				oxf.xmlname = STRCONV(lcFieldname,5)
                                *--Add the field back into the collection
				oxa.Tables(itables).Fields.Add(oxf, oxf.xmlname)
			ENDFOR
		ENDFOR