源代码:
*&---------------------------------------------------------------------* *& Report ZAPPOINTMENT_CHECK_APPT_TYPE *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zappointment_check_appt_type. DATA: lv TYPE c LENGTH 10 VALUE '1234567890'. TYPES: BEGIN OF ty_data, name TYPE c, age TYPE c LENGTH 2, score TYPE c LENGTH 11, content type string, END OF ty_data. DATA: ls_data TYPE ty_data, lt_data TYPE TABLE OF ty_data. ls_data-name = 'c'. ls_data-age = 'ab'. APPEND ls_data TO lt_data. DATA: lt_tadir TYPE TABLE OF tadir, lt_result LIKE lt_tadir, lv_alloc TYPE abap_msize, lv_used LIKE lv_alloc. "SELECT * INTO TABLE lt_tadir FROM tadir. CALL METHOD cl_abap_memory_utilities=>get_memory_size_of_object EXPORTING object = lt_data IMPORTING sizeof_alloc = lv_alloc sizeof_used = lv_used. WRITE:/ 'allocated: ', lv_alloc. WRITE:/ 'used: ', lv_used. BREAK-POINT. CALL METHOD cl_abap_memory_utilities=>get_memory_size_of_object EXPORTING object = lt_data IMPORTING bound_size_alloc = lv_alloc bound_size_used = lv_used. BREAK-POINT. CALL METHOD cl_abap_memory_utilities=>get_memory_size_of_object EXPORTING object = lt_data IMPORTING referenced_size_alloc = lv_alloc referenced_size_used = lv_used. BREAK-POINT.