       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;
           dcl-ds PRIMARY_CUSTOMER;
             CUSTOMER_NUMBER varchar(4) inz('');
             dcl-ds CUSTOMER_INFORMATION;
               RMDEL varchar(1) inz('');
               RMCMP varchar(1) inz('');
               RMCP varchar(1) inz('');
               RMCUST varchar(4) inz('');
               RMNAME varchar(24) inz('');
               RMSRCH varchar(9) inz('');
               RMBNAM varchar(24) inz('');
               RMADD1 varchar(17) inz('');
               RMADD2 varchar(9) inz('');
               RMADD3 varchar(1) inz('');
               RMCITY varchar(7) inz('');
               RMSTAT varchar(2) inz('');
               RMMZIP varchar(5) inz('');
               RMCNTR varchar(3) inz('');
               RMMFON varchar(12) inz('');
               RMMFAX varchar(12) inz('');
               RMMMOD varchar(1) inz('');
               RMEMAL varchar(16) inz('');
               RMTXID varchar(1) inz('');
               RMCCLS varchar(1) inz('');
               RMSMNO varchar(1) inz('');
               RMCMSA varchar(1) inz('');
               RMSMNB varchar(1) inz('');
               RMCMSB varchar(1) inz('');
               RMTERR varchar(4) inz('');
               RMLPAM varchar(7) inz('');
               RMOPDT varchar(8) inz('');
               RMINAD varchar(1) inz('');
               RMEXDT varchar(1) inz('');
               RMBOCD varchar(1) inz('');
               RMCRCK varchar(1) inz('');
               RMFTAX varchar(1) inz('');
               RMCHFR varchar(1) inz('');
               RMPOMN varchar(1) inz('');
               RMSHCM varchar(1) inz('');
               RMLCHG varchar(1) inz('');
               RMSTCD varchar(1) inz('');
               RMSHCD varchar(1) inz('');
               RMSVIA varchar(4) inz('');
               RMSHIP varchar(1) inz('');
               RMROUT varchar(4) inz('');
               RMSTOP varchar(2) inz('');
               RMSHTR varchar(1) inz('');
               RMFOB varchar(1) inz('');
               RMLOC varchar(2) inz('');
               RMBKPR varchar(1) inz('');
               RMPCLS varchar(1) inz('');
               RMODSC varchar(1) inz('');
               RMBPRC varchar(1) inz('');
               RMPPRC varchar(1) inz('');
               RMPGRP varchar(1) inz('');
               RMTERM varchar(2) inz('');
               RMCRLM varchar(5) inz('');
               RMCMGR varchar(2) inz('');
               RMCRAT varchar(1) inz('');
               RMCRAD varchar(8) inz('');
               RMPRAT varchar(1) inz('');
               RMPRAD varchar(8) inz('');
               RMRAN varchar(1) inz('');
               RMRISK varchar(1) inz('');
               RMCURR varchar(6) inz('');
               RMAGE1 varchar(8) inz('');
               RMAGE2 varchar(1) inz('');
               RMAGE3 varchar(1) inz('');
               RMAGE4 varchar(1) inz('');
               RMAMDU varchar(7) inz('');
               RMLPDT varchar(8) inz('');
               RMLIDT varchar(8) inz('');
               RMAVDM varchar(2) inz('');
               RMAVDY varchar(2) inz('');
               RMLTAM varchar(1) inz('');
               RMSMTD varchar(6) inz('');
               RMSYTD varchar(9) inz('');
               RMLSTD varchar(11) inz('');
               RMCMTD varchar(6) inz('');
               RMCYTD varchar(9) inz('');
               RMCRTD varchar(9) inz('');
               RMLCTD varchar(10) inz('');
               RMRTTD varchar(8) inz('');
               RMLRTD varchar(10) inz('');
               RMDSMD varchar(1) inz('');
               RMDSYD varchar(1) inz('');
               RMOMTD varchar(1) inz('');
               RMOYTD varchar(3) inz('');
               RMDMTD varchar(1) inz('');
               RMDYTD varchar(1) inz('');
               RMDCMD varchar(1) inz('');
               RMDCYD varchar(1) inz('');
               RMDDMD varchar(1) inz('');
               RMDDYD varchar(1) inz('');
               RMFUTR varchar(6) inz('');
               RMFOAM varchar(1) inz('');
               RMCSYR varchar(9) inz('');
               RMOPAM varchar(7) inz('');
               RMHIAR varchar(9) inz('');
               RMHIDT varchar(8) inz('');
               RMHIPY varchar(9) inz('');
               RMHPDT varchar(8) inz('');
               RMHIOR varchar(8) inz('');
               RMHODT varchar(8) inz('');
               RMTXST varchar(1) inz('');
               RMTXCN varchar(1) inz('');
               RMCNTY varchar(1) inz('');
               RMTXL1 varchar(1) inz('');
               RMLOC1 varchar(1) inz('');
               RMTXL2 varchar(1) inz('');
               RMLOC2 varchar(1) inz('');
               RMFXIV varchar(1) inz('');
               RMEMIV varchar(1) inz('');
               RMPRIV varchar(1) inz('');
               RMFXST varchar(1) inz('');
               RMEMST varchar(1) inz('');
               RMPRST varchar(1) inz('');
               RMFXSH varchar(1) inz('');
               RMEMSH varchar(1) inz('');
               RMPRSH varchar(1) inz('');
               RMNCNT varchar(1) inz('');
               RMCYCL varchar(1) inz('');
               RMCLDT varchar(1) inz('');
               RMTIME varchar(1) inz('');
               RMCALC varchar(1) inz('');
               RMDTIM varchar(1) inz('');
               RMMON varchar(1) inz('');
               RMTUE varchar(1) inz('');
               RMWED varchar(1) inz('');
               RMTHR varchar(1) inz('');
               RMFRI varchar(1) inz('');
               RMSAT varchar(1) inz('');
               RMSUN varchar(1) inz('');
               RMDY1 varchar(1) inz('');
               RMDY2 varchar(1) inz('');
               RMDY3 varchar(1) inz('');
               RMDY4 varchar(1) inz('');
               RMMTIM varchar(1) inz('');
               RMCTYP varchar(1) inz('');
               RMLCDT varchar(1) inz('');
               RMORDT varchar(8) inz('');
               RMCDYS varchar(1) inz('');
               XCEDI varchar(1) inz('');
               XCIID varchar(1) inz('');
               XCIQ varchar(1) inz('');
               XCGID varchar(1) inz('');
               XCGQ varchar(1) inz('');
               XCVND varchar(1) inz('');
               XCCOM1 varchar(1) inz('');
               XCCOM2 varchar(1) inz('');
               XCVERS varchar(1) inz('');
               XCNETW varchar(1) inz('');
               XC810 varchar(1) inz('');
               XCPRN varchar(1) inz('');
               XCPOST varchar(1) inz('');
               XCAMT varchar(1) inz('');
               XCSHP varchar(1) inz('');
               XC880 varchar(1) inz('');
               XC810C varchar(1) inz('');
               XC812 varchar(1) inz('');
               XC816 varchar(1) inz('');
               XC820 varchar(1) inz('');
               XC830 varchar(1) inz('');
               XC832 varchar(1) inz('');
               XC840 varchar(1) inz('');
               XC843 varchar(1) inz('');
               XC846 varchar(1) inz('');
               XC850 varchar(1) inz('');
               XC852 varchar(1) inz('');
               XC855 varchar(1) inz('');
               XC856 varchar(1) inz('');
               XC860 varchar(1) inz('');
               XC864 varchar(1) inz('');
               XC864M varchar(1) inz('');
               XC867 varchar(1) inz('');
               XC869 varchar(1) inz('');
               XC870 varchar(1) inz('');
               XC997 varchar(1) inz('');
               XCPRID varchar(1) inz('');
               XCPRIC varchar(1) inz('');
               XCKCAR varchar(1) inz('');
               XCSTCS varchar(1) inz('');
               RMCWEB varchar(4) inz('');
               RMWURL varchar(1) inz('');
               RMHITS varchar(1) inz('');
               RMCEXP varchar(1) inz('');
               RMTOTA varchar(1) inz('');
               RMLPOR varchar(1) inz('');
               RMCCTD varchar(8) inz('');
               RMCCTT varchar(5) inz('');
               RMCCTU varchar(8) inz('');
               RMLCGD varchar(8) inz('');
               RMLCGT varchar(6) inz('');
               RMUSLC varchar(8) inz('');
               RMLMTD varchar(8) inz('');
               RMLMTT varchar(6) inz('');
               RMLMYU varchar(8) inz('');
               RMCMPL varchar(1) inz('');
               RMNAIC varchar(1) inz('');
               RMSIC varchar(1) inz('');
               RMSIZE varchar(1) inz('');
               RMSALE varchar(1) inz('');
               RMTICK varchar(1) inz('');
               RMOWNT varchar(1) inz('');
               RMCRCD varchar(1) inz('');
               RMPROS varchar(7) inz('');
               RMFLPAM varchar(1) inz('');
               RMFCRLM varchar(1) inz('');
               RMFFUTR varchar(1) inz('');
               RMFCURR varchar(1) inz('');
               RMFAGE1 varchar(1) inz('');
               RMFAGE2 varchar(1) inz('');
               RMFAGE3 varchar(1) inz('');
               RMFAGE4 varchar(1) inz('');
               RMFAMDU varchar(1) inz('');
               RMFLTAM varchar(1) inz('');
               RMFSMTD varchar(1) inz('');
               RMFSYTD varchar(1) inz('');
               RMFLSTD varchar(1) inz('');
               RMFCMTD varchar(1) inz('');
               RMFCYTD varchar(1) inz('');
               RMFCRTD varchar(1) inz('');
               RMFLCTD varchar(1) inz('');
               RMFRTTD varchar(1) inz('');
               RMFLRTD varchar(1) inz('');
               RMFDSMD varchar(1) inz('');
               RMFDSYD varchar(1) inz('');
               RMFDMTD varchar(1) inz('');
               RMFDYTD varchar(1) inz('');
               RMFDCMD varchar(1) inz('');
               RMFDCYD varchar(1) inz('');
               RMFDDMD varchar(1) inz('');
               RMFDDYD varchar(1) inz('');
               RMFFOAM varchar(1) inz('');
               RMFCSYR varchar(1) inz('');
               RMFOPAM varchar(1) inz('');
               RMFHIAR varchar(1) inz('');
               RMFHIPY varchar(1) inz('');
               RMFHIOR varchar(1) inz('');
               RMFSALE varchar(1) inz('');
               RMACES_ varchar(4) inz('');
               RMFXCF varchar(1) inz('');
               RMEMCF varchar(1) inz('');
               RMPRCF varchar(1) inz('');
               RMBTOC varchar(1) inz('');
               RMTYPE varchar(1) inz('');
               RMGLNT varchar(13) inz('');
               XCVND2 varchar(1) inz('');
               RMRALOW varchar(1) inz('');
               RMOVRHD varchar(1) inz('');
               RMROUT1 varchar(4) inz('');
               RMSTOP1 varchar(2) inz('');
               RMROUT2 varchar(4) inz('');
               RMSTOP2 varchar(2) inz('');
               RMROUT3 varchar(4) inz('');
               RMSTOP3 varchar(2) inz('');
               RMROUT4 varchar(4) inz('');
               RMSTOP4 varchar(2) inz('');
               RMROUT5 varchar(4) inz('');
               RMSTOP5 varchar(2) inz('');
               RMROUT6 varchar(4) inz('');
               RMSTOP6 varchar(2) inz('');
               RMROUT7 varchar(4) inz('');
               RMSTOP7 varchar(2) inz('');
               RMARYTD varchar(1) inz('');
               RMFARYTD varchar(1) inz('');
               RMBRCH varchar(1) inz('');
               RMPARENT varchar(1) inz('');
               RMCRMTD varchar(6) inz('');
               RMRTMTD varchar(1) inz('');
               RMFCRMTD varchar(1) inz('');
               RMFRTMTD varchar(1) inz('');
               RMCMTD_ varchar(1) inz('');
               RMCYTD_ varchar(2) inz('');
               RMRMTD_ varchar(1) inz('');
               RMRYTD_ varchar(2) inz('');
               RMCSMTD varchar(1) inz('');
               RMFCSMTD varchar(1) inz('');
               RMTXGB varchar(1) inz('');
             end-ds;
             dcl-ds PRICING;
               TYPE varchar(2) inz('');
               ID packed(2) inz(0);
               GROUP varchar(7) inz('');
             end-ds;
           end-ds;
           num_GROUPED_CUSTOMERS int(10) inz(0);
           dcl-ds GROUPED_CUSTOMERS dim(2);
             CUSTOMER_NUMBER varchar(4) inz('');
             dcl-ds CUSTOMER_INFORMATION;
               RMDEL varchar(1) inz('');
               RMCMP varchar(1) inz('');
               RMCP varchar(1) inz('');
               RMCUST varchar(4) inz('');
               RMNAME varchar(17) inz('');
               RMSRCH varchar(10) inz('');
               RMBNAM varchar(17) inz('');
               RMADD1 varchar(19) inz('');
               RMADD2 varchar(1) inz('');
               RMADD3 varchar(1) inz('');
               RMCITY varchar(10) inz('');
               RMSTAT varchar(2) inz('');
               RMMZIP varchar(5) inz('');
               RMCNTR varchar(3) inz('');
               RMMFON varchar(12) inz('');
               RMMFAX varchar(12) inz('');
               RMMMOD varchar(1) inz('');
               RMEMAL varchar(24) inz('');
               RMTXID varchar(1) inz('');
               RMCCLS varchar(1) inz('');
               RMSMNO varchar(1) inz('');
               RMCMSA varchar(1) inz('');
               RMSMNB varchar(1) inz('');
               RMCMSB varchar(1) inz('');
               RMTERR varchar(4) inz('');
               RMLPAM varchar(7) inz('');
               RMOPDT varchar(8) inz('');
               RMINAD varchar(1) inz('');
               RMEXDT varchar(1) inz('');
               RMBOCD varchar(1) inz('');
               RMCRCK varchar(1) inz('');
               RMFTAX varchar(1) inz('');
               RMCHFR varchar(1) inz('');
               RMPOMN varchar(1) inz('');
               RMSHCM varchar(1) inz('');
               RMLCHG varchar(1) inz('');
               RMSTCD varchar(1) inz('');
               RMSHCD varchar(1) inz('');
               RMSVIA varchar(4) inz('');
               RMSHIP varchar(1) inz('');
               RMROUT varchar(4) inz('');
               RMSTOP varchar(3) inz('');
               RMSHTR varchar(1) inz('');
               RMFOB varchar(1) inz('');
               RMLOC varchar(2) inz('');
               RMBKPR varchar(1) inz('');
               RMPCLS varchar(1) inz('');
               RMODSC varchar(1) inz('');
               RMBPRC varchar(1) inz('');
               RMPPRC varchar(1) inz('');
               RMPGRP varchar(1) inz('');
               RMTERM varchar(2) inz('');
               RMCRLM varchar(5) inz('');
               RMCMGR varchar(2) inz('');
               RMCRAT varchar(1) inz('');
               RMCRAD varchar(8) inz('');
               RMPRAT varchar(1) inz('');
               RMPRAD varchar(8) inz('');
               RMRAN varchar(1) inz('');
               RMRISK varchar(1) inz('');
               RMCURR varchar(8) inz('');
               RMAGE1 varchar(1) inz('');
               RMAGE2 varchar(1) inz('');
               RMAGE3 varchar(1) inz('');
               RMAGE4 varchar(1) inz('');
               RMAMDU varchar(8) inz('');
               RMLPDT varchar(8) inz('');
               RMLIDT varchar(8) inz('');
               RMAVDM varchar(2) inz('');
               RMAVDY varchar(2) inz('');
               RMLTAM varchar(1) inz('');
               RMSMTD varchar(8) inz('');
               RMSYTD varchar(9) inz('');
               RMLSTD varchar(10) inz('');
               RMCMTD varchar(8) inz('');
               RMCYTD varchar(9) inz('');
               RMCRTD varchar(8) inz('');
               RMLCTD varchar(9) inz('');
               RMRTTD varchar(7) inz('');
               RMLRTD varchar(9) inz('');
               RMDSMD varchar(1) inz('');
               RMDSYD varchar(1) inz('');
               RMOMTD varchar(2) inz('');
               RMOYTD varchar(3) inz('');
               RMDMTD varchar(1) inz('');
               RMDYTD varchar(1) inz('');
               RMDCMD varchar(1) inz('');
               RMDCYD varchar(1) inz('');
               RMDDMD varchar(1) inz('');
               RMDDYD varchar(1) inz('');
               RMFUTR varchar(8) inz('');
               RMFOAM varchar(1) inz('');
               RMCSYR varchar(9) inz('');
               RMOPAM varchar(6) inz('');
               RMHIAR varchar(9) inz('');
               RMHIDT varchar(8) inz('');
               RMHIPY varchar(8) inz('');
               RMHPDT varchar(8) inz('');
               RMHIOR varchar(8) inz('');
               RMHODT varchar(8) inz('');
               RMTXST varchar(1) inz('');
               RMTXCN varchar(1) inz('');
               RMCNTY varchar(2) inz('');
               RMTXL1 varchar(1) inz('');
               RMLOC1 varchar(1) inz('');
               RMTXL2 varchar(1) inz('');
               RMLOC2 varchar(1) inz('');
               RMFXIV varchar(1) inz('');
               RMEMIV varchar(1) inz('');
               RMPRIV varchar(1) inz('');
               RMFXST varchar(1) inz('');
               RMEMST varchar(1) inz('');
               RMPRST varchar(1) inz('');
               RMFXSH varchar(1) inz('');
               RMEMSH varchar(1) inz('');
               RMPRSH varchar(1) inz('');
               RMNCNT varchar(1) inz('');
               RMCYCL varchar(1) inz('');
               RMCLDT varchar(1) inz('');
               RMTIME varchar(1) inz('');
               RMCALC varchar(1) inz('');
               RMDTIM varchar(1) inz('');
               RMMON varchar(1) inz('');
               RMTUE varchar(1) inz('');
               RMWED varchar(1) inz('');
               RMTHR varchar(1) inz('');
               RMFRI varchar(1) inz('');
               RMSAT varchar(1) inz('');
               RMSUN varchar(1) inz('');
               RMDY1 varchar(1) inz('');
               RMDY2 varchar(1) inz('');
               RMDY3 varchar(1) inz('');
               RMDY4 varchar(1) inz('');
               RMMTIM varchar(1) inz('');
               RMCTYP varchar(1) inz('');
               RMLCDT varchar(1) inz('');
               RMORDT varchar(8) inz('');
               RMCDYS varchar(1) inz('');
               XCEDI varchar(1) inz('');
               XCIID varchar(1) inz('');
               XCIQ varchar(1) inz('');
               XCGID varchar(1) inz('');
               XCGQ varchar(1) inz('');
               XCVND varchar(1) inz('');
               XCCOM1 varchar(1) inz('');
               XCCOM2 varchar(1) inz('');
               XCVERS varchar(1) inz('');
               XCNETW varchar(1) inz('');
               XC810 varchar(1) inz('');
               XCPRN varchar(1) inz('');
               XCPOST varchar(1) inz('');
               XCAMT varchar(1) inz('');
               XCSHP varchar(1) inz('');
               XC880 varchar(1) inz('');
               XC810C varchar(1) inz('');
               XC812 varchar(1) inz('');
               XC816 varchar(1) inz('');
               XC820 varchar(1) inz('');
               XC830 varchar(1) inz('');
               XC832 varchar(1) inz('');
               XC840 varchar(1) inz('');
               XC843 varchar(1) inz('');
               XC846 varchar(1) inz('');
               XC850 varchar(1) inz('');
               XC852 varchar(1) inz('');
               XC855 varchar(1) inz('');
               XC856 varchar(1) inz('');
               XC860 varchar(1) inz('');
               XC864 varchar(1) inz('');
               XC864M varchar(1) inz('');
               XC867 varchar(1) inz('');
               XC869 varchar(1) inz('');
               XC870 varchar(1) inz('');
               XC997 varchar(1) inz('');
               XCPRID varchar(1) inz('');
               XCPRIC varchar(1) inz('');
               XCKCAR varchar(1) inz('');
               XCSTCS varchar(1) inz('');
               RMCWEB varchar(4) inz('');
               RMWURL varchar(1) inz('');
               RMHITS varchar(1) inz('');
               RMCEXP varchar(1) inz('');
               RMTOTA varchar(1) inz('');
               RMLPOR varchar(1) inz('');
               RMCCTD varchar(8) inz('');
               RMCCTT varchar(5) inz('');
               RMCCTU varchar(8) inz('');
               RMLCGD varchar(8) inz('');
               RMLCGT varchar(6) inz('');
               RMUSLC varchar(8) inz('');
               RMLMTD varchar(8) inz('');
               RMLMTT varchar(6) inz('');
               RMLMYU varchar(8) inz('');
               RMCMPL varchar(1) inz('');
               RMNAIC varchar(1) inz('');
               RMSIC varchar(1) inz('');
               RMSIZE varchar(1) inz('');
               RMSALE varchar(1) inz('');
               RMTICK varchar(1) inz('');
               RMOWNT varchar(1) inz('');
               RMCRCD varchar(1) inz('');
               RMPROS varchar(7) inz('');
               RMFLPAM varchar(1) inz('');
               RMFCRLM varchar(1) inz('');
               RMFFUTR varchar(1) inz('');
               RMFCURR varchar(1) inz('');
               RMFAGE1 varchar(1) inz('');
               RMFAGE2 varchar(1) inz('');
               RMFAGE3 varchar(1) inz('');
               RMFAGE4 varchar(1) inz('');
               RMFAMDU varchar(1) inz('');
               RMFLTAM varchar(1) inz('');
               RMFSMTD varchar(1) inz('');
               RMFSYTD varchar(1) inz('');
               RMFLSTD varchar(1) inz('');
               RMFCMTD varchar(1) inz('');
               RMFCYTD varchar(1) inz('');
               RMFCRTD varchar(1) inz('');
               RMFLCTD varchar(1) inz('');
               RMFRTTD varchar(1) inz('');
               RMFLRTD varchar(1) inz('');
               RMFDSMD varchar(1) inz('');
               RMFDSYD varchar(1) inz('');
               RMFDMTD varchar(1) inz('');
               RMFDYTD varchar(1) inz('');
               RMFDCMD varchar(1) inz('');
               RMFDCYD varchar(1) inz('');
               RMFDDMD varchar(1) inz('');
               RMFDDYD varchar(1) inz('');
               RMFFOAM varchar(1) inz('');
               RMFCSYR varchar(1) inz('');
               RMFOPAM varchar(1) inz('');
               RMFHIAR varchar(1) inz('');
               RMFHIPY varchar(1) inz('');
               RMFHIOR varchar(1) inz('');
               RMFSALE varchar(1) inz('');
               RMACES_ varchar(4) inz('');
               RMFXCF varchar(1) inz('');
               RMEMCF varchar(1) inz('');
               RMPRCF varchar(1) inz('');
               RMBTOC varchar(1) inz('');
               RMTYPE varchar(1) inz('');
               RMGLNT varchar(13) inz('');
               XCVND2 varchar(1) inz('');
               RMRALOW varchar(1) inz('');
               RMOVRHD varchar(1) inz('');
               RMROUT1 varchar(4) inz('');
               RMSTOP1 varchar(3) inz('');
               RMROUT2 varchar(4) inz('');
               RMSTOP2 varchar(3) inz('');
               RMROUT3 varchar(4) inz('');
               RMSTOP3 varchar(3) inz('');
               RMROUT4 varchar(4) inz('');
               RMSTOP4 varchar(3) inz('');
               RMROUT5 varchar(4) inz('');
               RMSTOP5 varchar(3) inz('');
               RMROUT6 varchar(4) inz('');
               RMSTOP6 varchar(3) inz('');
               RMROUT7 varchar(4) inz('');
               RMSTOP7 varchar(3) inz('');
               RMARYTD varchar(1) inz('');
               RMFARYTD varchar(1) inz('');
               RMBRCH varchar(1) inz('');
               RMPARENT varchar(1) inz('');
               RMCRMTD varchar(1) inz('');
               RMRTMTD varchar(1) inz('');
               RMFCRMTD varchar(1) inz('');
               RMFRTMTD varchar(1) inz('');
               RMCMTD_ varchar(1) inz('');
               RMCYTD_ varchar(2) inz('');
               RMRMTD_ varchar(1) inz('');
               RMRYTD_ varchar(1) inz('');
               RMCSMTD varchar(8) inz('');
               RMFCSMTD varchar(1) inz('');
               RMTXGB varchar(1) inz('');
             end-ds;
             dcl-ds PRICING;
               TYPE varchar(2) inz('');
               ID packed(2) inz(0);
               GROUP varchar(7) inz('');
             end-ds;
           end-ds;
           num_UNGROUPED_CUSTOMERS int(10) inz(0);
           UNGROUPED_CUSTOMERS varchar(1) dim(1); // empty;
           num_CARVEOUTS int(10) inz(0);
           CARVEOUTS varchar(1) dim(1); // empty;
         end-ds;

         dcl-s ifsPathName varchar(5000);

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

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

       end-proc;