Re: Defining two fields as one.

[Booth Martin <booth@xxxxxxxxxxxx>]

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

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

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.