RE: [WEB400] SQL to XML with RPG utility

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

I was working on a tool very similar and the only way I could see it working
successfully with RPG is to have Java do the work and then interface the
Java classes with RPG.

If you ever get a version in english post to this group again because I am
interested but right now I don't care to learn Spanish:-)

Aaron Bartell

-----Original Message-----
From: alex martinez [mailto:alex@xxxxxxxxxxx]
Sent: Tuesday, November 11, 2003 6:23 AM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] SQL to XML with RPG utility


Hello


I'm developing a ILE-RPG utility (named SQLAXML) to build dinamic a XML file
from any "Select SQL stament" and at this point we need some advice to
improve it.

At this moment there is no manual (only a readme file spanish to install),
but its really easy to use:
download from http://ajut400.com/ajut400/sqlaxml.zip and unzip, put with ftp
sqlaxml.savf file (binary transfer) to as400 server and run RSTLIB SQLAXML
to restore.

To view result with MSExplorer using iSeries Apache server use this
AliasMatch

AliasMatch /xml/(.*)\.xml /QSYS.LIB/SQLAXML.LIB/XMLDATA.FILE/$1.mbr

If anyone must be interested try it at
http://ajut400.com/ajut400/descargas.html (Spanish www)

Know limitations and future improvements.
=============================

1. At this moment SQLAXML only generates 5 first rows of SQLSELECT Parm.

2. Parm XMLOUTPUT file must be XMLDATA from SQLAXML library or CRTDUPOBJ of
this file. If you use other PF-SRC file, SQLAXML fails with CPF4131 error.

3. At this time: TimeStamp, LOB, datalink field are not supported.

4. SELECTSQL Parm max length its 2000 chars. A future improvement its to use
a file source that contains more complex SQL select staments to run.

5. Other improvements: Create a SQLAXML CGI version to provide GET/POST
methods from a html request like http://server/sqlaxml?selectsql='select
a.partno, a.partpri, b.inventory, b.partship from adtslab/product a left
outer join adtslab/proddtl b on a.partno = b.partno where b.inventory > 0'

Thanks in advanced,

Alex Martinez



_______________________________________________
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.