REPORTZBC13_EX_NST.
*NestedStructure
*
将姓名改为
firstname
和
lastname
的结构,长度各
10,
显示和打印
TYPES:BEGINOFty_name,
firstname(10)TYPEc,
lastname(10)TYPEc,
ENDOFty_name.
TYPES:ty_ageTYPEi.
TYPES:ty_sfz(18)TYPEc,
ty_mobile(11)TYPEn,
ty_sexTYPEc,
ty_height(2)TYPEpDECIMALS2,
ty_noteTYPEstring.
*
开始定义结构
BEGINOF
结构类型
.....ENDOF
结构类型
.
TYPES:BEGINOFty_person,
nameTYPEty_name,
ageTYPEty_age,
sfzTYPEty_sfz,
mobile1TYPEty_mobile,
mobile2TYPEty_mobile,
sexTYPEty_sex,
heightTYPEty_height,
noteTYPEty_note,
ENDOFty_person.
*
声明一个该类型的结构
wa_person
DATAwa_personTYPEty_person.
*
赋值
,
调用嵌套结构时,多层次调用
wa_person-name-firstname='Steve'.
wa_person-name-lastname='Jobs'.
wa_person-age=35.
wa_person-sfz='1234567'.
wa_person-mobile1='13811111111'.
wa_person-mobile2='13422222222'.
wa_person-sex='F'.
wa_person-height='1.75'.
wa_person-note='HiMyNameisSteve,Howareyou?'.
*
显示:调用嵌套结构时,多层次调用
WRITE:'Name','Age','Sfz','Mobile1','Mobile2','Sex','Height','Note'.