Re: overlaying arrays in v5r1

[Alan Campin <alan0307d@xxxxxxxxx>]

Assuming CTTA fields are coming from a file you do not need the field
sizes, only the names. The compiler will define them based on the previous
declaration of the file.

d OverCTTA                         ds
d   CTTA01
d   CTTA02
d   ...
d   CTTA10
d   CTTAArray...
d                                               17s 4 Dim(10)
d                                               Overlay OverCTTA)



On Mon, Jan 20, 2014 at 11:22 AM, <paultherrien@xxxxxxxxxxxxxxxxxx> wrote:

> CTTA01    Decimal    17    4
> CTTA02    Decimal    17    4
> CTTA03    Decimal    17    4
> ...
> CTTA10    Decimal    17    4
>
> CTTALL    1   170A
> CTTA                           OVRLAY(CTTALL) LIKE(CTTA01) DIM(10)
>
> Define a single field to overlay the entire set of fields.
> Define your array over that field.
> My example assumes that CTTA01 etal are zoned.  If packed, then CTTALL
> length would be 90a.
>
>
> Paul
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Thomas Garvey
> Sent: Monday, January 20, 2014 12:57 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: overlaying arrays in v5r1
>
> I'm drawing a blank on how to define an array over several fields in a file
> record.
>
> The file has several fields defined as...
>
> CTTA01    Decimal    17    4
> CTTA02    Decimal    17    4
> CTTA03    Decimal    17    4
> etc..
>
> I THOUGHT I could just define the file on an external DS definition, as
> follows...
> D    FileDS    E    DS                        extname(FileName)
>
> Then, just add the array definitions using the overlay keyword, as
> follows...
> D    CTTA                                        overlay(CTTA01) dim(10)
> like(CTTA01)
>
>
> Remembering that this is on a v5r1 system, the compiler rejects it,
> saying,  RNF7303 Subfield defined with keyword OVERLAY is too big;
> specification ignored.
>
> How are ten elements of packed 17/4 too big for a subfield?
>
> How must I specify this?
> --
>
> Pressing on,
>
> Thomas Garvey
>
>
>
> --
> This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.