Re: RPG, retrieving JSON data from a web service -- RPG400-L

OK - SET is an SQL function - the reference explains it.

Similar to the VALUES function.

As for httpgetCLOB - Google is your friend - I'm not sure if that is the thing to use, however, for something in the IFS - it's for the web - Birgitta can maybe say more.

Now you might be able to use a "web" URL for the IFS path = would it be like file://youribm-i//some-share-name/your-path-from-there?

Cheers
Vern

On 8/21/2017 5:08 PM, Booth Martin wrote:

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