RE: Cycleing - Multiple Input Files

In my entire 30+ years I've only used field relation indicators once. In fact, that's the only program I've ever seen them used in. I wouldn't wish that on my worst enemy (well, maybe him).

Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Frank.Kolmann@xxxxxxxxxx
Sent: Thursday, August 21, 2008 6:15 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: Cycleing - Multiple Input Files

Weeell since you mention RPG II, if you had a record ID field
that allowed you to distinguish between the 2 records you could
have Program Described input fields and use the Field Record Relation
indicator column.
Did a lot of stuff in RPGII with variable record layouts
and Program Described files before normalised files became the fashion.
No need for external switches etc. etc.

I have two RPG IV programs that are, for the most part, identical. While

there are a few additional bits of logic in the second one, the primary
difference is that the primary input file has a different record length.

What I would like to do is use the EXTIND(*INUx) keyword to condition the

two files; one as IPE the other as ISE. The CL that drives this would

set

the appropriate switch. What I am not sure about is whether or not this
is permissible; can't recall ever doing this in even RPG II, and the
manual didn't answer the question. I can simply make the changes and see

what happens, but I thought if anyone knew that this won't fly it was

save

me some time.

Changing the files to IF and USROPN, while perhaps possible, would not be

the best option if the former idea would work.

I really would like to merge these into a single program to cut down on
the maintenance headaches.

Thanks.

Jerry C. Adams
IBM System i Programmer/Analyst

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.