h copyright('2008 Relational Data Corporation')

      /copy *libl/qrpglesrc,rdwtnapi#1
      /copy *libl/qrpglesrc,rdranapi#1

     d wtn           e ds                  extname(rdwtnp) qualified import
     d i               s             10u 0
     d code            s              8a   varying

      /free

        dow wtnAction('RANDOM');
          for i = 1 to 100;
            code = ranString(4:8);
            wtnRecSet('ADD');
            wtnFldSet('code':code);
            wtnRecWrt('ADD');
          endfor;
          wtnRecWrt('SHOW');
        enddo;

        *inlr = *on;

      /end-free