RE: LR not turning *ON??

Remember the DOU will always run at-least one time.  So, the READ abc is 
happening, and reading the one record in the file, then - like Sharon said 
- if the LR indicator is in the EQ column, then LR will turn on, and the 
DOU loop will not be executed again.

HTH


Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





"Sharon Wintermute" <SWintermute@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/15/2007 11:24 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: LR not turning *ON??






Make sure the LR on the read is in the EQ column.

Sharon


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Phil Kestenbaum
Sent: Thursday, March 15, 2007 11:22 AM
To: RPG programming on the AS400 / iSeries
Subject: LR not turning *ON??


HI this seems strange but I have a file that happens to contain only one
record. The program has a Read Do loop based on LR:

 

INLR         douEQ     *ON 

              READ       abc                                lr 

 

 INLR         IFEQ      *OFF

 

 

During Debug, I the LR is never set on, which I would expect to happen
w/ only one record. 

 

This is quite baffling to me and I would be most greatful for any
thoughts on this,

 

TVMIA,

Phil 


This message contains information proprietary to our company. It is 
intended to be read only by the individual or entity named above or their 
designee.
Any distribution of this message or the information contained herein 
without written permission from our company is strictly prohibited. If the 
reader of this message is not the intended recipient or an agent 
responsible for delivering it to the intended recipient, you are hereby 
notified that you have received this document in error and that any 
review, dissemination, distribution, or copying of this message is 
strictly prohibited. If you have received this communication in error, 
please notify us immediately by e-mail, and delete the original message.