Re: Defining two fields as one. -- RPG400-L

Did I misunderstand his problem? I thought the issue was an area in hisfile that was doubly defined in a program described file, and theprogram used just one of the definitions. That was a very commontechnique in a program described file, and very useful primarily becauseunused definitions could be ignored.

I say that because this looked to me like that situation, exactly. Whycan't he just ignore the definitions he isn't using? Just comment ordelete them from the original program before he does the conversion toRPGIV?


HauserSSS wrote:

Hi,

try the following:
1. Add an externally described datastructure for your file
2. Define a subfield that overlays the external datastructure

Let's assume, we have a physical file where on position 30 the Object Name
is defined (10A) and on position 40 the library name (10A). You want to
combine Object Name and library name into a single field with the length of
20A.

Example:
FMyFile    IF   E             DISK
 *-----------------------------------------------------------
D DSMyFile      E DS                  ExtName(MYFILE)
D   NameQual                    20A   Overlay(DSMyFile: 30)
 *-----------------------------------------------------------
 /Free
    Read MyFileF;
    Dsply NameQual;
    *INLR = *On;
 /End-Free

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Willie J. Moore
Gesendet: Freitag, 23. Juni 2006 23:48
An: Midrange-RPG (E-mail)
Betreff: Defining two fields as one.


I am converting some old RPG programs with internally defined files to
RPGIV.

What I have run across is two fields defined as one in the old RPG program.
Ex:     1       5       lot1
        6       10      lot2
        1       10      lotall
Then lotall is used though out the program.

I know that I can do this with DS (Data Structures). Chain to file then move
fields in the DS.  But that seams like a lot of work and extra programming.

I would like to know if there is an easier way to do this that would not
require the use of the DS. I would prefer that whenever a chain/read is done
on file that lotall is build and ready.

Thanks in advance for the help,
William Moore
Cal Fine Wire


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