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:

SSL Handshake Errors with GETURI, MAILTOOL and GreenTools Products SSL Handshake Errors with GETURI, MAILTOOL and GreenTools Products
Posted by October 18, 2021
BVSTools >> BVSTools Software Discussion
MAILTOOL Updated to Retry Sending when GSK SSL Handshake Error 415 (GSK_ERROR_BAD_PEER) is Encountered MAILTOOL Updated to Retry Sending when GSK SSL Handshake Error 415 (GSK_ERROR_BAD_PEER) is Encountered
Posted by August 19, 2021
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
MAILTOOL Updated to Allow List-Unsubscribe and User Defined Headers MAILTOOL Updated to Allow List-Unsubscribe and User Defined Headers
Posted by August 13, 2021
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
AWS signing process in as400 AWS signing process in as400
Posted by August 13, 2021
Programming >> Web Programming
2022 License Price Increase and Consulting Update for Non-Software Specific Assistance 2022 License Price Increase and Consulting Update for Non-Software Specific Assistance
Posted by August 9, 2021
BVSTools >> BVSTools Announcements
Journaling the IFS, SPLTOOL and Java Journaling the IFS, SPLTOOL and Java
Posted by August 4, 2021
BVSTools >> BVSTools Announcements >> Spooled File Tools (SPLTOOL) Specific Announcements
G4MSMAIL Now Allows Wildcard Attachments G4MSMAIL Now Allows Wildcard Attachments
Posted by June 10, 2021
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
G4G Update for Uploading Large Files G4G Update for Uploading Large Files
Posted by May 28, 2021
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
Can We Purchase License Keys for More Than One Year at a Time? Can We Purchase License Keys for More Than One Year at a Time?
Posted by May 21, 2021
BVSTools >> BVSTools Announcements
JOBWATCH 5.10 Released with New Feature to Monitor CPU Percentages JOBWATCH 5.10 Released with New Feature to Monitor CPU Percentages
Posted by May 10, 2021
BVSTools >> BVSTools Announcements >> Job Watch (JOBWATCH) Specific Announcements
Iseries Access data transfer Iseries Access data transfer
Posted by April 29, 2021
IBM Power Systems >> (QGPL) IBM i
YAJL - Parsing YAJL - Parsing
Posted by April 4, 2021
Programming >> RPG Programming
Create LPAR partition and install OS Create LPAR partition and install OS
Posted by March 24, 2021
IBM Power Systems >> (QGPL) IBM i
G4MS Now Allows User/Password Authentication Option G4MS Now Allows User/Password Authentication Option
Posted by March 16, 2021
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
IPDS printer file using CHRSIZ IPDS printer file using CHRSIZ
Posted by February 25, 2021
Programming >> RPG Programming

Reply




Copyright 1983-2020 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).