Example 3
This example program demonstrates the basic structure of an RPG program utilizing the RXS DOM parser to parse an XML document with multiple repeating elements.
**FREE
Ctl-Opt ActGrp(*Caller) BndDir('RXSBND') Option(*NoDebugIO) ExtBinInt(*Yes) DecEdit('0.')
Text('Ex. 3 - XML DOM Parsing');
/COPY QRPGLECPY,RXSCB
Dcl-Ds gRootDomDS LikeDS(RXS_ParseDomDS_t);
Dcl-Ds gBookDomDS LikeDS(RXS_ParseDomDS_t);
Dcl-Ds gReviewDomDS LikeDS(RXS_ParseDomDS_t);
Dcl-S gXml Like(RXS_Var64Kv_t);
Dcl-S gData Like(RXS_Var64Kv_t);
Dcl-S gXPath Like(RXS_Var8Kv_t);
Dcl-S x Uns(10);
Dcl-S y Uns(10);
monitor;
gXml = ''
+ ''
+ ''
+ '<![CDATA[Charlotte''s Web]]> '
+ 'E. B. White '
+ '1952 '
+ '5.99 '
+ 'What a great book! '
+ 'Highly recommended. '
+ ' '
+ ''
+ 'Everyday Italian '
+ 'Giada De Laurentiis '
+ '2005 '
+ '30.00 '
+ ' '
+ ''
+ 'Harry Potter '
+ 'J K. Rowling '
+ '2005 '
+ '29.99 '
+ ' '
+ ' ';
gRootDomDS = RXS_OpenDom( gXml );
gXPath = RXS_XPath( '/*:bookstore/*:book' );
gBookDomDS = RXS_ParseDomToDom( gXPath : gRootDomDS );
for x = 1 to gBookDomDS.NodeCount;
gXPath = RXS_XPath( '*:book[%u]/*:title' : x );
gData = RXS_ParseDomToText( gXPath : gBookDomDS );
RXS_JobLog( 'Title: %s' : gData );
gXPath = RXS_XPath( '*:book[%u]/*:review' : x );
gReviewDomDS = RXS_ParseDomToDom( gXPath : gBookDomDS );
for y = 1 to gReviewDomDS.NodeCount;
gXPath = RXS_XPath( '*:review[%u]/*:text' : y );
gData = RXS_ParseDomToText( gXPath : gReviewDomDS );
RXS_JobLog( 'Review: %s' : gData );
endfor;
endfor;
RXS_CloseDom( gRootDomDS );
on-error;
endmon;
*INLR = *On;
return;
H DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('RXSBND') OPTION(*NODEBUGIO)
H EXTBININT(*YES) DECEDIT('0.')
H TEXT('Fixed Format Ex. 3 - XML DOM Parsing')
/COPY QRPGLECPY,RXSCB
D gRootDomDS DS LikeDS(RXS_ParseDomDS_t)
D gBookDomDS DS LikeDS(RXS_ParseDomDS_t)
D gReviewDomDS DS LikeDS(RXS_ParseDomDS_t)
D gXml S Like(RXS_Var64Kv_t)
D gData S Like(RXS_Var64Kv_t)
D gXPath S Like(RXS_Var8Kv_t)
D x S 10U 0
D y S 10U 0
/free
monitor;
gXml = '' +
'' +
'' +
'<![CDATA[Charlotte''s Web]]> ' +
'E. B. White ' +
'1952 ' +
'5.99 ' +
'What a great book! ' +
'Highly recommended. ' +
' ' +
'' +
'Everyday Italian ' +
'Giada De Laurentiis ' +
'2005 ' +
'30.00 ' +
' ' +
'' +
'Harry Potter ' +
'J K. Rowling ' +
'2005 ' +
'29.99 ' +
' ' +
' ';
gRootDomDS = RXS_OpenDom( gXml );
gXPath = RXS_XPath( '/*:bookstore/*:book' );
gBookDomDS = RXS_ParseDomToDom( gXPath : gRootDomDS );
for x = 1 to gBookDomDS.NodeCount;
gXPath = RXS_XPath( '*:book[%u]/*:title' : x );
gData = RXS_ParseDomToText( gXPath : gBookDomDS );
RXS_JobLog( 'Title: %s' : gData );
gXPath = RXS_XPath( '*:book[%u]/*:review' : x );
gReviewDomDS = RXS_ParseDomToDom( gXPath : gBookDomDS );
for y = 1 to gReviewDomDS.NodeCount;
gXPath = RXS_XPath( '*:review[%u]/*:text' : y );
gData = RXS_ParseDomToText( gXPath : gReviewDomDS );
RXS_JobLog( 'Review: %s' : gData );
endfor;
endfor;
RXS_CloseDom( gRootDomDS );
on-error;
endmon;
*INLR = *On;
return;
/end-free