源代码:
*&---------------------------------------------------------------------*
*& 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.