Hi Birgitta
I saved this e-mail (see below) until I could get a couple of minutes to really look at it and test it
Before I forget - we are on V7r1 (less than a month ago)
However, when I run this command in STRSQL, I receive the following messages
JVM properties were loaded from a properties file.
The java.version property was detected as input. This property is used as
output only and has no effect on JVM initialization.
Open attributes not valid in a multithreaded job.
Error(s) occurred during running of QsnInzSsnD API.
Open attributes not valid in a multithreaded job.
Error(s) occurred during running of API.
Error(s) occurred during running of QsnCrtEnv API.
Java Virtual Machine is IBM Technology for Java. PID(3840035)
JVM properties were loaded from a properties file.
User-defined function error on member QSQPTABL.
Cancel reply received for message CPF503E.
Are you able to see anything from these messages as to the reason why this failed?
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Birgitta Hauser
Sent: Monday, October 03, 2016 4:25 AM
To: 'RPG programming on the IBM i (AS/400 and iSeries)' <rpg400-l@xxxxxxxxxxxx>
Subject: AW: RPGLE to consume a webservice
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.
--
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
