Re: Array DS Question

If this what you have in mind, you have to move the values to the Array.

For i = 1 to 10;
POQ(i) = POQ1WB;
Next;

HTH.

Joe D <nike@xxxxxxxxxxxxxx> wrote:
Hi All,

I am trying to create an array of identical fields from a file. I would
like to reference the 10 fields as POQ(1), POQ(2), etc.

I thought all I had to do was something like this:

D DS
D POQ LIKE(POQ1WB)
D DIM(10)
D POQ1WB
D POQ2WB
D POQ3WB
D POQ4WB
D POQ5WB
D POQ6WB
D POQ7WB
D POQ8WB
D POQ9WB
D POQ0WB

to group the 10 fields under POQ. I am making myself use more RPG IV and I
must be remembering this bit wrong. I remember reading a great article
somewhere, but could not find it.

Although I see a value in POQ1WB, the value of POQ(1) is always blank.

Can someone point out what I am doing wrong/missing?
Thanks,
JD