<snip>
Without any MOVE in (...), can reading every records in file A update FIELD1
& FIELD2 in file B of the matching key of file B?
</snip>
When you chain to File B the program values of FIELD1 and FIELD2 will be the
values from File B.
So if you do a chain to File B and then an update to File B without doing
anything else then you are not changing data in File B.
<snip>
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?
</snip>
In this scenario, yes, in File B you will be updating FIELD1 and leaving
FIELD2 unchanged.
Paul Therrien
Andeco Software, LLC
2233 St. Charles Ave
# 704
New Orleans, LA 70130
225-229-2491
paultherrien@xxxxxxxxxxxxxxxxxx
www.andecosoftware.com
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Gary Choi
Sent: Friday, November 25, 2011 11:41 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400 same fields name of Input and Output files Update & Write
question
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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
