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:

Update for Google WorkSpace Accounts (2024): Google Dropping Support for Update for Google WorkSpace Accounts (2024): Google Dropping Support for "Less Secure Apps" May 30th, 2022. What Does This Mean for Your IBM i Email?
Posted by January 19, 2024
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sales By State Report in QuickBooks Online Sales By State Report in QuickBooks Online
Posted by January 13, 2024
QuickBooks >> QuickBooks Online
How to Whitelist GreenTools for G Suite (G4G) For Your Organization How to Whitelist GreenTools for G Suite (G4G) For Your Organization
Posted by November 5, 2023
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
QuickBooks Online Releases QuickBooks Online Releases "New Invoices!"... and It's Terrible!
Posted by October 8, 2023
QuickBooks >> QuickBooks Online
Admin/4i - What is it? Admin/4i - What is it?
Posted by September 30, 2023
Vendor Corner >> MSD Information Technology
BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command
Posted by August 28, 2023
BVSTools >> BVSTools Announcements
MAILTOOL Now Allows Email Redirection for Development and Testing MAILTOOL Now Allows Email Redirection for Development and Testing
Posted by May 27, 2023
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email
Posted by March 29, 2023
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
QuickBooks Online - Subtotals and Discounts Frustration QuickBooks Online - Subtotals and Discounts Frustration
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
BVSTools Software Verified on V7R5 and Power10 BVSTools Software Verified on V7R5 and Power10
Posted by December 9, 2022
BVSTools >> BVSTools Announcements
Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion

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).