MVSFORUMS.com

suma · Beginner Joined: 23 Jan 2006 Posts: 65 Topics: 29

I have two fields which occurs as shown below
10 gp1.
15 a1 OCCURS 10 TIMES PIC X(2)
15 a2 OCCURS 10 TIMES PIC X(2)

10 gp2.
15 a1 OCCURS 3 TIMES PIC X(2).
15 a2 OCCURS 3 TIMES PIC X(2) .

I have to move fields a1 of gp1 to a1 of gp2 and a2 of gp1 to a2 of gp2.

but a1,a2 of gp1 occurs 10 times and a1,a2 of gp2 occurs 3 times.

how can I perform this? If I use perform until how times I have use?

plz suggest me the correct answer!!

thanks
suma

Chiru · Beginner Joined: 26 Dec 2005 Posts: 15 Topics: 7

Hi Suma,
You can make thru subscript and Use PERFORM UNTIL SUBSCRIPT > 3
But, you cannot move all the set of values of GP1 you can limit yourself to only 3.

THANKS
-----------
CHIRU

Dibakar · Posted: Mon Jan 23, 2006 3:38 am Post subject:

Assuming that the subordinate items have same name I think, not sure, that the first three elements can also be moved by -

MOVE CORR GP1 to GP2.

kolusu · Posted: Mon Jan 23, 2006 5:05 am Post subject:

suma,

Please search before posting. The exact same question was answered here

http://www.mvsforums.com/helpboards/viewtopic.php?t=5465&highlight=occurs

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu