Create ABAP nested data types dynamically within your program | 在程序中动态创建 ABAP 嵌套数据类型
Create ABAP nested data types dynamically within your program | 在程序中动态创建 ABAP 嵌套数据类型
Create ABAP nested data types dynamically within your program
在程序内动态创建 ABAP 嵌套数据类型
Use abapgit to pull up the project code.
请使用 abapgit 拉取项目代码。
DATA: lr_type TYPE REF TO cl_abap_datadescr.
DATA: lt_field_tab TYPE TABLE OF zdos_datadescr.
DATA dyn_data TYPE REF TO data.
FIELD-SYMBOLS: <fs_wa> TYPE any.
INSERT VALUE #( fldname = 'hello' fldtype = 'F' ) INTO lt_field_tab INDEX 1.
INSERT VALUE #( fldname = 'author' fldtype = 'F' ) INTO lt_field_tab INDEX 2.
INSERT VALUE #( fldname = 'skills' fldtype = 'T' ) INTO lt_field_tab INDEX 3.
INSERT VALUE #( fldname = 'skills-name' fldtype = 'F' ) INTO lt_field_tab INDEX 4. "Using ‘-’ to connect superior and subordinate fields
INSERT VALUE #( fldname = 'skills-level' fldtype = 'F' ) INTO lt_field_tab INDEX 5.
lr_type = zcl_dynamic_object=>create_main( field_tab = lt_field_tab type = 'S' ).
TRY.
CREATE DATA dyn_data TYPE HANDLE lr_type.
IF dyn_data IS NOT INITIAL.
ASSIGN dyn_data->* TO <fs_wa>.
ENDIF.
CATCH cx_root INTO DATA(lr_exc).
DATA(lv_message) = lr_exc->get_text( ).
WRITE:/ lv_message.
ENDTRY.
DATA: lr_type TYPE REF TO cl_abap_datadescr.
DATA dyn_data TYPE REF TO data.
DATA json_data TYPE string.
FIELD-SYMBOLS: <fs_wa> TYPE any.
json_data = '{ "hello": "你好！我是一个在运行时才被动态创造出来的嵌套数据类型，请多指教。",' &&
'"author": { "name": "Jack Liang", "favLang": "ABAP", "github": "Jack-Liang/DYNAMIC_DATA" },' &&
'"skills": [ { "name": "ABAP", "level": 95 }, { "name": "JSON", "level": 88 }, { "name": "Coffee", "level": 100 } ] }'.
lr_type = zcl_dynamic_object=>create_main( JSON_DATA = json_data ).
TRY.
CREATE DATA dyn_data TYPE HANDLE lr_type.
IF dyn_data IS NOT INITIAL.
ASSIGN dyn_data->* TO <fs_wa>.
/ui2/cl_json=>deserialize( EXPORTING json = json_data CHANGING data = <fs_wa> ).
ENDIF.
CATCH cx_root INTO DATA(lr_exc).
DATA(lv_message) = lr_exc->get_text( ).
WRITE:/ lv_message.
ENDTRY.
In Usage 1, if you pass a STRUF, such as SFLIGHT-CARRID or S_CARR_ID, to field_tab, the corresponding type is generated instead of the default String type.
You can also specify the underlying ABAP type, such as ( INTTY = 'C' LENGT= 50 ) or ( INTTY = 'P' LENGT = 8 DECIM = 2 ), which will create a variable of the specified type and length.
在 Usage 1 中，如果给 field_tab 传入 STRUF，如 SFLIGHT-CARRID 或 S_CARR_ID，则会生成对应类型，而不是默认的 String 类型；
也可以指定基础的 ABAP 类型，例如 ( INTTY = 'C' LENGT = 50 ) 或者 ( INTTY = 'P' LENGT = 8 DECIM = 2 ), 这将会创建指定类型和长度的变量。
This is a new project. The author cannot guarantee that it will always run correctly. Therefore, please test it thoroughly before using it in a production environment.
If you pass NO_TYPE = '' to CREATE_MAIN when generating via json, the program will infer the possible data types based on json. The results obtained in this way are not always accurate.
这是一个新项目。作者不能保证它总是正确运行。因此，在将其用于生产环境之前，请对其进行彻底的测试。
如果在通过 json 生成时，如果给 CREATE_MAIN 传入 NO_TYPE = '', 程序将根据 json 推测可能的数据类型，需要说明的，这种方式得到的结果并不一定是准确的。
Related Articles 相关文章：
This project also refers to some code from the following project, and we hereby express our gratitude