ctl-opt main(main);

       /copy *libl/qrpglesrc,rdjsnapi#1

       //-------------------------------------------------------------------
       // module-level data
       //-------------------------------------------------------------------

       dcl-s  jsnVal   like(jsnVal_t)          import(*dclcase);

       dcl-s  i        int(10);
       dcl-s  j        int(10);
       dcl-s  doc_p    pointer;

       dcl-ds doc qualified dim(960);
        id uns(5);
        title varchar(50);
        userId uns(5);
        content varchar(500);
        likes uns(5);
        hits uns(5);
        categoryId uns(5);
        imageUrl varchar(80);
       end-ds;

       //-------------------------------------------------------------------
       // main procedure
       //-------------------------------------------------------------------

       dcl-proc main;

        clear doc;

        doc_p = jsnParseStmf('/rdweb/json/test_02.json');

        for j = 1 to 1000;
         i = 0;
         jsnSetIdx(idx_val);
         dow jsnForEach('/');
          exsr load_doc;
         enddo;
        endfor;

        jsnFree(doc_p);

        *inlr = *on;

       //-------------------------------------------------------------------
       // load JSN data into the array
       //-------------------------------------------------------------------

       begsr load_doc;

        i += 1;

        jsnGetVal('/id');
         doc(i).id = %int(jsnval);
        jsnGetVal('/title');
         doc(i).title = jsnval;
        jsnGetVal('/userId');
         doc(i).userId = %int(jsnval);
        jsnGetVal('/content');
         doc(i).content = jsnval;
        jsnGetVal('/likes');
         doc(i).likes = %int(jsnval);
        jsnGetVal('/hits');
         doc(i).hits = %int(jsnval);
        jsnGetVal('/categoryId');
         doc(i).categoryId = %int(jsnval);
        jsnGetVal('/imageUrl');
         doc(i).imageUrl = jsnval;

       endsr;

       end-proc main;