Re: RPG400 same fields name of Input and Output files Update & Write question

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Also we don't use right-hand indicators for things like end-of-file or 
not-found anymore.

And using an infinite loop and a READ - well, CHAIN would be ever so 
much better.

On 11/25/2011 1:14 PM, Joe Pluta wrote:
> Hi Gary!
>
> Most of your assumptions are correct, but before I take the time to
> address them, would you tell me why you are coding this program?  Is it
> a production program on a live system, or is this just a theoretical
> exercise for some sort of RPG class?  Because in the modern RPG
> programming community, we no longer recommend the use of RPG III style
> coding and indicators.  And even in RPG III, we emphatically recommend
> AGAINST the use of left-hand indicators (such as your 99 LEAVE instruction).
>
> Joe
>
>
> > Hi,
> >
> > I have a simply RPG with one Input file A, one output file B and they have same fields names KEY, FIELD1, FIELD2
> >
> > Here is the code:
> >
> > *LOVAL SETLL A
> > 1 DOWEQ 1
> > READ A 99
> > 99 LEAVE
> >
> > WRITE B
> >
> >
> > ENDDO
> >
> > Without any MOVE (no rename of file B FIELD1&   FIELD2) it can write to file B
> >
> > However, for update operation
> >
> >
> > *LOVAL SETLL A
> > 1 DOWEQ 1
> > READ A 99
> > 99 LEAVE
> >
> > (MOVE FIELD1#TMP)
> >
> > KEY CHAIN B 98
> > (MOVE #TMP FIELD1)
> >
> > N98 UPDATE B
> >
> >
> > ENDDO
> >
> > Without any MOVE in (...), can reading every records in file A update FIELD1&   FIELD2 in file B of the matching key of file B?
> > Further, if I add  MOVE FIELD1 #TMP before CHAIN, and N98 MOVE #TMP FIELD1 after CHIAN, can it only update FIELD1 in file B with value of FIELD1 in file A? and FIELD2 is unchanged in file B?
> >
> >
> > Thanks
> >
> > CHOI