OpenEdge Development: Working with XML - Product ...

More documents

Recommendations

Info

Reading and Writing XML with the Document Object Model (DOM) 2–16 You can obtain a list of an element’s attribute names using the ATTRIBUTE-NAMES attribute, get the value of an attribute by using the GET-ATTRIBUTE( ) method or set the value of an attribute by using the SET-ATTRIBUTE( ) method. You can also REMOVE-ATTRIBUTE( ), as shown: . . . REPEAT i = 1 TO hNode1:NUM-CHILDREN: logvar = hNode1:GET-CHILD(hChNode, i). IF NOT logvar THEN LEAVE. entries = hNode1:ATTRIBUTE-NAMES. REPEAT j = 1 TO NUM-ENTRIES(entries): aname = ENTRY(j, entries). MESSAGE "attrname is " aname "value is " hNode1:GET-ATTRIBUTE(aname). END. END. . . . In addition to creating nodes, you can IMPORT-NODE( ), CLONE-NODE( ), and DELETE-NODE( ). In addition to appending and getting a child, you can REMOVE-CHILD( ), REPLACE-CHILD( ), and GET-PARENT( ). The following example demonstrates the CLONE-NODE( ) method: i-clone.p (1 of 2) /* i-clone.p */ DEFINE VARIABLE hXref AS HANDLE NO-UNDO. DEFINE VARIABLE hXref1 AS HANDLE NO-UNDO. DEFINE VARIABLE hText AS HANDLE NO-UNDO. DEFINE VARIABLE hText1 AS HANDLE NO-UNDO. DEFINE VARIABLE hClone AS HANDLE NO-UNDO. DEFINE VARIABLE hRoot AS HANDLE NO-UNDO. DEFINE VARIABLE hDoc AS HANDLE NO-UNDO. CREATE X-NODEREF hXref. CREATE X-NODEREF hXref1. CREATE X-NODEREF hText. CREATE X-NODEREF hText1. CREATE X-NODEREF hClone. CREATE X-NODEREF hRoot. CREATE X-DOCUMENT hDoc. hDoc:CREATE-NODE(hRoot,"root","ELEMENT"). hDoc:INSERT-BEFORE(hRoot,?). hDoc:CREATE-NODE(hXref,"customer","ELEMENT"). hDoc:CREATE-NODE(hXref1,"order","ELEMENT"). hDoc:CREATE-NODE(hText,?,"TEXT"). hDoc:CREATE-NODE(hText1,?,"TEXT"). /* Add the two element nodes to the root, each with a text*/ hXref:SET-ATTRIBUTE("id","54"). hXref:SET-ATTRIBUTE("name","Second Skin Scuba"). hRoot:APPEND-CHILD(hXref). hXref:APPEND-CHILD(hText). hXref1:SET-ATTRIBUTE("id","55"). hXref1:SET-ATTRIBUTE("name","Off the Wall"). hRoot:APPEND-CHILD(hXref1). hXref1:APPEND-CHILD(hText1). hText:NODE-VALUE = "hi from customer". hText1:NODE-VALUE = "hi from order".
Reading XML input into ABL i-clone.p (2 of 2) hXref1:CLONE-NODE(hClone,TRUE). hRoot:APPEND-CHILD(hClone). /* Save the file */ hDoc:SAVE("file","clone1.xml"). DELETE OBJECT hXref. DELETE OBJECT hXref1. DELETE OBJECT hText. DELETE OBJECT hText1. DELETE OBJECT hClone. DELETE OBJECT hRoot. DELETE OBJECT hDoc. There are more methods and attributes that apply to the X-document object and the X-noderef objects. For more information on these attributes and methods, see their entries in the OpenEdge Development: ABL Reference. Examples of reading an input XML file The i-attnam.p example shows reading in a file called “personal.xml”, processing through all the child nodes and displaying information if the node name is “person”. i-attnam.p /* i-attnam.p */ DEFINE VARIABLE hDoc AS HANDLE NO-UNDO. DEFINE VARIABLE hRoot AS HANDLE NO-UNDO. DEFINE VARIABLE lGood AS LOGICAL NO-UNDO. CREATE X-DOCUMENT hDoc. CREATE X-NODEREF hRoot. hDoc:LOAD("file", "personal.xml", TRUE). hDoc:GET-DOCUMENT-ELEMENT(hRoot). RUN getChildren(hRoot, 1). DELETE OBJECT hDoc. DELETE OBJECT hRoot. PROCEDURE getChildren: DEFINE INPUT PARAMETER hParent AS HANDLE NO-UNDO. DEFINE INPUT PARAMETER iLevel AS INTEGER NO-UNDO. DEFINE VARIABLE ix AS INTEGER NO-UNDO. DEFINE VARIABLE hNoderef AS HANDLE NO-UNDO. CREATE X-NODEREF hNoderef. REPEAT ix = 1 TO hParent:NUM-CHILDREN: lGood = hParent:GET-CHILD(hNoderef, ix). IF NOT lGood THEN LEAVE. IF hNoderef:SUBTYPE "element" THEN NEXT. IF hNoderef:NAME = "person" THEN MESSAGE "getattr id gives" hNoderef:GET-ATTRIBUTE("id") hNoderef:ATTRIBUTE-NAMES. RUN getChildren(hNoderef, (iLevel + 1)). END. DELETE OBJECT hNoderef. END PROCEDURE. 2–17
Page 1 and 2: PROGRESS® PROGRESS® PROGRESS® 10
Page 3 and 4: Contents Preface . . . . . . . . .
Page 5 and 6: Contents 5. Reading and Writing XML
Page 7 and 8: Preface This Preface contains the f
Page 9 and 10: Using this manual Preface OpenEdge
Page 11 and 12: | ... Examples of syntax descriptio
Page 13 and 14: In this example, ASSIGN requires ei
Page 15 and 16: Third party acknowledgements OpenEd
Page 17 and 18: Preface OpenEdge includes http pack
Page 19 and 20: Preface OpenEdge includes Sonic sof
Page 21 and 22: Developing with XML in OpenEdge 1 T
Page 23 and 24: About XML The W3C has also defined
Page 25 and 26: Recommended resources for learning
Page 27 and 28: ABL support ABL implements DOM with
Page 29 and 30: Developing XML-enabled ABL applicat
Page 31 and 32: Use cases Serializing ABL temp-tabl
Page 33 and 34: Reading and Writing XML with the Do
Page 35 and 36: DTDs and XML Schema documents XML t
Page 37 and 38: XML empty elements XML terminology
Page 39 and 40: The ABL DOM interface If you are an
Page 41 and 42: The ABL DOM interface Table 2-1 sho
Page 43 and 44: Setting node attributes and values
Page 45 and 46: Writing an XML file to a MEMPTR, a
Page 47: Loading an XML file from a MEMPTR R
Page 51 and 52: Namespaces Namespaces When you have
Page 53 and 54: Internationalization Internationali
Page 55 and 56: Validation Validation You can valid
Page 57 and 58: Method and attribute summary Table
Page 59 and 60: Reading XML Documents with the Simp
Page 61 and 62: SAX-reader object Understanding ABL
Page 63 and 64: Understanding ABL SAX The following
Page 65 and 66: Understanding ABL SAX Table 3-3: SA
Page 67 and 68: Creating a SAX-attributes object Un
Page 69 and 70: Understanding ABL SAX A DTD might b
Page 71 and 72: Table 3-7 describes the effect of n
Page 73 and 74: • A callback raises an error by u
Page 75 and 76: Developing ABL SAX applications Mos
Page 77 and 78: Developing ABL SAX applications i-s
Page 79 and 80: Developing ABL SAX applications Tra
Page 83 and 84: i-sax2.xml Developing ABL SAX appli
Page 87 and 88: ABL SAX and WebSpeed i-saxe3s.p (2
Page 89 and 90: ABL SAX and WebSpeed Note: If you m
Page 91 and 92: SAX API reference This reference co
Page 93 and 94: EndDocument Invoked when the XML pa
Page 95 and 96: SAX API reference If validation is
Page 97 and 98: memPointer SAX API reference Option
Page 99 and 100:
UnparsedEntityDecl SAX API referenc
Page 101 and 102:
Writing XML Documents with the Simp
Page 103 and 104:
SAX-writer overview Table 4-1: SAX-
Page 105 and 106:
Configuring a SAX-writer Configurin
Page 107 and 108:
Examples This section shows example
Page 109 and 110:
Envelope information example Exampl
Page 111 and 112:
Concurrently reading and writing XM
Page 113 and 114:
Examples sax-readwrite.p (2 of 2) /
Page 115 and 116:
Examples sax-readwrite2.p (2 of 2)
Page 117 and 118:
START-ELEMENT("name", "namespaceUri
Page 119 and 120:
DECLARE-NAMESPACE("namespaceUri", "
Page 121 and 122:
Handling errors Handling errors The
Page 123 and 124:
Handling errors Table 4-3: Common e
Page 125 and 126:
Handling errors Example of changing
Page 127 and 128:
Reading and Writing XML Data from T
Page 129 and 130:
Use cases Introduction The XML read
Page 131 and 132:
SERIALIZE-NAME 3 (Readable and writ
Page 133 and 134:
Methods and attributes • If NAMES
Page 135 and 136:
Reading XML Schema into a temp-tabl
Page 137 and 138:
Page 139 and 140:
Page 141 and 142:
Page 143 and 144:
Page 145 and 146:
ead-mode Reading XML into a temp-ta
Page 147 and 148:
verify-schema-mode Reading XML into
Page 149 and 150:
Reading XML into a temp-table, temp
Page 151 and 152:
Page 153 and 154:
Page 155 and 156:
Here is a snippet of the XML file:
Page 157 and 158:
Page 159 and 160:
The following is the output for thi
Page 161 and 162:
Writing XML Schema from a temp-tabl
Page 163 and 164:
omit-initial-values Writing XML Sch
Page 165 and 166:
Page 167 and 168:
Page 169 and 170:
longchar Writing XML from a temp-ta
Page 171 and 172:
Writing XML from a temp-table, temp
Page 173 and 174:
Writing XML from a temp-table, temp
Page 175 and 176:
Minimizing XML document size Minimi
Page 177 and 178:
Minimizing XML document size A non-
Page 179 and 180:
Sample ProDataSet to XML round-trip
Page 181 and 182:
Sample ProDataSet to XML round-trip
Page 183 and 184:
Using XML Schema In the following e
Page 185 and 186:
Using XML Schema Using READ-XML( )
Page 187 and 188:
Representing temp-tables in XML Sch
Page 189 and 190:
Representing indexes in XML Schema
Page 191 and 192:
XML Schema and ABL Data Type Mappin
Page 193 and 194:
Default mappings from other XML Sch
Page 195 and 196:
ABL to IANA Code Page Mappings This
Page 197 and 198:
ABL to IANA code page mappings Tabl
Page 199 and 200:
Command and Utility Reference This
Page 201 and 202:
-fieldtypemapping { field-mapping-f
Page 203 and 204:
Index A ABL benefits of XML develop
Page 205 and 206:
NODE-VALUE-TO-LONGCHAR method 2-26
show all

OpenEdge Development: Working with XML - Product ...

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?