** What is it?
A simplified manner of parsing DOM XML do***ents in memory. For
example:
DEFINE VARIABLE hDOM AS HANDLE NO-UNDO.
DEFINE VARIABLE iCount AS INTEGER NO-UNDO.
DEFINE VARIABLE cErr AS CHARACTER NO-UNDO.
DEFINE VARIABLE serialnumber AS CHARACTER NO-UNDO.
DEFINE VARIABLE xmlns AS CHARACTER NO-UNDO.
RUN DOMParse.p PERSISTENT SET hDOM.
RUN SetInternalXMLHandle IN hDOM (INPUT WEB-CONTEXT:X-DO***ENT).
RUN GetError IN hDOM (OUTPUT cErr).
IF NOT cErr BEGINS "000" THEN DO:
DISPLAY cErr.
RETURN.
END.
RUN NumOfTags IN hDOM ("bye", OUTPUT iCount).
RUN getAttributeByTagname IN hDOM ("bye", 1, "xmlns", OUTPUT xmlns).
RUN getAttributeByTagname IN hDOM ("bye", 1, "serial-number", OUTPUT
serialnumber).
DELETE OBJECT hDOM.
** What's the change?
2007214170357
Added SetInternalXMLHandle so RUN SetInternalXMLHandle(WEB-CONTEXT:X-
DO***ENT) can be used.
** Where is the distribution file and browse package at:
http://amduus.com/OpenSrc/SrcLib/DOM/
-------------
Scott Aug=E9
Founder
Amduus Information Works, Inc.
http://www.amduus.com
PGP/GPG http://amduus.com/amduus_com/sauge.public.key
Free to use web based service ticket system:
http://amduus.com/seiii/src/se=
tup/
