Second time updation of record within the same loop.

["Dileep Mahi" <dileep.mahi@xxxxxxxxx>]

My code follows the following logic

DOU end of file.
Read the file.
If record is valid.
Search for matching record in some other file.
If search is successful, update records in file.
EndDo

My Problem is, after EOF, the same loop is getting executed again from the
start but only with the updated records and obviously the records are
getting updated for the second time again. This goes on and on and my
program never ends.

In this program,
    LR indicator is used to test the end of file in following fashion
1.            *INLR    DOUEQ    *ON
2.            'UB'        READEFILENAME            LR
3. NLR    COLDAT    IFGE    BRDATE
4.                        SETON                              LR
5.                        END
.................
..................
N.                        UPDATFILENAME
...................
X.                       END

While running the loop for second(or subsequent) time, if the condition in
line 3 is satisfied, the LR indicator is set to *ON and control is coming
out of the loop. Then other statements are being processed and the program
is ending.

I want this loop to end after processing the last record of the file. Any
suggestion in resolving this problem are worth a zillion appreciations...

Thanks in advance
Dileep Mahi



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---