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)
I was just thinking about cases where we might want to consume an API from
an existing RPG or COBOL program.
This is a very simple web-service that is accessed and consumed with SQL:
Select *
from
JSON_TABLE(httpgetClob('
http://www.geognos.com/api/en/countries/info/DE.json
', ''),
'$.Results'
Columns(Country VarChar(25) Path '$.Name',
Capital VarChar(25) Path '$.Capital.Name',
ISO2 VarChar(2) Path
'$.CountryCodes.iso2',
ISO3 VarChar(3) Path
'$.CountryCodes.iso3',
GeoPt1 Dec(7, 2) Path '$.Capital.GeoPt[0]',
GeoPt2 Dec(7, 2) Path '$.Capital.GeoPt[1]',
Web VarChar(256) Path '$.CountryInfo')) x;
Just put the SELECT-Statement into a Cursor in your embedded Cobol program
and loop through the result ... and do what ever you want to do with the
data.
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Kelly
Cookson via RPG400-L
Sent: Mittwoch, 9. Februar 2022 16:42
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Kelly Cookson <KCookson@xxxxxxxxxxxx>
Subject: RE: [EXTERNAL] RE: SQL RPG and Web API Consumption
Thanks Birgitta. I enjoyed your POWERUp presentations, by the way. Thanks
for those, too.
I understand SQL is doing the work, and I think we could use SQL in a stored
procedure to consume a REST API. I was just thinking about cases where we
might want to consume an API from an existing RPG or COBOL program. For
example, it might be handy to consume a REST API to get a bit of data for an
interactive RPG or COBOL program, assuming we can convert the programs to
use embedded SQL for this.
Thanks,
Kelly Cookson
Senior Software Engineer II
Dot Foods, Inc.
1-217-773-4486 ext. 12676
www.dotfoods.com
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
