H CopyRight('Copyright My Way of Looping (c) - 2011')

     H DatEdit(*YMD.)
     H Option( *SrcStmt: *NoDebugIO)
     H DECEDIT(*JOBRUN)

      //*=============================================================
      //*
      //* Function  : Example 2 - My Way of Looping
      //*
      //* ------------------------------------------------------------

     FMWOL0100  IF   E           K DISK

      //==============================================================
      //             DECLARE WORK FIELDS, ARRAYS AND MORE
      //==============================================================

      //---------------------------------------------------------------
      // Declare key list(s) (KLIST)
      //---------------------------------------------------------------
     D kMWOL0100       ds                  LikeRec( MWRECORD : *Key )

     D EOF             s               n   inz( *OFF )
     D chk_MWCODE      s                   like( MWCODE )

      //==============================================================
      // Main Loop
      //==============================================================

      /free

       //---------------------------------------------------------------
       // Init program...
       //---------------------------------------------------------------

         chk_MWCODE = 'P1';

       //---------------------------------------------------------------
       // Read data
       //---------------------------------------------------------------

         kMWOL0100.MWKEY = '1';
         Setll  %kds(kMWOL0100) MWRECORD;

        DoW NOT EOF;

            // Read data
              Read MWRECORD;

            // End of file
              If %eof( MWOL0100 );
               Leave ;
              Endif ;

            // Check if wanted MWCODE
              If ( MWCODE <> chk_MWCODE );
               Iter ;
              Endif ;

            // Process record
              MWKEY   = MWKEY;
              MWNAME  = MWNAME;
              MWCODE  = MWCODE;
              MWTYPE  = MWTYPE;
              MWPRICE = MWPRICE;

        EndDo;

       //---------------------------------------------------------------
       // Stop Program
       //---------------------------------------------------------------
         ExSr StopPgm;

       //---------------------------------------------------------------
       // Stop Program
       //---------------------------------------------------------------
       BegSr StopPgm;

         *inLR = *ON;
         Return;

       EndSr;

      /end-free