OpenEdge Development: Working with XML - Product ...

Reading and Writing XML with the Document Object Model (DOM)
2–12
i-outcus.p (2 of 2)
/* Add the other fields as tags in the xml */
REPEAT ix = 1 TO hBuf:NUM-FIELDS:
hDBFld = hBuf:BUFFER-FIELD(ix).
IF hDBFld:NAME = "CustNum" OR hDBFld:NAME = "Name" THEN NEXT.
/* Create a tag with the field name */
hDoc:CREATE-NODE(hField, hDBFld:NAME, "ELEMENT").
/* Put the new field as next child of row */
hRow:APPEND-CHILD(hField).
/* Add a node to hold field value. The empty string (““) represents the
value that will be set later. */
hDoc:CREATE-NODE(hText, "", "TEXT").
/* Attach the text to the field */
hField:APPEND-CHILD(hText).
hText:NODE-VALUE = STRING(hDBFld:BUFFER-VALUE).
END.
END.
/* Write the XML node tree to an xml file */
hDoc:SAVE("file","cust.xml").
DELETE OBJECT hDoc.
DELETE OBJECT hRoot.
DELETE OBJECT hRow.
DELETE OBJECT hField.
DELETE OBJECT hText.
A partial output of the above program appears below:
USA
276 North Street
Boston
MA
02114
Gloria Shepley
(617) 450-0087
HXM
66700
42568
Net30
35
This customer is on credit hold.
Finland
Rattipolku 3
. . .
Note: The example above adds carriage returns and indentations for readability; the actual
file contains one long string.