Re: Using %SUBAR to load array from a field

Thanks Joep,
That was the final solution that I came up with.

 
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
  
 






________________________________
From: "J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx" <J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Tue, June 1, 2010 10:34:34 AM
Subject: Re: Using %SUBAR to load array from a field

Jeff,

%SubArr(Lines : 1: %Elem(Lines)) is exactly the same as Lines: take the
part of Lines that starts with element 1 and ends with element
%Elem(Lines); i.e. the whole array.

So you are assigning the value of XsScrn to Lines; because Lines is an
array, all elements will get the value of XsScrn; because XsScrn does not
fit in an array element, all elements will be filled with the first 80
characters of XsScrn.

Simplest would be to define XsScrn as a data structure (or in a DS) and
overlay it with Lines.

Joep Beckeringh


rpg400-l-bounces@xxxxxxxxxxxx wrote on 01-06-2010 15:56:31:

Jeff Young

I have an array of 24 elements that I need to load from a field.
In fixed form, I would use the MOVEA to do this.
In Free Form, I am attempting to use the %SUBARR BIF.
However, what I end up with is all elements of my array set to
the same value, which is the first element of the array.
The statement is coded as follows:
  %SubArr(Lines : 1 : %Elem(Lines)) = XsScrn;
Lines is defined as 24 entries
XsScrn is a field from a file that is 1920.

What am I missing?

Thanks,

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2
IBM  Certified Specialist- e(logo) server i5Series Technical
Solutions Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3