Move 2 byte to 1byte & 1 byte to 2 byte

rsm_deepak · Posted: Tue Jun 22, 2010 10:16 am

Can anyone suggest me the following problem:

System C complaining that a field of 2 bytes - 9(2) is not getting populated. After researching I came to know I have to move a variable from Ssytem A -> B -> C.

System A & C is having 2 bytes which is 9(2)
But the System B is having only 1 byte filler. There is no possibility that I can increase a space in system B.

So can I store a 2 byte value in system B with 1 byte &
then move the 1 byte value from B to system C which is of 2 bytes.

dbzTHEdinosauer · Posted: Tue Jun 22, 2010 12:47 pm

not directly, but indirectly.

you can not define 1 byte a packed-decimal.

you need an intermediate field pic 9(4) comp (2 bytes)
and using redefines, access the last byte and move it using pic x(1).

GuyC · Posted: Tue Jun 22, 2010 4:31 pm

will a packed decimal with value 15 not look like x'015F' or x'015C'
so the last byte would be x'5F' ?

you need to multiply by 10 and take the frst byte, i guess.

or take a Binary halfword s9(4) comp and take the last byte.

and better make sure, you don't pass any EBCDIC/ASCII/UNICODE conversion .