bvstone

JSON Parser (JSONTOOL) Update

Posted:

JSON Parser (JSONTOOL) Update

 

Update 03/06/2015:  JSONTOOL has now been updated and tested.  Here is a link to a proof of concept/demo.

Our first version of JSONTOOL, our RPG JSON parser, was limited to strings of 65k in size.

We are currently in the testing mode for a second version of our JSONTOOL that will not only include the F.JSON service program which some of you are using, but it will also contain service program F.JSON2 which will contain a host of new functions and also let you process strings and stream files of up to 16meg.

Here is a small example of how it works using a string:

     H DFTACTGRP(*NO) BNDDIR('BVSTOOLS')
      ****************************************************************
      * Imports
      ****************************************************************
      /COPY QCOPYSRC,P.JSON2
      /COPY QCOPYSRC,P.STRINGS
      ****************************************************************
     D vString         S          65535
     D errMsg          S            256
     D rc              S             10i 0
      *
     D v_id            S            128    DIM(MAX_VEHICLES)
     D v_vin           S            128    DIM(MAX_VEHICLES)
     D v_odo           S             13P 5 DIM(MAX_VEHICLES)
     D v_lpstate       S              2    DIM(MAX_VEHICLES)
      ********************************************************************
      /free

       //vString should NOT be varying
       vString = '{+
                            "id":352104,+
                            "vin":"123456",+
                            "label":"3070",+
                            "color":"WHITE",+
                            "make":"VOLVO",+
                            "model":"VN",+
                            "deviceSerialNumber":"5010395849",+
                            "year":2005,+
                            "odometer":{+
                               "units":"MILES",+
                               "timestamp":"2014-10-14T18:37:13Z",+
                               "readOnly":"TRUE",+
                               "value":199400.38+
                            },+
                            "engineRunTime":{+
                               "isTracked":"ALWAYS",+
                               "timestamp":"2014-10-14T18:33:49Z",+
                               "readOnly":"TRUE",+
                               "value":"P478DT6H24M0.000S"+
                            },+
                            "licensePlate":{+
                               "state":"FL",+
                               "country":"US"+
                            },+
                            "trackableItemType":"VEHICLE",+
                            "fuelType":"DIESEL",+
                            "createdTimestamp":{+
                               "readOnly":true,+
                               "value":"2013-11-15T16:43:47Z"+
                            },+
                             "modifiedTimestamp":{+
                                "readOnly":true,+
                                "value":"2014-10-10T19:11:50Z"+
                            },+
                }';
       #js2_init();
       rc = #js2_loadString(%addr(vString):%len(%trimr(vString)):errMsg);

       if (rc > 0);
         i = 1;
         vElemData = 'id';
         #js2_setValue('tag':vElemData);
         v_id(i) = #js2_getDataStr(errMsg);

         vElemData = 'vin';
         #js2_setValue('tag':vElemData);
         v_vin(i) = #js2_getDataStr(errMsg);

         vElemData = 'odometer:value';
         #js2_setValue('tag':vElemData);
         v_odo(i) = #st_CtoN(#js2_getDataStr(errMsg));

         vElemData = 'licensePlate:state';
         #js2_setValue('tag':vElemData);
         v_lpstate(i) = #js2_getDataStr(errMsg);
       endif;

       #js2_cleanup();
       *INLR = *ON;

      /end-free

As you can see there are a few new subprocedures included.

Processing a stream file looks like the following:

     H DFTACTGRP(*NO) BNDDIR('BVSTOOLS')
      ****************************************************************
      * Imports
      ****************************************************************
      /COPY QCOPYSRC,P.JSON2
      /COPY QCOPYSRC,P.STRINGS
      ****************************************************************
     D MAX_VEHICLES    C                   CONST(999)
      *
     D vElem           S          65535    Varying
     D vElemData       S          65535    Varying
     D errMsg          S            256
     D rc              S             10i 0
     D count           S             10i 0
     D i               S             10i 0
      *
     D v_id            S            128    DIM(MAX_VEHICLES)
     D v_vin           S            128    DIM(MAX_VEHICLES)
     D v_odo           S             13P 5 DIM(MAX_VEHICLES)
     D v_lpstate       S              2    DIM(MAX_VEHICLES)
      ********************************************************************
      /free

       #js2_init();
       #js2_setValue('stmf':'/tmp/jsontestfiles/jsondata.json');
       rc = #js2_loadStmf(errMsg);

       if (rc > 0);
         #js2_setValue('tag':'count');
         count = #st_CtoN(#js2_getDataStr(errMsg));

         for i = 1 to count;
           vElem = 'vehicle[' + %char(i) + ']';
           vElemData = vElem + ':id';
           #js2_setValue('tag':vElemData);
           v_id(i) = #js2_getDataStr(errMsg);

           vElemData = vElem + ':vin';
           #js2_setValue('tag':vElemData);
           v_vin(i) = #js2_getDataStr(errMsg);

           vElemData = vElem + ':odometer:value';
           #js2_setValue('tag':vElemData);
           v_odo(i) = #st_CtoN(#js2_getDataStr(errMsg));

           vElemData = vElem + ':licensePlate:state';
           #js2_setValue('tag':vElemData);
           v_lpstate(i) = #js2_getDataStr(errMsg);
         endfor;

       endif;

       #js2_cleanup();
       *INLR = *ON;

      /end-free

With this example the size of the stream file isn't an issue, unless it's over 16meg.  

We will put together a new proof of concept soon as we're using this in our new application that will allow you to interact with your Microsoft OneDrive account.  More on that later!

Brad


Last edited 03/06/2015 at 11:11:28



Latest Posts:

Create QRCODE in DDS Create QRCODE in DDS
Posted by September 21, 2018
Programming >> RPG Programming
Base64 Encoding a File with RPG Base64 Encoding a File with RPG
Posted by September 6, 2018
Programming >> RPG Programming
Building JSON with RPG and YAJL and Writing to Standard Output Building JSON with RPG and YAJL and Writing to Standard Output
Posted by August 31, 2018
Programming >> Proof of Concept (POC)
How to Delete Files or Empty Trash From Your Google Drive with your IBM i and RPG/ILE How to Delete Files or Empty Trash From Your Google Drive with your IBM i and RPG/ILE
Posted by July 24, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
GreenTools for G Suite (G4G) Updated to Include Delete and Empty Trash Function GreenTools for G Suite (G4G) Updated to Include Delete and Empty Trash Function
Posted by July 24, 2018
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
What to Do If Your License Keys Don't Work What to Do If Your License Keys Don't Work
Posted by July 18, 2018
BVSTools >> BVSTools Software Discussion
MAILTOOL Updated to Allow Failed Message on Invalid Recipient MAILTOOL Updated to Allow Failed Message on Invalid Recipient
Posted by May 20, 2018
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G) Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G)
Posted by April 15, 2018
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
IBM i Related Survey Available IBM i Related Survey Available
Posted by April 7, 2018
IBM Power Systems >> (QGPL) IBM i
BVSTools Releases Braintree Webhook Open Source Application - Node.js BVSTools Releases Braintree Webhook Open Source Application - Node.js
Posted by April 5, 2018
Programming >> Open Source
BVSTools Now Offering Web Services (BETA) BVSTools Now Offering Web Services (BETA)
Posted by April 3, 2018
BVSTools >> BVSTools Announcements
Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2 Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2
Posted by March 29, 2018
Programming >> Web Programming
Still on V7R1 or Earlier?  Here's Why You Should Upgrade NOW! Still on V7R1 or Earlier? Here's Why You Should Upgrade NOW!
Posted by February 21, 2018
IBM Power Systems >> (QGPL) IBM i
Converting a MMDDYY date format to YYMMDD for Sorting Using SQL Converting a MMDDYY date format to YYMMDD for Sorting Using SQL
Posted by February 16, 2018
Programming >> RPG Programming
Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G) Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G)
Posted by February 3, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion

Reply




Copyright 1983-2018 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).