在ABAP中将一个结构的值赋给动态结构

DATA: ls_source TYPE my_structure,   " 原始结构
      ls_target TYPE REF TO data,     " 动态结构
      lr_target TYPE REF TO data.     " 动态结构引用

FIELD-SYMBOLS: <fs_target> TYPE any.

CREATE DATA ls_target TYPE TABLE OF my_structure.  " 创建动态结构
ASSIGN ls_target->* TO <fs_target>.                " 将动态结构赋给字段符号

ls_source-field1 = 'Value 1'.      " 设置原始结构的值
ls_source-field2 = 'Value 2'.
ls_source-field3 = 'Value 3'.

ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <fs_target> TO <fs_target>-field1.  " 将原始结构的值赋给动态结构
ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <fs_target> TO <fs_target>-field2.
ASSIGN COMPONENT 'FIELD3' OF STRUCTURE <fs_target> TO <fs_target>-field3.

<fs_target> = ls_source.           " 将原始结构的值赋给动态结构