Skip to main content

How can I change the tag nr and naam with organisation xml without all tag names in the FILE SECTION.
XD

 

<envelope xmlns:xsi="www.w3.org/.../XMLSchema-instance" xsi:noNamespaceSchemaLocation="envelope.xsd">
<header>
<source>
<product>sal</product>
</source>
<transaction>
<version>5.0</version>
<messagetype>personeelsgegevens</messagetype>
<variant>WFE</variant>
</transaction>
</header>
<body>
<werkgever>
<nr>1</nr>
<naam>a</naam>
<werknemers>
<werknemer>
<nr>1</nr>
<naam>a</naam>
</werknemer>
<werknemer>
<nr>2</nr>
<naam>a</naam>
</werknemer>
<werknemer>
<nr>3</nr>
<naam>a</naam>
</werknemer>
</werknemers>
</werkgever>
</body>
</envelope>

 


#VisualCOBOL
#XML

How can I change the tag nr and naam with organisation xml without all tag names in the FILE SECTION.
XD

 

<envelope xmlns:xsi="www.w3.org/.../XMLSchema-instance" xsi:noNamespaceSchemaLocation="envelope.xsd">
<header>
<source>
<product>sal</product>
</source>
<transaction>
<version>5.0</version>
<messagetype>personeelsgegevens</messagetype>
<variant>WFE</variant>
</transaction>
</header>
<body>
<werkgever>
<nr>1</nr>
<naam>a</naam>
<werknemers>
<werknemer>
<nr>1</nr>
<naam>a</naam>
</werknemer>
<werknemer>
<nr>2</nr>
<naam>a</naam>
</werknemer>
<werknemer>
<nr>3</nr>
<naam>a</naam>
</werknemer>
</werknemers>
</werkgever>
</body>
</envelope>

 


#VisualCOBOL
#XML
Can you please clarify your question? What is it that you are trying to accomplish? Are you trying to modify the tags in an existing xml document?

You can specify a data-name in the IDENTIFIED BY clause:

xd doc.
01 root-tag identified by root-tag-name.
10 root-tag-name pic x(80).
10 root-tag-val pic x(80).
10 root-tag-attr identified by root-tag-attr-name
is attribute.
15 root-tag-attr-name pic x(80).
15 root-tag-attr-val pic x(80).