**free
ctl-opt main (Main) openopt(*nocvtdata) dftActGrp(*no) option(*noDebugIO:*srcStmt);
////////////////////////////////////////////////////////////////////////////////////////
// Main Procedure
////////////////////////////////////////////////////////////////////////////////////////
Dcl-Proc Main ;
   Dcl-Pi  Main;
   End-Pi;
      dcl-ds test ;
         week     char(20);
      end-ds;
   dcl-s i        int(10) inz;
   dcl-s vJsonVar varchar(1000) inz('/tmp/testfile.json');

   data-gen *START
            %data(vJsonVar:'doc=file output=clear')
               %GEN( 'YAJLDTAGEN':'{"sequence type": "array"}');
   for i = 0 by 7 to (3*7);
      exec sql
         values char(week_iso(current_date + :i days))
         into :week;
      data-gen test
               %data(vJsonVar:'doc=file output=continue')
               %GEN( 'YAJLDTAGEN':'{"sequence type": "array"}');
   endfor;

   data-gen *END
            %data(vJsonVar:'doc=file output=continue')
            %GEN( 'YAJLDTAGEN'
            : '{"write to stdout":true, "http status":200 }');

   *inlr = *on;
   return;

End-Proc;