Assignments Between Structures III
Assignments Between Structures III
*-------------------------------------------------------------
* MOVE: structure <-> structure (Offset)
*-------------------------------------------------------------
report ZCH_UNIEXP_3.
* Before Unicode enabling:
* data: begin of STRUC1,
* F0 type x,
* F1(10) type c,
* F2(20) type c,
* F3 type i,
F4 type p,
* end of STRUC1,
* begin of STRUC2,
* C0 type i,
* C1(10) type c,
* C2(20) type c,
* C3 type x,
* C4 type f,
* end of STRUC2.
* STRUC1+1(30) = STRUC2+4(30).
<---- Unicode error !!* After Unicode enabling:
types: begin of PART1,
F1(10) type c,
F2(20) type c,
end of PART1,
begin of PART 2,
C1(10) type c,
C2(20) type c,
end of PART 2.
data: begin of STRUC1,
F0 type x.
include type PART1 as PART.
data: f3 type i,
f4 type p,
end of STRUC1,
begin of STRUC2,
C0 type i.
include type PART2 as PART.
data: C3 type x,
C4 type f,
end of STRUC2.
STRUC1-PART = STRUC2-PART.