|
Or, easier yet, use the LEAVE op code - that takes you out of the loop without any checking of the condition specified at DOU or DOW. C *INLR DOUEQ*ON C 'UB' READEFILENAME LR C NLR COLDAT IFGE BRDATE C**** SETON LR C LEAVE C ENDIF C UPDATFILENAME C ENDDO i apologize if this is a double-post. we seem to be experiencing weirdness with our email system. jw ______________________________ Reply Separator _________________________________ Subject: RE: Second time updation of record within the same loop. Author: "Bale; Dan" <DBale@lear.com> at Internet Date: 06/16/2000 11:06 AM Hoo-boy! Hey guys, without getting into the religious war of DOU vs. DOW in this situation, let's just help Dileep, OK? Dileep, In your choice of using DOU, you will have to code a "*INLR IFNE *ON" - "ENDIF" group. The IF statement normally would go right after your READx, and the ENDIF would go right before your ENDDO. In your case, though, since you have another condition that can set LR on, you would place the *INLR IF right after that test. As follows: C *INLR DOUEQ*ON C 'UB' READEFILENAME LR C NLR COLDAT IFGE BRDATE C SETON LR C ENDIF C *INLR IFNE *ON ***** C UPDATFILENAME C ENDIF C ENDDO Not directly related to your question, but I would strongly recommend that you *not* use the plain END opcode; instead use the ENDIF, ENDDO, ENDSL. Makes the code a little bit more readable. Don't know why you've got an endless loop on your pseudocode (I presume this is a different problem than the actual code you presented?). If you've really got an endless loop, then your DOU either is testing the wrong thing or the values that you're testing in the DOU are not changing in the manner you expect them to. Another possibility - in this loop, are you adding records to the same file you're testing for EOF? Or maybe even updating a key value in the record, causing it to "appear" again later in the access path? hth, - Dan Bale > -----Original Message----- > From: Dileep Mahi [SMTP:dileep.mahi@wipro.com] > Sent: Friday, June 16, 2000 5:11 AM > To: RPG400-L@midrange.com > Subject: Second time updation of record within the same loop. > > 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 > +--- +--- | 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 +--- +--- | 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.