RE: RPG read loops

Or you could say:

If record <> 'X'
   Process();
endif;

For more complicated choices you could have a procedure or subroutine
that tells you which records are eligible. More than one way to the
woods.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ricky Thompson
Sent: Tuesday, February 01, 2005 1:55 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: RPG read loops

Here's how I like to code it.

DoW 1 = 1
   Read
   If %eof
      Leave
   End if
   // Do something
Enddo

The reason being is when the manager then comes to you and says the
program you wrote is great but we need to skip all records with a X in
them you can easily change it to: 

DoW 1 = 1
   Read
   If %eof
      Leave
   End if
   If record = 'X'
      Iter
   Endif
   // Do something
Enddo

Then you don't have condition your read with an IF.

Just my 2 cents worth. 

-

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************