二维码

[基础语法] ABAP动态生成内表的三种方法

Twilight发表于 2015-04-13 15:49GD小鬼 最后回复于 2017-10-15 10:59 [复制链接] 4232 4

动态内表的创建和使用主要有以下几点:
  • 动态内表的创建,首先要定义动态结构,然后再根据定义的动态结构利用系统一个标准的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. LOOP AT lt_table INTO ls_table.
  30. CONCATENATE ls_table-tabname '-' ls_table-fieldname INTO l_string.
  31. ls_comp-name = ls_table-fieldname.
  32. *读取字段类型
  33. CALL METHOD cl_abap_datadescr=>describe_by_name
  34. EXPORTING
  35. p_name = l_string
  36. RECEIVING
  37. p_descr_ref = lr_type
  38. EXCEPTIONS
  39. type_not_found = 1
  40. OTHERS = 2.
  41. IF sy-subrc <> 0.
  42. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  43. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  44. ENDIF.
  45. ls_comp-type ?= lr_type.
  46. APPEND ls_comp TO lt_comp.
  47. CLEAR ls_comp.
  48. ENDLOOP.
  49. *根据字段目录创建动态结构类型
  50. CALL METHOD cl_abap_structdescr=>create
  51. EXPORTING
  52. p_components = lt_comp
  53. RECEIVING
  54. p_result = lr_struc.
  55. *根据动态结构创建动态内表类型
  56. CALL METHOD cl_abap_tabledescr=>create
  57. EXPORTING
  58. p_line_type = lr_struc
  59. RECEIVING
  60. p_result = lr_table.
  61. *参照动态结构类型和动态内表类型创建内表与工作区
  62. CREATE DATA dyn_wa TYPE HANDLE lr_struc.
  63. CREATE DATA dyn_table TYPE HANDLE lr_table.
  64. *指定内表与工作区到字段符号
  65. ASSIGN dyn_wa->* TO <dyn_wa>.
  66. ASSIGN dyn_table->* TO <dyn_table>.

  67. *从动态表中取数到动态内表中
  68. SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100
  69. ROWS FROM (p_name).
  70. *显示内表中的数据
  71. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  72. EXPORTING
  73. i_structure_name = p_name
  74. TABLES
  75. t_outtab = <dyn_table>
  76. EXCEPTIONS
  77. program_error = 1
  78. OTHERS = 2.
  79. IF sy-subrc <> 0.
  80. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  81. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  82. 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. DATA: lt_table LIKE TABLE OF dntab.
  7. DATA: ls_table TYPE dntab.

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

3、方法三
  1. PARAMETERS p_name TYPE tabname.

  2. DATA: dyn_table TYPE REF TO data.
  3. DATA: dyn_wa TYPE REF TO data.

  4. FIELD-SYMBOLS: <dyn_table> TYPE table,
  5. <dyn_wa> TYPE ANY.

  6. *创建动态表结构
  7. CREATE DATA dyn_table TYPE TABLE OF (p_name).
  8. *创建动态内表
  9. ASSIGN dyn_table->* TO <dyn_table>.
  10. *创建动态工作区结构
  11. CREATE DATA dyn_wa LIKE LINE OF <dyn_table>.
  12. *创建动态工作区
  13. ASSIGN dyn_wa->* TO <dyn_wa>.

  14. *从动态表中取数到动态内表中
  15. SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100
  16. ROWS FROM (p_name).
  17. *对取出数据进行处理
  18. LOOP AT <dyn_table> assigning <dyn_wa>.
  19. "内表数据处理
  20. ENDLOOP.
  21. *显示内表中的数据
  22. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  23. EXPORTING
  24. i_structure_name = p_name
  25. TABLES
  26. t_outtab = <dyn_table>
  27. EXCEPTIONS
  28. program_error = 1
  29. OTHERS = 2.
  30. IF sy-subrc <> 0.
  31. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  32. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  33. ENDIF.
复制代码
回复

使用道具 举报

Timor
学写了啊,刚开始接触
回复

使用道具 举报

INK_SAP
学习了,谢谢LZ分享
回复

使用道具 举报

zhongguomao
可以可以,分享走了,谢谢。
回复 支持 反对

使用道具 举报

GD小鬼
深深的爱着楼主
回复 支持 反对

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表