...
oXMLAdapter.AddTableSchema(ALLTRIM(tablenames.rec_type))
...
>>LOCAL oXMLAdapter as XMLAdapter >oXMLAdapter = NEWOBJECT('XMLAdapter') >oXMLAdapter.RespectNesting = .T. >oXMLAdapter.XMLSchemaLocation = "" > >*Add all the tables to the XMLAdapter object >rec_type_counter = 1 >SELECT tablenames >SCAN > command = "oXMLAdapter.AddTableSchema('"+tablenames.rec_type+"')" > &command > lc_count = oXMLAdapter.Tables.Item(rec_type_counter).Fields.count > FOR i=1 TO lc_count > oXMLAdapter.Tables.Item(rec_type_counter).Fields.item(i).isnull = .T. > ENDFOR > rec_type_counter = rec_type_counter + 1 >ENDSCAN > >oXMLadapter.TOXML(lc_outfile_name,,.t.)