Below is sample PeopleCode to export a Record View –
PS_BCP1 to a xml file. Highlighted is
the Target XML file name and Source table name.
Local XmlDoc &inXMLDoc;
Local XmlNode &rootNode,
&childNode1, &childNode2, &textNode2;
Local string &xmlStr;
Local File &xmlFile;
Local number &i;
&xmlFile = GetFile("c:\temp\export_sample1.xml",
"W", %FilePath_Absolute);
&inXMLDoc =
CreateXmlDoc("");
&rootNode =
&inXMLDoc.CreateDocumentElement("root");
Local Record &rec =
CreateRecord(Record.BCP1);
Local SQL &sql =
CreateSQL("SELECT *
FROM PS_BCP1");
While &sql.Fetch(&rec)
&childNode1 =
&rootNode.AddElement(Lower(&rec.Name));
For &i = 1 To
&rec.FieldCount
&childNode2 =
&childNode1.AddElement(Lower(&rec.GetField(&i).Name));
&textNode2 = &childNode2.AddText(&rec.GetField(&i).Value);
End-For;
End-While;
&xmlStr =
&inXMLDoc.GenFormattedXmlString();
&xmlFile.WriteLine(&xmlStr);
&xmlFile.Close();