Re: challenging tasks? Got one to discuss?

I don't understand the question?  The web page has an SQLRPGLE program with a DSPL display file that should copy/paste in to two source members and is the Demo program.  There is also an SQLRPGLE callable program that does the actual get.  That program probably should be a service program but that's not part of this exercise.


On 3/2/2020 4:12 PM, Kerwin Crawford via RPG400-L wrote:

I am looking at the program and am not sure where to put it. I have dried a few places but did not work. Any ideas on where to put it?
I assume it is on this statement
exec sql select * into :latitude, :longitude
from json_table(systools.httpgetclob(:URL, ''),
'lax $.result.addressMatches[*]'
columns(
Latitude varchar(15) path '$.coordinates.y',
Longitude varchar(15) path '$.coordinates.x')
empty on error);

I have done it on sql scripts before. Usually in the select area like this.
SELECT ENTRY_TIMESTAMP,
JOB_NUMBER CONCAT '/' CONCAT RTRIM(JOB_USER) CONCAT '/' CONCAT RTRIM(JOB_NAME) AS JOB_NAME,
REMOTE_ADDRESS,
rtrim(cast(cast(substring(entry_data,2,10) as VARCHAR(10) for bit data) as varchar(10) ccsid 37)) as User_Name
FROM TABLE(qsys2.display_journal(
'QSYS', 'QAUDJRN', -- Journal library and name
STARTING_RECEIVER_NAME => '*CURAVLCHN',
journal_entry_types => 'PW', -- Journal entry types
starting_timestamp => CURRENT TIMESTAMP - 48 HOURS)) -- Time period

P#
Kerwin
IBMi Systems/Applications Programmer