What about using embedded SQL for accessing web-services?
The following SQL Statement accesses a Web-Service form the European Central
Bank (Exchange Ranges).
Just embed an appropriate SQL-Statements in an Cursor, loop through this
cursor an voila you access a Web-Service with RPG (and embedded SQL)
Select *
From XMLTable(
XMLNamespaces(DEFAULT
'
http://www.ecb.int/vocabulary/2002-08-01/eurofxref',
'
http://www.gesmes.org/xml/2002-08-01' AS
"gesmes"),
'gesmes:Envelope/Cube/Cube/Cube'
Passing XMLParse(DOCUMENT
SysTools.HTTPGetCLOB(
'
http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml',
''))
Columns Subject VarChar(30) Path '../../../gesmes:subject',
Sender VarChar(30) Path
'../../../gesmes:Sender/gesmes:name',
ExchangeDate Date Path '../@time',
Currency Char(3) Path '@currency',
ExchangeRate Dec(10, 4) Path '@rate' ) a
Here is another example where this technique is used in composition with RPG
and embedded SQL:
RPG Talks To Watson
http://www.itjungle.com/fhg/fhg092716-story01.html
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Sean
Courtney
Gesendet: Saturday, 01.10 2016 13:56
An: rpg400-l@xxxxxxxxxxxx
Betreff: RPGLE to consume a webservice
Wichtigkeit: Hoch
Hello all,
Has anybody used RPGLE to consume a web service using the HTTPAPI (or other
technologies).
I need to send a parameter to the web service and receive a reply in my rpg
program.
If anybody has either a working example or good links for more information
on this theme then please pass it on to me.
Thanks in advance for the help.
Mit freundlichen Grüßen / Kind regards / Bien à vous,
Seán Courtney
Eiresoft
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
midrange.com
