h copyright('2008 Relational Data Corporation')

      /copy *libl/qrpglesrc,rdwtnapi#1

     d wtn           e ds                  extname(rdwtnp) qualified import
     d order         e ds                  extname(petorder) qualified

      /free

        dow wtnAction('PETORDER');
          if wtnRecGet('PETORDER':%addr(order));
            wtnRecWrt('PETORDER':%addr(order));
            wtnMsgWrt('Thank you, ' + order.firstname
             + '; your order is complete':'':*off);
          endif;
        enddo;

        *inlr = *on;

      /end-free