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.
midrange.com
