Re: challenging tasks? Got one to discuss?

[Booth Martin <booth@xxxxxxxxxxxx>]

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