For Each
&XMLWriter.Open('MEETING.xml')
&XMLWriter.WriteStartDocument()
&XMLWriter.WriteStartElement('MEETING')
&XMLWriter.WriteAttribute('Date', DToC(ReuFch))
&XMLWriter.WriteElement('DATE', DToC(ReuFch))
&XMLWriter.WriteComment('Meeting Description')
&XMLWriter.WriteCData(ReuDsc)
&XMLWriter.WriteStartElement('メンバー')
For Each
&XMLWriter.WriteElement('MEMBER',ReuPerNom)
Endfor
&XMLWriter.WriteEndElement()
&XMLWriter.WriteStartElement('TASKS')
For Each
&XMLWriter.WriteStartElement('TASK')
&XMLWriter.WriteElement('PERSON_IN_CHARGE',ReuTarPerNom)
&XMLWriter.WriteCData(ReuTarDsc)
&XMLWriter.WriteEndElement()
EndFor
&XMLWriter.WriteEndElement()
&XMLWriter.WriteEndElement()
&XMLWriter.Close()
Endfor