ABAP实现简单的结构嵌套及结构赋值

程序代码：

1. TYPES:BEGIN OF ty_name,
   
2.         firstname(10) TYPE c,
   
3.         lastname(10) TYPE c,
   
4.       END OF ty_name.
   
5. TYPES:ty_age TYPE i.
   
6. *定义ty_date类型，分为年月日
   
7. TYPES:BEGIN OF ty_date,
   
8.         year(4) TYPE c,
   
9.         month(2) TYPE c,
   
10.         day(2) TYPE c,
    
11.       END OF ty_date.
    
12. *定义日期类型的临时变量
    
13. DATA date TYPE d.
    
14. 
    
15. TYPES:ty_sfz(18) TYPE c,"身份证
    
16.       ty_mobile(11) TYPE n,
    
17.       ty_sex TYPE c,
    
18.       ty_height(2) TYPE p DECIMALS 2,
    
19.       ty_note TYPE string.
    
20. 
    
21. *开始定义结构 BEGIN OF 结构类型 ..... END OF 结构类型.
    
22. *增加一个create_date.
    
23. TYPES:BEGIN OF ty_person,
    
24.         name TYPE ty_name,
    
25.         age TYPE ty_age,
    
26.         create_date TYPE ty_date,
    
27.         sfz TYPE ty_sfz,
    
28.         mobile1 TYPE ty_mobile,
    
29.         mobile2 TYPE ty_mobile,
    
30.         sex TYPE ty_sex,
    
31.         height TYPE ty_height,
    
32.         note TYPE ty_note,
    
33.       END OF ty_person.
    
34. 
    
35. *定义输出类型
    
36. TYPES:BEGIN OF ty_person_out,
    
37.         name TYPE ty_name,
    
38.         age TYPE ty_age,
    
39.         year(4) TYPE c,
    
40.         mobile1 TYPE ty_mobile,
    
41.       END OF ty_person_out.
    
42. 
    
43. *声明一个该类型的结构wa_person
    
44. DATA wa_person TYPE ty_person.
    
45. 
    
46. *再声明一个输出格式的结构wa_person_out
    
47. DATA wa_person_out TYPE ty_person_out.
    
48. 
    
49. *赋值,调用嵌套结构时，多层次调用
    
50. wa_person-name-firstname = 'Damon'.
    
51. wa_person-name-lastname = 'Vampire'.
    
52. date = sy-datum.
    
53. wa_person-create_date = date.
    
54. wa_person-age = 25.
    
55. wa_person-sfz = '1234567'.
    
56. wa_person-mobile1 = '13811111111'.
    
57. wa_person-mobile2 = '13422222222'.
    
58. wa_person-sex = 'F'.
    
59. wa_person-height = '1.75'.
    
60. wa_person-note = 'Hi My Name is Damon,How are you?'.
    
61. 
    
62. MOVE-CORRESPONDING wa_person TO wa_person_out.
    
63. MOVE-CORRESPONDING wa_person-create_date TO wa_person_out.
    
64. 
    
65. *显示：  调用嵌套结构时，多层次调用
    
66. WRITE:'Name','Age','Year','Mobile1'.
    
67. WRITE: / wa_person_out-name,wa_person_out-age,wa_person_out-year,wa_person_out-mobile1.

复制代码

运行结果：