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

Would that be because even at EOF the code would still run through the
rest of the code in the loop? (I didn't know we were debugging your code
lol)



From: "sjl" <sjl_abc@xxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx,
Date: 11/29/2011 07:51 AM
Subject: Re: RPG400 same fields name of Input and Output files
Update&Writequestion
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



BTW, this code has a bug in it which nobody has pointed out yet...
- sjl


"sjl" wrote in message
news:mailman.13317.1322522345.2520.rpg400-l@xxxxxxxxxxxx...

Like this... ;-)

- sjl


0001.00 FFILEA IF E K DISK
0002.00 FFILEB UF E K DISK A
0003.00 *
0003.04 IFMTA
0003.05 I KEY KEYA
0003.06 I FIELD1 FLD1A
0003.07 I FIELD2 FLD2A
0003.12 *
0004.00 C *INLR DOWEQ*OFF
0005.00 C READ FMTA LR
0006.00 C KEYA CHAINFMTB 99
0007.00 C MOVE FLD1A FIELD1
0008.00 C MOVE FLD2A FIELD2
0009.00 C *IN99 IFEQ *ON
0010.00 C MOVE KEYA KEY
0011.00 C WRITEFMTB
0012.00 C ELSE
0012.01 C UPDATFMTB
0013.00 C ENDIF
0014.00 C ENDDO


"Barbara Morris" wrote in message
news:mailman.13281.1322514835.2520.rpg400-l@xxxxxxxxxxxx...

On 2011/11/28 1:31 PM, Charles Sallee wrote:

Is this a RPG advice site or a re-education camp? This poor guy just
asked a small question and he gets 7 emails advising him to change the
format he is using.

It's a small question, but there isn't a small answer for it.

If Gary, the OP, really is using RPG III, there isn't any* solution to
his problem other than the one he already showed in his question, using
a temp field. So our choice is to answer "sorry, you have to create a
temp for each field", or to answer "here's how you can do it in RPG IV".

* Well, there is actually another RPG III solution which is to use
I-spec renames to rename the fields of one of the files, and then do
manual assignments from one set of fields to another.