× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.