ABAP - Memory Usage Check

*&---------------------------------------------------------------------**& Report ZUSEMEM*&---------------------------------------------------------------------*REPORT zusemem.
PARAMETERS mb TYPE i.
TYPES:
BEGIN OF ty_tab_s,
ch(1024) TYPE c,
END OF ty_tab_s.
TYPES: ty_tab_t TYPE TABLE OF ty_tab_s.
DATA:
ls TYPE LINE OF ty_tab_t,
lt TYPE ty_tab_t.
DO mb TIMES.
DO 1024 TIMES.
APPEND ls TO lt.
ENDDO.
ENDDO.
SKIP.
WRITE: / 'At the moment ',
mb,
' MB of this program are being used'.
-->