report  zunicode_004.
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,
c(2) type i,
end of struc2.

struc1+0(8) = '20090101'.

move struc1 to struc2.

write struc2-a.