ABAP动态生成内表的三种方法

动态内表的创建和使用主要有以下几点：

• 动态内表的创建，首先要定义动态结构，然后再根据定义的动态结构利用系统一个标准的method：”cl_ALV_table_create=>create_dynamic_table“生成动态内表。
• 动态内表的赋值，遍历动态结构，获取指定的字段，然后给指定的字段赋值。
• 动态内表的读取显示，与赋值相似，遍历动态结构，获取指定的字段，然后读取对应字段的值。
  

其中方法三最简单。

1、方法一

1. TYPE-POOLS:ABAP.
   
2. PARAMETERS p_name TYPE tabname.
   
3. DATA lt_table TYPE TABLE OF dfies. "字段结构表
   
4. DATA ls_table TYPE dfies.
   
5. DATA lr_struc TYPE REF TO cl_abap_structdescr.
   
6. DATA lr_table TYPE REF TO cl_abap_tabledescr.
   
7. DATA lr_type TYPE REF TO cl_abap_typedescr.
   
8. DATA lr_data TYPE REF TO cl_abap_datadescr.
   
9. DATA lt_comp TYPE abap_component_tab.
   
10. DATA ls_comp LIKE LINE OF lt_comp.
    
11. DATA dyn_wa TYPE REF TO data.
    
12. DATA dyn_table TYPE REF TO data.
    
13. DATA l_string TYPE string.
    
14. FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
    
15. <dyn_wa> TYPE ANY.
    
16. *1.获取表中的字段结构
    
17. CALL FUNCTION 'DDIF_NAMETAB_GET'
    
18. EXPORTING
    
19. tabname = p_name
    
20. TABLES
    
21. dfies_tab = lt_table
    
22. EXCEPTIONS
    
23. not_found = 1
    
24. OTHERS = 2.
    
25. IF sy-subrc <> 0.
    
26. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
27. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
28. ENDIF.
    
29. 
    
30. LOOP AT lt_table INTO ls_table.
    
31. CONCATENATE ls_table-tabname '-' ls_table-fieldname INTO l_string.
    
32. ls_comp-name = ls_table-fieldname.
    
33. *读取字段类型
    
34. CALL METHOD cl_abap_datadescr=>describe_by_name
    
35. EXPORTING
    
36. p_name = l_string
    
37. RECEIVING
    
38. p_descr_ref = lr_type
    
39. EXCEPTIONS
    
40. type_not_found = 1
    
41. OTHERS = 2.
    
42. IF sy-subrc <> 0.
    
43. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
44. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
45. ENDIF.
    
46. ls_comp-type ?= lr_type.
    
47. APPEND ls_comp TO lt_comp.
    
48. CLEAR ls_comp.
    
49. ENDLOOP.
    
50. *根据字段目录创建动态结构类型
    
51. CALL METHOD cl_abap_structdescr=>create
    
52. EXPORTING
    
53. p_components = lt_comp
    
54. RECEIVING
    
55. p_result = lr_struc.
    
56. *根据动态结构创建动态内表类型
    
57. CALL METHOD cl_abap_tabledescr=>create
    
58. EXPORTING
    
59. p_line_type = lr_struc
    
60. RECEIVING
    
61. p_result = lr_table.
    
62. *参照动态结构类型和动态内表类型创建内表与工作区
    
63. CREATE DATA dyn_wa TYPE HANDLE lr_struc.
    
64. CREATE DATA dyn_table TYPE HANDLE lr_table.
    
65. *指定内表与工作区到字段符号
    
66. ASSIGN dyn_wa->* TO <dyn_wa>.
    
67. ASSIGN dyn_table->* TO <dyn_table>.
    
68. 
    
69. *从动态表中取数到动态内表中
    
70. SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100
    
71. ROWS FROM (p_name).
    
72. *显示内表中的数据
    
73. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
74. EXPORTING
    
75. i_structure_name = p_name
    
76. TABLES
    
77. t_outtab = <dyn_table>
    
78. EXCEPTIONS
    
79. program_error = 1
    
80. OTHERS = 2.
    
81. IF sy-subrc <> 0.
    
82. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
83. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
84. ENDIF.

复制代码

2、方法二

1. TYPE-POOLS:abap.
   
2. PARAMETERS p_name TYPE tabname.
   
3. DATA: d_ref TYPE REF TO data,
   
4. lt_alv_cat TYPE TABLE OF lvc_s_fcat,
   
5. ls_alv_cat LIKE LINE OF lt_alv_cat.
   
6. 
   
7. DATA: lt_table LIKE TABLE OF dntab.
   
8. DATA: ls_table TYPE dntab.
   
9. 
   
10. FIELD-SYMBOLS : <dyn_table> TYPE table,
    
11. <dyn_wa> TYPE ANY,
    
12. <dyn_field> TYPE ANY.
    
13. *取出表结构的字段目录
    
14. CALL FUNCTION 'NAMETAB_GET'
    
15. EXPORTING
    
16. langu = sy-langu
    
17. tabname = p_name
    
18. TABLES
    
19. nametab = lt_table
    
20. EXCEPTIONS
    
21. no_texts_found = 1.
    
22. *根据取出的字段目录生成参考字段目录
    
23. LOOP AT lt_table INTO ls_table.
    
24. ls_alv_cat-fieldname = ls_table-fieldname.
    
25. ls_alv_cat-ref_table = p_name.
    
26. ls_alv_cat-ref_field = ls_table-fieldname.
    
27. APPEND ls_alv_cat TO lt_alv_cat.
    
28. CLEAR ls_alv_cat.
    
29. ENDLOOP.
    
30. *内表创建
    
31. CALL METHOD cl_alv_table_create=>create_dynamic_table
    
32. EXPORTING
    
33. it_fieldcatalog = lt_alv_cat
    
34. IMPORTING
    
35. ep_table = d_ref.
    
36. *指定生成的内表到字段符号
    
37. ASSIGN d_ref->* TO <dyn_table>.
    
38. *从动态表中取数到动态内表中
    
39. SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100
    
40. ROWS FROM (p_name).
    
41. *显示内表中的数据
    
42. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
43. EXPORTING
    
44. i_structure_name = p_name
    
45. TABLES
    
46. t_outtab = <dyn_table>
    
47. EXCEPTIONS
    
48. program_error = 1
    
49. OTHERS = 2.
    
50. IF sy-subrc <> 0.
    
51. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
52. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
53. ENDIF.

复制代码

3、方法三

1. PARAMETERS p_name TYPE tabname.
   
2. 
   
3. DATA: dyn_table TYPE REF TO data.
   
4. DATA: dyn_wa TYPE REF TO data.
   
5. 
   
6. FIELD-SYMBOLS: <dyn_table> TYPE table,
   
7. <dyn_wa> TYPE ANY.
   
8. 
   
9. *创建动态表结构
   
10. CREATE DATA dyn_table TYPE TABLE OF (p_name).
    
11. *创建动态内表
    
12. ASSIGN dyn_table->* TO <dyn_table>.
    
13. *创建动态工作区结构
    
14. CREATE DATA dyn_wa LIKE LINE OF <dyn_table>.
    
15. *创建动态工作区
    
16. ASSIGN dyn_wa->* TO <dyn_wa>.
    
17. 
    
18. *从动态表中取数到动态内表中
    
19. SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100
    
20. ROWS FROM (p_name).
    
21. *对取出数据进行处理
    
22. LOOP AT <dyn_table> assigning <dyn_wa>.
    
23. "内表数据处理
    
24. ENDLOOP.
    
25. *显示内表中的数据
    
26. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
27. EXPORTING
    
28. i_structure_name = p_name
    
29. TABLES
    
30. t_outtab = <dyn_table>
    
31. EXCEPTIONS
    
32. program_error = 1
    
33. OTHERS = 2.
    
34. IF sy-subrc <> 0.
    
35. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
36. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
37. ENDIF.

复制代码