get INT8 typekind dynamic (#1065)

This commit is contained in:
Domi Bigl 2022-11-20 20:44:47 +01:00 committed by GitHub
parent df9db3d55c
commit 684c8f71e0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2115,7 +2115,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
<lv_data2> TYPE data,
<ls_field_conv> TYPE ts_field_conv,
<ls_ddic_object> TYPE x031l,
<ls_sheet_content> TYPE zexcel_s_cell_data.
<ls_sheet_content> TYPE zexcel_s_cell_data,
<fs_typekind_int8> TYPE abap_typekind.
CLEAR: et_data, er_data.
@ -2189,10 +2190,16 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
MOVE-CORRESPONDING ls_field_catalog TO <ls_field_conv>.
READ TABLE lt_ddic_object ASSIGNING <ls_ddic_object> WITH KEY fieldname = <ls_field_conv>-fieldname BINARY SEARCH.
CHECK: sy-subrc EQ 0.
ASSIGN ('CL_ABAP_TYPEDESCR=>TYPEKIND_INT8') TO <fs_typekind_int8>.
IF sy-subrc <> 0.
ASSIGN space TO <fs_typekind_int8>. "not used as typekind!
ENDIF.
CASE <ls_ddic_object>-exid.
WHEN cl_abap_typedescr=>typekind_int
OR cl_abap_typedescr=>typekind_int1
OR cl_abap_typedescr=>typekind_int8
OR <fs_typekind_int8>
OR cl_abap_typedescr=>typekind_int2
OR cl_abap_typedescr=>typekind_packed
OR cl_abap_typedescr=>typekind_decfloat