RE: Renaming fields in External Data Structures

["Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>]

Eric,

I copied this out of our program 'CLRCKS', which has external screen
formats in CLRCKSFM. CLRCKS04 is a screen definition. 

D InPut04       E DS                    ExtName(CLRCKSFM:CLRCKS04) Inz

D  C#04                          6S 0   Dim(48)

D                                       Overlay(Input04:3)


The check#s on the screen start at the 3rd 'input' character and are now
in array C#04.

Tim

      
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Eric Wolf
Sent: Friday, July 11, 2003 11:25 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Renaming fields in External Data Structures


I couldn't figure out how to do it...age is creeping up on me.  Could
you submit a sample.  I know it is only a few lines...


Eric

----- Original Message -----
From: "Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, July 11, 2003 11:01 AM
Subject: RE: Renaming fields in External Data Structures


> Eric,
>
> Would overlaying your externally defined DS with the array you want to

> process solve your problem?
>
> Tim Kredlo
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Eric Wolf
> Sent: Thursday, July 10, 2003 7:08 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Fw: Renaming fields in External Data Structures
>
>
>
> ----- Original Message -----
> From: "Eric Wolf" <eric.wolf@xxxxxxxxxxxxxx>
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Sent: Thursday, July 10, 2003 2:45 PM
> Subject: Renaming fields in External Data Structures
>
>
> > To the group,
> > I have an externally described data structure from a extname code. 
> > There are fields in the external definition that can be processed 
> > quicker as
> array
> > elements.  How do I rename the fields to be able to use them this 
> > way or
> is
> > there no way to do this?
> >
> > TIA,
> > Eric
> >
> _______________________________________________
> 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.
>
> _______________________________________________
> 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.
>
>
_______________________________________________
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.