MVSFORUMS.com

kxsarn · Beginner Joined: 04 May 2003 Posts: 4 Topics: 3

I want to know how does this work ? Can any one throw some light?

I have a variable structure declaration like this.

01 var-str1.
05 var1 pic 9(4) comp.
05 var2 pic x(3).
05 var3 pic 9(3) comp-3.

01 var-temp pic x(7).

01 var-str2.
05 var4 pic 9(4) comp.
05 var5 pic x(3).
05 var6 pic 9(3) comp-3.

in Procedure division

move var-str1 to var-temp.
move var-temp to var-str2.

but var-str2 has correct values.
I was of the thought that , for comp-3 and comp fields , only the system bothers about allocating the number of bytes and while moving 9(3) comp-3 to a display variable then it has to be of the type s9(3).

But how the above code works?

Sara

slade · Posted: Sun May 04, 2003 3:03 pm Post subject:

Hi Sara,

I'm not sure of what you mean by:

Dibakar · Posted: Mon May 05, 2003 12:19 am Post subject:

What I understand is that moving data from one variable to another will never cause problem. Problem occurs when you try display/compute that data.

In this case problem will occur if you try to display var-temp, since it will contain non displayable data. Otherwise everything looks okay.

Diba.

Glenn · Beginner Joined: 23 Mar 2003 Posts: 56 Topics: 3

moves of group variables are considered to be X moves, so basically the group variables are defined by default to be X(whatever the size of the group). Nothing is wrong in this code since the size of each group is 7 bytes.

kxsarn · Beginner Joined: 04 May 2003 Posts: 4 Topics: 3

Thanks a lot for all your replies. I got it cleared.

Sara