Re: Read a XML document in COBOL


Richard wrote:

LINKAGE SECTION.

COPY "xmlparse.ws". *> \az\include\xmlparse.ws

PROCEDURE DIVISION USING XML-Interface
XML-Document
.

01 XML-Interface.
* 05 XML-Occurs PIC 9(9) VALUE 20000.
05 XML-Occurs PIC 9(9).
05 XML-Length PIC 9(9).
05 XML-Reserved.
10 Save-Index PIC 9(9).
10 Char-Ptr PIC 9(9).
10 State PIC 99.
10 Save-Elem-Name PIC X(50).
10 FILLER PIC X(30).
05 XML-Parsed-Area.
10 XML-Return-Code PIC 9.
10 XML-Element-Name PIC X(50).
10 XML-Attribute-Name PIC X(50).
10 XML-Data-Value PIC X(1000).

01 XML-Document.
05 XML-Document-X PIC X OCCURS 20000.

*
================================================================
* end of source code
* ================================================================

.