Hi Thorbjørn,
I did a little test with HTTPAPI (Scott Klements) and my own powerEXT Core
today ... simulating a webservice by calling one of my own RPC's that you
can see live here:
http://212.242.251.247:1550/pextcgi/pxsvpxx9.pgm?func=getRows&output=xml
The data comes from a DB2 database and is read by SQLRPGLE and then
transformed to XML by powerEXT Core xmlNode support:
Running it local there isn't any Internet transfer delay but the time
to do the client request (processing the RPC) and get the xml file into
the Client program and store it in a temp xml file in the IFS was:
0.146366 seconds and the time reading the xml afterwards was 0.012136
seconds.
I don't believe that you with any non-rpg product can do this much faster
or much simpler that this code:
/copy qsrc,pxapihdr General H-Spec's
* powerEXT API Connectors
/copy qsrc,pxapicgicn Basic HTTP connecter & Basic Services
* Support for HTTPAPI by Scott Klement
/copy qrpglesrc,httpapi_h
* Declare Program Variables
d rc s 10I 0
d url s 100A varying
d filename s 45A varying
* Declare a Record to Retrieve
d myRecord ds qualified
d alpha 10a
d date d
d time t
/free
// HTTPAPI HTTP client code
url = '
http://212.242.251.247:1550/pextcgi/pxsvpxx9.pgm'
+ '?func=getRows&output=xml';
filename = http_tempfile() + '.xml';
rc = http_url_get( url : filename );
if (rc <> 1);
dsply 'HTTPAPI: An error occured in tha call';
return;
endif;
// powerEXT Core - xml Reader Services
xmlFromStmf(filename);
xmlReaderInz(xmlAddr:xmlSize);
xmlReaderCase('L');
dow xmlReader = 0;
select;
when xmlGetNode = '%record';
reset myRecord;
when xmlGetNode = 'x9tsta' and xmlGetAttr = '';
myRecord.alpha = xmlGetData;
when xmlGetNode = 'x9tstl' and xmlGetAttr = '';
myRecord.date = %date(xmlGetData:*ISO);
when xmlGetNode = 'x9tstm' and xmlGetAttr = '';
myRecord.time = %time(xmlGetData:*HMS);
when xmlGetNode = '/record';
// dsply myRecord.alpha;
// dsply %char(myRecord.date);
// dsply %char(myRecord.time);
endsl;
enddo;
qcmd('del (''' + filename + ''')');
*inlr = *on;
return;
/Henrik
Thorbjørn Ravn Andersen <thunderaxiom@xxxxxxxxxxx>
Sent by: web400-bounces@xxxxxxxxxxxx
22-04-2010 09:09
Please respond to
Web Enabling the AS400 / iSeries <web400@xxxxxxxxxxxx>
To
"'Web Enabling the AS400 / iSeries'" <web400@xxxxxxxxxxxx>
cc
Subject
Re: [WEB400] Why use PHP? What are the disadvantages?
Thanks for pointing me at the IBM product for this.
I'll have a closer look :) Anybody who has used this and has experiences
to
share?
Thanks!
/Thorbjørn
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Neill Harper
Sent: 22. april 2010 00:25
To: 'Web Enabling the AS400 / iSeries'
Subject: Re: [WEB400] Why use PHP? What are the disadvantages?
XML4C alone cannot, but there is a tool built on top of it called Web
services client for ILE.
midrange.com
