Re: Second time updation of record within the same loop. -- RPG400-L

Dan,

Yes, you're right.  I missed that.

So the logical loop becomes

DoU  LR
Read Record setting on LR at End
If outside range set on LR
If LR is off
   update record
End If
EndDo

Still doesn't explain the "endless loop" though.

Regards,

Jim Langston

"Bale, Dan" wrote:

> Jim,
>
> Just glancing at your pseudocode, but it looks like that if he hits LR
> without falling outside his range test, he will still attempt to update a
> record he doesn't have.
>
> I already submitted my solution.
>
> - Dan Bale
>
> > -----Original Message-----
> > From: Jim Langston [SMTP:jlangston@conexfreight.com]
> > Sent: Friday, June 16, 2000 11:08 AM
> > To:   RPG400-L@midrange.com
> > Subject:      Re: Second time updation of record within the same loop.
> >
> > Little confused here...  One thing that jumps right out at me, though,
> > is that you are going to be changing one record you don't want to.
> >
> > Your logic...
> >
> > DoU  LR
> > Read Record setting on LR at end
> > If outside range turn on LR
> > Update the record
> > EndDo
> >
> > Consider, the first record you are hitting that is outside the range,
> > it is also going to get updated!  When you do the check for range,
> > if the record is outside the range you either need a very large if
> > statement around the rest of the block, or you need to exit from
> > your do loop somehow.  Myself, I use the ifstatement.
> >
> > DoU LR
> > Read Record setting on LR at end
> > If outside range
> >     turn on LR
> > else
> >    Update the record
> > EndIf
> > EndDo
> >
> > Now, other than that, I don't see any flaws in the program logic,
> > or maybe I'm just missing it.  How is your loop getting executed
> > again?  With a Do and Read, it will read thorugh each record once,
> > unless you are doing a SetLL or something.
> >
> > Please explain a little more to me, thanks.
> >
> > Regards,
> >
> > Jim Langston
> >
> >
> > Dileep Mahi wrote:
> >
> > > 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
+---