ctl-opt main(main);

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

       dcl-s  num_jsonDoc   int(10);
       dcl-s  stmf          varchar(128);
       dcl-s  i             int(10);

       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;

        stmf = '/rdweb/json/test_02.json';

        for i = 1 to 1000;
         data-into doc %DATA(stmf
          : 'doc=file case=convert countprefix=num_')
             %parser( 'YAJLINTO'
          : '{ "document_name": "doc", +
             "number_prefix": "YAJL_" }');
        endfor;

        *inlr = *on;

       end-proc;