*第一种定义嵌套型结构的方法
DATA: BEGIN OF str1,
f_name(4) TYPE c VALUE 'Brad',
l_name(4) TYPE c VALUE 'Pitt',
END OF str1.
DATA: BEGIN OF str2,
name LIKE str1,
email(20) TYPE c VALUE 'abc@aaa.com',
END OF str2.
*第二种定义嵌套型结构的方法
*DATA: BEGIN OF str1,
* f_name(4) TYPE c VALUE 'Brad',
* l_name(4) TYPE c VALUE 'Pitt',
* END OF str1.
*DATA: BEGIN OF str2.
* INCLUDE STRUCTURE str1 as name.
*DATA email(20) TYPE c VALUE 'abc@aaa.com'.
*DATA END OF str2.
*第三种定义嵌套型结构的方法
*TYPES: BEGIN OF str1,
* f_name(4) TYPE c," VALUE 'Brad',
* l_name(4) TYPE c," VALUE 'Pitt',
* END OF str1.
*DATA: BEGIN OF str2.
*INCLUDE TYPE str1 AS name.
*DATA email(20) TYPE c VALUE 'abc@aaa.com'.
*DATA END OF str2.
str2-name-f_name = str1-f_name.
str2-name-l_name = str1-l_name.
WRITE: / str2-name-f_name,
str2-name-l_name,
str2-email.