Re: Writing XML with RPGLE V7R1M0

Brian

I've been using CGIDEV2 - it's a free utility - you might also look at powerEXT, which takes a slightly different approach - also free.

There was a recent thread on this - either one is good, I think - CGIDEV2 uses a template that has the main XML structure, along with markers that identify sections (like record formats in a DSPF) and variables (like fields in a DSPF).

powerEXT uses procedures that are more based on XML nodes - so you write out the data in a manner that may more closely align with the XML structure, at least in the code.

Results can be identical, of course.

In that thread, Henrik posted the link to the recent modernization Redbook that discusses these 2 products, as well as a 3rd, XMLi - I've not tried the last one yet -

http://archive.midrange.com/midrange-l/201408/msg00614.html

Here are simple examples, based on a program I wrote here - first the CGIDEV2 version, then the powerEXT version - the RPG code is really clean in either case -

The template for CGIDEV2 is here, then the code -

<!-- $FileHeader$ -->
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE activity_import_file SYSTEM "activity.dtd">
<activity_import_file>
<!-- $Activity$ -->
<activity>
<custno><!-- %CustomerNumber% --></custno>
<actvdate><!-- %ActivationDate% --></actvdate>
<actvtime><!-- %ActivationTime% --></actvtime>
<history><![CDATA[<!-- %HistoryEntry% -->]]></history>
</activity>
<!-- $FileFooter$ -->
</activity_import_file>

And now the code -

/free
IfsMultIndicators = getHtmlIfsMult('/XML/activities.tpl' :
'<!-- $' : '$ -->' : '<!-- %' : '% -->');

ClrHtmlBuffer();

wrtSection('FileHeader');

updHtmlVar('CustomerNumber' : custno);
updHtmlVar('ActivationDate' : %char(actdate));
updHtmlVar('ActivationTime' : %char(acttime));
updHtmlVar('HistoryEntry' : history);

wrtSection('Activity');

wrtSection('FileFooter');

rc = wrtHtmlToStmf('report.xml' : 1208);

*inlr = *on;
/end-free



On 8/13/2014 11:07 AM, Henrik Rützou wrote:

Debbie

It may be easier for you to make XML with inline code/subprocedures like
used in powerEXT Core,
to make Vernons example here is the complete code (Vernon is missing the
RPG part:

/free
clearSrvPgm();
setContent('*none');

echo('<?xml version="1.0" encoding="UTF-8"?>');
echo('<!DOCTYPE activity_import_file SYSTEM "activity.dtd">');

xmlNode('activity_import_file');

xmlNode('activity');
xmlNode('custno':'':%char(custno);
xmlNode('actvdate':'':%char(actdate);
xmlNode('actvtime':'':%char(acttime);
xmlNode('history':'':histdata);
xmlEndNode(); // ends activity

xmlEndNode(); // ends activity_import_file

echoToStmf('/testfile.xml':1208);
*inlr = *on;
/end-Free

On 8/19/2014 2:56 PM, Brian Stapleton wrote:

Good Afternoon

I need to learn how to write XML documents with RPGLE V7R1M0 onto our IFS.

How can I educate myself on doing this?

I would prefer to stay as native RPGLE as possible, and am not looking to purchase a 3rd party solution.





Brian Stapleton
Information Services
Carhartt, Inc
5750 Mercury Drive
Dearborn, MI 48126
Desk - 313-749-6586
Fax - 313-271-3455
BStapleton@xxxxxxxxxxxx<mailto:BStapleton@xxxxxxxxxxxx>

[Description: Description: Carhartt_emaillogo]


Confidential: This electronic message and all contents contain information from Carhartt, Inc. and its affiliates which may be confidential or otherwise protected from disclosure. The information is intended to be for the addressee only. If you are not the addressee, any disclosure, copy, distribution or use of the contents of this message is prohibited. If you have received this electronic message in error, please notify us immediately at (313) 271-8460 and destroy the original message and all copies.