IBM Mainframe Forum

Hi,

I want to move HEX value to display format.
please find below the example of my requirement. Here i want to move(Bolded Field) value 15 to display format and use it for addition.
it tried moving to 9(2),s9(4) comp-3.But value is not moving correctly.
please let me know, what declaration should i Use?

Example:

::MISS/CATHERINE
11DCEE6CCECCDCDC
5149221313859955

Thanks,
Archana

Hello,

Is there some reason you want to make the intermediate move to "display format"?

Is the value to accumulate fifteen or is it really 21?

Hi Dick,

The value is 15 only. I want to use value 15 as index and want to increment the same.

I tried moving to 9(2) or comp variables,but the value is populating as '0050'


Thanks,
Archana

Hello,

What should happen when the input value is x'1C'?

sorry for confusing

Actual value is 21

Hello,

If the byte is a true binary value, you can move that one byte to the low-order byte of a 2-byte comp field.


in the procedure code,
move zeros to comp-num
move the input byte to calc-byte.

comp-num can now be used to subscript an array (or it can be incremented and then used as the subscript). it is not displayable, but is completely useful for calculating/incrementing.