report  zunicode_005.
data: begin of struc1,
a(4) type c,
b(4) type c,
c(2) type i,
end of struc1.

data: begin of struc2,
a    type d,
b(2) type i,
c(4) type c,
d    type i,
end of struc2.

struc2+0(8) = '20090101'.

move struc2 to struc1.

write : struc1-a, struc1-b.