Zuweisung zwischen Struktur und Einzelfeld IV
*-------------------------------------------------------------
* MOVE: structure <-> single field
*-------------------------------------------------------------
report ZCH_UNIEXP_8.
data: begin of STRUC,
F1(3) type x,
F2(8) type p,
end of STRUC,
CONTAINER(1000) type c.
* Before Unicode enabling:
* CONTAINER = STRUC. <---- Unicode error
* STRUC = CONTAINER. <---- Unicode error
* After Unicode enabling
* if container is used as temporary transport container (no
* database, no RFC, no file, no offset access to parts of the
* container)
field-symbols: <X_CONTAINER> type x,
<X_STRUC> type x.
assign CONTAINER to <X_CONTAINER> casting.
assign STRUC to <X_STRUC> casting.
<X_CONTAINER> = <X_STRUC>.
<X_STRUC> = <X_CONTAINER>.
* Or use service class cl_abap_container_utilities:
class CL_ABAP_CONTAINER_UTILITIES definition load.
call method CL_ABAP_CONTAINER_UTILITIES =>FILL_CONTAINER_C
exporting IM_VALUE = STRUC
importing EX_CONTAINER = CONTAINER
exceptions ILLEGAL_PARAMETER_TYPE = 1
others = 2.
call method cl_abap_container_utilities=>read_container_c
exporting IM_CONTAINER = CONTAINER
importing EX_VALUE = STRUC
exceptions ILLEGAL_PARAMETER_TYPE = 1
others = 2.