Re: Data Structure Array

["Captain Jerry" <captainjerry@xxxxxxxxx>]

Ahhh Ha... The array overlays the DS!  That's exactly what I was looking for
Birgitta.  I was trying to (unsuccessfully) Dim(10) the DS line, but the
compile error said I had to qualify the fields (which I'm not into yet!) ~
Thank you so much.
//Captain Jerry/


On 10/18/06, Hauser, Birgitta <Birgitta.Hauser@xxxxxxxxxxx> wrote:
> Hi,
>
> >>I have a regular record in a regular file with 10 like fields in the
> record (3 digit error codes)
>
> >>When I read the record in, I want these 10 error codes to automatically
> appear in a 10 element array.
>
> >>I know this can be done, but I'm at a loss on how to set up my "D"
> Specs,
> or even how to look up what I want to do...
> >>Help?  Anyone... (I'm at v5r3m0)
>
> certainly there are several solutions, but I prefer the following:
> Let's say your fields are named ERR01, ERR02,... ERR10
>
> Define a data structure containing these fields and overlay the data
> structure through an array.
> You simply have to list the fields. Adding a definition or a from/to
> specification is not necessary, because the fields are already defined
> through the F-Specs.
>
> FMyFile    IF   E             DISK
>
>
> *---------------------------------------------------------------------------
> ------
> D  DsMyFile       DS
> D    Err1
> D    Err2
> D    Err3
> D    Err4
> D    Err5
> D    Err6
> D    Err7
> D    Err8
> D    Err9
> D    Err10
> D  ArrayErr                           like(Err1) Overlay(DSMyFile) Dim(10)
>
>
>
> *---------------------------------------------------------------------------
> ------
> /Free
>    Read MyFileFmt;
>    Dsply ArrayErr(1);
>    *InLR = *On;
> /EndIf;
>
>
>
>
>
> Mit freundlichen Grüßen
>
>
>
> i.A. Birgitta Hauser
>
>
>
> LUNZER + PARTNER GMBH
>
> Consulting | Software | Service
>
> Carl-Zeiss-Straße 1
>
> 63755 Alzenau
>
>
>
> Tel:             + 49 6023 951-255
>
> Fax:            + 49 6023 951-111
>
> Internet:      www.lp-gmbh.com <http://www.lp-gmbh.com/>
>
>                  www.rpg-schulung.de <http://www.rpg-schulung.de/>
>
>
>
> --------------------------------------------------------
>
> Handelsregister: Aschaffenburg HRB 4720
>
> Gerichtsstand und Erfüllungsort Alzenau
>
> Ust-IdNr.: DE132093146
>
> Geschäftsführer: Rudolf Gerbert
>
> ---------------------------------------------------------
>
>
>
> --
> 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.