:::success 🎈 动态代码示例
🎈 生成json示例 :::

执行效果

image.png

代码

  1. REPORT zdym_json.
  3. FIELD-SYMBOLS:<lt_lines> TYPE table,
  4.               <ls_line>  TYPE any.
  6. DATA: lr_table     TYPE REF TO data,
  7.       lr_line      TYPE REF TO data,
  8.       lt_structure TYPE lvc_t_fcat,
  9.       ls_structure TYPE lvc_s_fcat.
  11. DATA: lt_req_comp TYPE cl_abap_structdescr=>component_table,
  12.       ls_req_comp LIKE LINE OF lt_req_comp.
  14. DATA: lo_req_tab  TYPE REF TO data,
  15.       lo_req_data TYPE REF TO data.
  16. FIELD-SYMBOLS: <lt_req_data> TYPE STANDARD TABLE.
  17. FIELD-SYMBOLS: <ls_req_data> TYPE any.
  19. CLEAR: ls_structure.
  20. ls_structure-fieldname = 'CARRID'.
  21. ls_structure-col_pos = 1.
  22. ls_structure-ref_table = 'SFLIGHT'.
  23. ls_structure-ref_field = 'CARRID'.
  24. APPEND ls_structure TO lt_structure.
  27. CLEAR: ls_structure.
  28. ls_structure-fieldname = 'CONNID'.
  29. ls_structure-col_pos = 1.
  30. ls_structure-ref_table = 'SFLIGHT'.
  31. ls_structure-ref_field = 'CONNID'.
  32. APPEND ls_structure TO lt_structure.
  35. CLEAR: ls_structure.
  36. ls_structure-fieldname = 'FLDATE'.
  37. ls_structure-col_pos = 1.
  38. ls_structure-ref_table = 'SFLIGHT'.
  39. ls_structure-ref_field = 'FLDATE'.
  40. APPEND ls_structure TO lt_structure.
  42. CALL METHOD cl_alv_table_create=>create_dynamic_table
  43.   EXPORTING
  44.     it_fieldcatalog = lt_structure
  45.   IMPORTING
  46.     ep_table        = lr_table.
  48. ASSIGN lr_table->* TO <lt_lines>.
  49. CREATE DATA lr_line LIKE LINE OF <lt_lines>.
  50. ASSIGN lr_line->* TO <ls_line>.
  52. " --> 导出结构
  53. CLEAR ls_req_comp.
  54. ls_req_comp-name = 'CARRID'.
  55. ls_req_comp-type ?= cl_abap_tabledescr=>describe_by_name( 'S_CARR_ID' ).
  56. APPEND ls_req_comp TO lt_req_comp.
  58. CLEAR ls_req_comp.
  59. ls_req_comp-name = 'CONNID'.
  60. ls_req_comp-type ?= cl_abap_tabledescr=>describe_by_name( 'S_CONN_ID' ).
  61. APPEND ls_req_comp TO lt_req_comp.
  64. CLEAR ls_req_comp.
  65. ls_req_comp-name = 'TABLE'.
  66. ls_req_comp-type ?= cl_abap_tabledescr=>describe_by_data( <lt_lines> ).
  67. APPEND ls_req_comp TO lt_req_comp.
  69. " 生成对象
  70. DATA(lo_req_type) = cl_abap_structdescr=>create( lt_req_comp ).
  72. DATA(lo_req_tabdesc) = cl_abap_tabledescr=>create(
  73.               p_line_type  = lo_req_type
  74.               p_table_kind = cl_abap_tabledescr=>tablekind_std
  75.               p_unique     = abap_false ).
  77. CREATE DATA lo_req_tab TYPE HANDLE lo_req_tabdesc.
  78. ASSIGN lo_req_tab->* TO <lt_req_data>.
  80. CREATE DATA lo_req_data LIKE LINE OF <lt_req_data>.
  81. ASSIGN lo_req_data->* TO <ls_req_data>.
  82. " <--
  84. " --> 动态查数
  86. DATA: lv_sql TYPE string,
  87.       lv_tab TYPE string.
  89. lv_sql = 'CARRID FLDATE'.
  91. lv_tab = 'SFLIGHT'.
  93. SELECT (lv_sql) FROM (lv_tab) INTO CORRESPONDING FIELDS OF TABLE <lt_lines> .
  95. " <--
  97. " --> 结构赋值
  99. ASSIGN COMPONENT 'CARRID' OF STRUCTURE <ls_req_data> TO FIELD-SYMBOL(<lv_carrid>).
  100. IF sy-subrc = 0.
  101.   <lv_carrid> = '123'.
  102. ENDIF.
  104. ASSIGN COMPONENT 'TABLE' OF STRUCTURE <ls_req_data> TO FIELD-SYMBOL(<lt_table>).
  105. IF sy-subrc = 0.
  106.   MOVE-CORRESPONDING <lt_lines> TO <lt_table>.
  107. ENDIF.
  109. " <--
  111. " --> 基于数据 生成 json
  112. DATA: lv_req_json TYPE string.
  113. lv_req_json = /ui2/cl_json=>serialize( data = lo_req_data
  114.                                         pretty_name = '' ).
  116. " <--
  118. " --> 显示
  119. DATA: lr_xml TYPE REF TO cl_xml_document.
  121. *CREATE OBJECT lr_xml.
  123. CALL TRANSFORMATION sjson2html SOURCE XML lv_req_json RESULT XML DATA(lv_html).
  125. DATA(lv_convert) = cl_abap_codepage=>convert_from( lv_html ).
  127. cl_abap_browser=>show_html( html_string = lv_convert ).
  129. *CALL METHOD lr_xml->parse_string
  130. *  EXPORTING
  131. *    stream = lv_convert.
  132. *
  133. *CALL METHOD lr_xml->display.
  134. " <--