Re: Duplicated file names

That's right.

But that won't compile, will it? If I rename the fields in OUTB, I have to
duplicate all the code that prepares the output fields.

OUTA.OutA = FieldA
OUTB.OutA = FieldA etc

----- Original Message -----
From: "Jerry Adams" <jerry@xxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, June 11, 2007 7:13 PM
Subject: Re: Duplicated file names

David,


It's Monday morning here (don't know about the rest of the world - yet)
so maybe I am just not understanding the situation. So let me
illustrate what I think I am hearing:

Input FILEA has fields:
FieldA
FieldB
FieldC

Output OUTA has fields:
OutA
OutB
OutC

Output OUTB has fields:
OutA
OutB
OutC

The program is doing something like:

OutA = FieldA
(etc.)
IF condition = 'A'
WRITE OUTAR
ELSE
WRITE OUTAR
WRITE OUTBR
ENDIF


The fact that OUTA and OUTB have the same field names would not make any
difference. In fact, the OUT files could have the same field names as
the input file (FILEA). Field names are just user-friendly references
for memory address locations. But you knew that so my simple
illustration is probably inaccurate; i.e., the problem is deeper than my
little mud puddle.


* Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



David Foxwell wrote:

Hi,

I am reading a primary file with the RPG cycle

for each read, I write to one or both of my output files.

The fields of the second output file are also in the first.

How do I do this without having diffferent names and thus moving my data

twice?

What I am doing at the moment, is writing to the first file and at LR I

use SQL to fill the second file from the first. But that way, I'm reading
all the data a second time.

Any ideas?

--
This is the RPG programming on the AS400 / iSeries (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.