Re: RPG, retrieving JSON data from a web service

[Booth Martin <booth@xxxxxxxxxxxx>]

Here is the entire c-specs; in an effort to isolate the problem I 
created this stripped-out version.

          // Load JSON data from the IFS file using YAJL
         docNode = yajl_stmf_load_tree('/home/bmartin/Louie.json': 
errMsg );
         if errMsg = ' ';
           node = YAJL_object_find(docNode: 'success');
           result.success = YAJL_is_true(node);
           node = YAJL_object_find(docNode: 'errmsg');
           result.errmsg = YAJL_get_string(node);
           list = YAJL_object_find(docNode: 'list');
           dsply %subst(result.list(1): 1: 50);
         else;
           dsply 'File not found';
         endif;
         *inlr = *on;

-------------------------
Here is the first record in Louie.json:
[
 {
  "Cust#": "839283",
  "Last": "Jones",
  "Initials": "B D",
  "Address": "21B NW 135 St",
  "City": "Clay",
  "Cust State": "NY",
  "Zip Code": "13041",
  "Credit Limit": "505",
  "Charge Code": "1",
  "Balance Due": "101.00",
  "Credit Due": "400.00",
  "Create Date": "20130316"
 },
...
I expected a value in list or in result.list.
---------------------
Oh, and here is wrklnk:
Directory  . . . . :   /home/bmartin

Type options, press Enter.
  2=Edit   3=Copy   4=Remove   5=Display   7=Rename
  11=Change current directory ...

Opt   Object link            Type     Attribute
      DBKTran                DIR
      Logger.log             STMF
      Louie.json             STMF


On 8/25/2017 6:54 PM, Jon Paris wrote:
> Booth - It appears you have a valid node from opening the doc but since I can't find a copy in the thread of your actual JSON I can't make much of a suggestion as to what to look for next.
>
> Can you give us an extract of the JSON and also a repeat of the first few lines of RPG after the tree build.
>
>
> Jon Paris
>
> www.partner400.com
> www.SystemiDeveloper.com