RE: XML on iSeries

Jeff:

I've done a number of XML receive/sends and I just use PORPG (plain ol'
RPG).

For receives, I have a SUBR called GetToken that finds the next token in
the stream, and returns its value.  Then I use a Select statement, and
move the value into the required PF field.

When I hit the /end token that I need to write my PF row, I write it.

On sends, it's even easier.  Just use a bunch of %Trims, like this:

Eval Data = '<name>' + %Trim(CustName) + '</name>'
Write Record

For numeric:

Eval Data = '<numericzip>' + %Trim(%Editc(ZipCode:'X')) +
'</numericzip>'
Write Record


I messed with Aarons stuff, he's done a lot of good work, but I've never
seen an XML file I couldn't conquer with PORPG.

Art Tostaine, Jr.
CCA, Inc.
Jackson, NJ 08527


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
Sent: Friday, February 06, 2004 2:53 PM
To: 'Midrange Systems Technical Discussion'
Subject: XML on iSeries

We may have occasion in the next few months to receive/send files
to/from
the government in XML format.  Nothing that's a record-at-a-time
transaction
kind of communication, but entire batches of records at a time.

I see there are some licpgm's in this area, namely:

5722DE1 *BASE   DB2 UDB Extenders    
5722DE1 1       DB2 UDB Text Extender
5722DE1 2       DB2 UDB XML Extender 
5722DE1 3       Text Search Engine   
5722XT1         XML Toolkit

Can someone tell me briefly if these are what I would be looking for?
Are
the DB2 things listed a prerequisite for 5722XT1?  Does one of these
allow
you to "do" XML with RPG?  There was once some IBM Alphaworks project
regarding RPG/XML.  Is 5722XT1 the result of that?

At mowyourlawn.com (love that name!) is some XML stuff from Aaron
Bartell.
Is this stuff a complete solution or does it require specific licpgm's
like
those listed above?

Guess I'll go look for redbooks . . .

Thanks.

-- 
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily the opinion of my
company.  Unless I say so.



_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.