IT Answers » RPG arrays

RPG Free Array Processing Problem

SKF — Thu, 02 Dec 2010 15:21:30 +0000

If you’ve seen this question before it’s because when I add my code and submit and view it, it is unreadable. I’m trying to get a “clean” representation of my question. Thanks for your patience.

I have loaded a data structure from a database file with three 3 byte fields, i.e. 100101102. It loads into the array just fine. Now, I want to pick the first element of the array and process it’s content, then the second element and the third. Currently, Im attempting to load the first element into a 3 byte standalone field with the %subarr BIF and I get the message (Array has too many omitted indexes) when compiling. Someone in another forum, different problem, said the receiver value must be a %subarr also. Does anyone have any examples of something like this?

Thanks in advance.

Below is my code:

Fmaster if e k disk

Dx s 3u 0

Dy s 3u 0

Ditmtype s 3a

Darr1 s 9 dim(1000)

Dtypes ds

D type1 3a

D type2 3a

D type3 3a

/free

x = 1;

read master;

dow NOT %eof(master) and x <= 600;

arr1 = types;

dow x <= 3;

itmtype = %subarr(arr1:x:3);

x = x + 1;

enddo;

read master;

enddo;

*inlr = *on;

/end-free

The array loads just the way I want it.

RPG Free Array Processing

ShawnKF — Tue, 30 Nov 2010 15:28:13 +0000

I am loading a DS from a database file into an array nine length with three elements, i.e. 100101102. I want to increment the array to load each element one at a time and save it to a standalone variable ( 3 bytes long). In another forum, someone said the receiver must be a %subarr variable. In any case, this code gives an error of (Array has too many omitted indexes).

Below is my code example:

Fmaster    if   e           k disk

Dx               s              3u 0
Dy                s              3u 0
Ditmtype       s              3a
Darr1            s              9    dim(1000)

Dtypes            ds
D type1                          3a
D type2                          3a
D type3                          3a

/free
    x = 1;
    read master;
    dow NOT %eof(master) and x <= 600;
      arr1 = types;
      dow x <= 3;
       itmtype = %subarr(arr1:x:3);
       x = x + 1;
      enddo;
    read master;
    enddo;

    *inlr = *on;

/end-free

The array gets loaded, just as I want but picking out the individual elements from the array gives me the compilation error.

Can anyone please tell me what is the basic difference between arrays and tables in RPG.

Mohan K — Wed, 18 Nov 2009 05:56:54 +0000

Hi All,

Can anyone please tell me what is the basic differance between arrays and tables in RPG and for which type of requirement we have to use arrays and tables.

since there might be bit difference between both of them.

Please explain me.

Sorting data in RPGLE

6r — Fri, 28 Nov 2008 16:46:58 +0000

How to sort data in rpgle program countrywise in program coding only?

RPG Array

Uppikal — Mon, 24 Nov 2008 09:47:42 +0000

Hello !
Can I check for all the elements of an Array in single statement ? e.g. If Array(*All) = *Blanks ?
I want to check that all elements of an array is blank or not.