       ctl-opt dftactgrp(*no);

       readTheJson();
       *inlr = *on;

       // FIXME:
       //   - The field lengths (varchar/packed) are guesses
       //       and should be adjusted based on your business rules.
       //   - The array lengths (dim keywords) are also guesses
       //       and should be adjusted based on your business rules

       dcl-proc readTheJson;

         dcl-ds jsonDoc qualified;
           STATUS varchar(7) inz('');
           dcl-ds DATA;
             NAME varchar(26) inz('');
             OPEN_DATE varchar(10) inz('');
             ADDRESS_1 varchar(16) inz('');
             ADDRESS_2 varchar(1) inz('');
             ADDRESS_3 varchar(1) inz('');
             PHONE_NUMBER varchar(12) inz('');
             EMAIL_ADDRESS varchar(31) inz('');
             num_SECONDARY_EMAIL_ADDRESSES int(10) inz(0);
             SECONDARY_EMAIL_ADDRESSES varchar(1) dim(1); // empty;
             INTEGRAL_RX_GROUPS varchar(1) inz('');
             TERMS varchar(28) inz('');
             LIMIT varchar(8) inz('');
             AMOUNT_DUE varchar(7) inz('');
             CURRENT_BALANCE varchar(6) inz('');
             OPEN_BALANCE varchar(4) inz('');
             FUTURE_BALANCE varchar(7) inz('');
             YAJL_15_DAY_BALANCE varchar(4) inz('');
             YAJL_30_DAY_BALANCE varchar(7) inz('');
             YAJL_60_DAY_BALANCE varchar(4) inz('');
             YAJL_90_DAY_BALANCE varchar(7) inz('');
             ELIGIBLE_FOR_CREDIT_CARD_PAYMENTS ind;
           end-ds;
         end-ds;

         dcl-s ifsPathName varchar(5000);

         ifsPathName = '/home/DRIMA/CYB_JVA8/JSON3.JSON';

         //data-into jsonDoc %DATA( ifsPathname
         //                     : 'doc=file case=convert countprefix=num_')
         //              %PARSER( 'YAJLINTO'
         //                     : '{ "document_name": "jsonDoc", +
         //                          "number_prefix": "YAJL_" }');

           Data-Into jsonDoc %DATA( '/home/DRIMA/CYB_JVA8/JSON3.JSON'
                  : 'doc=file case=any     countprefix=num_')
                   %PARSER( 'YAJL/YAJLINTO'   );



       end-proc;