I am learning XML-INTO first time and am trying to convert using RPG free format. Since XML has multiple elements, please help me to fix this simple program
When I run the following program I get "An XML parsing error was detected " error.
This is actually EDI X12 data converted into XML so that I can populate database.
**FREE
dcl-c XML2 '<loop Id="N1">+
<segment Id="N1">+
<element Id="N101">ST</element>+
<element Id="N102">ABC COMPANY</element>+
<element Id="N103">9</element>+
<element Id="N104">124575</element>+
</segment>+
</loop>+
<segment Id="ITD">+
<element Id="ITD01">01</element>+
<element Id="ITD02">3</element>+
<element Id="ITD03">2</element>+
<element Id="ITD05">45</element>+
<element Id="ITD06">20180415</element>+
<element Id="ITD07">46</element>+
</segment>+
<segment Id="DTM">+
<element Id="DTM01">011</element>+
<element Id="DTM02">20180228</element>+
</segment>+
<loop Id="IT1">+
<segment Id="IT1">+
<element Id="IT101">1</element>+
<element Id="IT102">72</element>+
<element Id="IT103">EA</element>+
<element Id="IT104">8.09</element>+
<element Id="IT106">UP</element>+
<element Id="IT107">054132408604</element>+
<element Id="IT108">SK</element>+
<element Id="IT109">125440</element>+
<element Id="IT110">VC</element>+
<element Id="IT111">641623</element>+
</segment>+
</loop>+
<loop Id="IT1">+
<segment Id="IT1">+
<element Id="IT101">10</element>+
<element Id="IT102">36</element>+
<element Id="IT103">EA</element>+
<element Id="IT104">8.09</element>+
<element Id="IT106">UP</element>+
<element Id="IT107">039938349219</element>+
<element Id="IT108">SK</element>+
<element Id="IT109">154510</element>+
<element Id="IT110">VC</element>+
<element Id="IT111">778634</element>+
</segment>+
</loop>';
dcl-ds loop qualified dim(20);
dcl-ds segment;
Id char(4);
dcl-ds element dim(50);
Id char(4);
data varchar(50);
end-ds;
end-ds;
end-ds;
xml-into loop %xml(XML2:'case=any datasubf=data allowmissing=yes');
*inlr = *on;
Thank you.
When I run the following program I get "An XML parsing error was detected " error.
This is actually EDI X12 data converted into XML so that I can populate database.
**FREE
dcl-c XML2 '<loop Id="N1">+
<segment Id="N1">+
<element Id="N101">ST</element>+
<element Id="N102">ABC COMPANY</element>+
<element Id="N103">9</element>+
<element Id="N104">124575</element>+
</segment>+
</loop>+
<segment Id="ITD">+
<element Id="ITD01">01</element>+
<element Id="ITD02">3</element>+
<element Id="ITD03">2</element>+
<element Id="ITD05">45</element>+
<element Id="ITD06">20180415</element>+
<element Id="ITD07">46</element>+
</segment>+
<segment Id="DTM">+
<element Id="DTM01">011</element>+
<element Id="DTM02">20180228</element>+
</segment>+
<loop Id="IT1">+
<segment Id="IT1">+
<element Id="IT101">1</element>+
<element Id="IT102">72</element>+
<element Id="IT103">EA</element>+
<element Id="IT104">8.09</element>+
<element Id="IT106">UP</element>+
<element Id="IT107">054132408604</element>+
<element Id="IT108">SK</element>+
<element Id="IT109">125440</element>+
<element Id="IT110">VC</element>+
<element Id="IT111">641623</element>+
</segment>+
</loop>+
<loop Id="IT1">+
<segment Id="IT1">+
<element Id="IT101">10</element>+
<element Id="IT102">36</element>+
<element Id="IT103">EA</element>+
<element Id="IT104">8.09</element>+
<element Id="IT106">UP</element>+
<element Id="IT107">039938349219</element>+
<element Id="IT108">SK</element>+
<element Id="IT109">154510</element>+
<element Id="IT110">VC</element>+
<element Id="IT111">778634</element>+
</segment>+
</loop>';
dcl-ds loop qualified dim(20);
dcl-ds segment;
Id char(4);
dcl-ds element dim(50);
Id char(4);
data varchar(50);
end-ds;
end-ds;
end-ds;
xml-into loop %xml(XML2:'case=any datasubf=data allowmissing=yes');
*inlr = *on;
Thank you.
Comment