IBM Mainframe Forum

01 var a pic x(5) value spaces.
01 var b pic 9(5) comp-3

mov var a to varb.

what will be the value of var b?

Since the recieving field is numeric: When the sending item is alphanumeric, the data is moved as if the sending item were described as an unsigned integer.
Kind of makes me think that the result would be zero...... But I wonder.....

THE RESULT WILL BE 5 SPACES

Hello,

No, it won't.

Hi Dhiviya,

var b has five zero as 00000. If you display it you may see it in spool area practically.

i think when space are moved to the comp-3...than it will give u soc 7 error..

robin.gcet wrote:i think when space are moved to the comp-3...than it will give u soc 7 error..

If you mean a system 0C7, program check, data exception, no it won't....The 'ZAP' command will not generate one.

it will give a soc-7 error

i tried its giving five sequence zeros for me.its not giving soc 7 error.

I tried it on mainframe.
The maxcc return 4. The compiler said Alphanumeric or national sending fields 'WS-CHANGE-IN1' exceed 18 digits. The right most 18 characters were used as the sender.
But if I give compiler option ARITH(EXTEND), the maxcc=0. The result show 0000.
When i code like this WS-CHANGE-IN1 PIC X(32) VALUE SPACE, even give compiler option ARITH(EXTEND), the maxcc still return 4.