xml.p
| 1 |
DEFINE VARIABLE VcResult AS CHARACTER NO-UNDO. |
|---|---|
| 2 |
DEFINE VARIABLE VlError AS LOGICAL NO-UNDO. |
| 3 |
DEFINE VARIABLE VcErrorMsg AS CHARACTER NO-UNDO. |
| 4 |
|
| 5 |
DEFINE VARIABLE vhSAXWriter AS HANDLE. |
| 6 |
DEFINE VARIABLE lok AS LOGICAL. |
| 7 |
DEFINE VARIABLE VcXML AS LONGCHAR. |
| 8 |
|
| 9 |
DEFINE VARIABLE IcKeyword AS CHARACTER NO-UNDO INITIAL "START-DOCUMENT". |
| 10 |
|
| 11 |
CREATE SAX-WRITER vhSAXWriter. |
| 12 |
|
| 13 |
lok = vhSAXWriter:SET-OUTPUT-DESTINATION("LONGCHAR",VcXML).
|
| 14 |
lok = vhSAXWriter:START-DOCUMENT(). |
| 15 |
lok = vhSAXWriter:START-ELEMENT("element").
|
| 16 |
lok = vhSAXWriter:END-ELEMENT("element").
|
| 17 |
lok = vhSAXWriter:END-DOCUMENT(). |
| 18 |
|
| 19 |
ASSIGN VcResult = STRING(lok). |
| 20 |
|
| 21 |
DELETE OBJECT vhSAXWriter. |
| 22 |
|
| 23 |
ASSIGN vhSAXWriter = ?. |
| 24 |
|
| 25 |
message "[" + VcXML + "]" view-as ALERT-BOX. |