Re: RPG, retrieving JSON data from a web service

[Booth Martin <booth@xxxxxxxxxxxx>]

I have no idea what this all means, nor any idea where to go to find out.

          Exec SQL
            Set :JSONVar =
              SysTools.httpgetCLOB('/home/bmartin/Louie.json',  '');

SQL5016: Position 15 Qualified object name HTTPGETCLOB not valid.
Cause . . . . . :   One of the following has occurred:
      -- The syntax used for the qualified object name is not valid for 
the naming option specified.  With system naming, the qualified form of 
an object name is schema-name/object-name.  With SQL naming the 
qualified form of an object name is authorization-name.object-name.
      -- The syntax used for the qualified object name is not allowed. 
User-defined types cannot be qualified with the schema in the system 
naming convention on parameters and SQL variables of an SQL procedure or 
function.
Recovery  . . . :   Do one of the following and try the request again:
      -- If you want to use the SQL naming convention, verify the SQL 
naming option in the appropriate SQL command and qualify the object 
names in the form authorization-id.object-name.
      -- If you want to use the system naming convention, specify the 
system naming option in the appropriate SQL command and qualify the 
object names in the form schema-name/object-name.
      -- With the system naming convention, ensure the user-defined 
types specified for parameters and variables in an SQL routine can be 
found in the current path.


On 8/21/2017 12:59 AM, Birgitta Hauser wrote:
> I did not follow the complete thread,
> but ... if he only wants to read data returned from a webservice, why not
> just using embedded SQL?
> Something like this:
>
>         DCL-S  JSONVar        SQLType(CLOB: 16000000);
>         DCL-S  Text           Char(50);
>   
> //--------------------------------------------------------------------------
> -------------------
>         Exec SQL
>              Set :JSONVar = SysTools.httpgetCLOB('http://YourURL',  '');
>              Text = JSONVar_Data;
>              Dsply Text;
>
>         *InLR = *On;
>
> JSONVar is converted by the SQL Precompiler into a data Structure with 2
> Subfields
> JSONVAR_LEN  as UNS(10) representing the data length
> JSCONVAR_DATA as Char(specified CLOB Length) which includes the data
>
> As soon as the data is read into a variable it can be used in composition
> with the XML functions or YAJL like any other variable.
> BTW Embedded SQL also allows data to be directly read from the IFS.
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser