*&---------------------------------------------------------------------*
*& Report Z_ABAP101_BOMBA_PROCEDURAL
*&
*&---------------------------------------------------------------------*
*& Esse report tem por finalidade esgotar a memória da sessão usando um
*& código procedural
*&---------------------------------------------------------------------*
REPORT Z_ABAP101_BOMBA_PROCEDURAL.
DATA: i_data TYPE STANDARD TABLE OF string.
WHILE 1 = 1.
APPEND `X` TO i_data.
ENDWHILE.*&---------------------------------------------------------------------*
*& Report Z_ABAP101_BOMBA_OO
*&
*&---------------------------------------------------------------------*
*& Esse report tem por finalidade esgotar a memória da sessão usando um
*& código orientado a objetos
*&---------------------------------------------------------------------*
REPORT z_abap101_bomba_oo.
*----------------------------------------------------------------------*
* CLASS lcl_data DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_data DEFINITION.
PUBLIC SECTION.
DATA: ci_data TYPE string.
ENDCLASS. "lcl_data DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_data IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_data IMPLEMENTATION.
ENDCLASS. "lcl_data IMPLEMENTATION
START-OF-SELECTION.
TYPES: ty_o_ref_data TYPE REF TO lcl_data.
DATA: o_data_object TYPE ty_o_ref_data,
i_o_data TYPE STANDARD TABLE OF ty_o_ref_data.
WHILE 1 = 1.
CREATE OBJECT o_data_object.
o_data_object->ci_data = `X`.
APPEND o_data_object TO i_o_data.
ENDWHILE.*&---------------------------------------------------------------------*
*& Report Z_ABAP101_BOMBA_OO
*&
*&---------------------------------------------------------------------*
*& Esse report tem por finalidade esgotar a memória da sessão usando um
*& código orientado a objetos com apenas uma instancia
*&---------------------------------------------------------------------*
REPORT z_abap101_bomba_oo_singleton.
*----------------------------------------------------------------------*
* CLASS lcl_data DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_data DEFINITION.
PUBLIC SECTION.
DATA: ci_i_data TYPE TABLE OF string.
ENDCLASS. "lcl_data DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_data IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_data IMPLEMENTATION.
ENDCLASS. "lcl_data IMPLEMENTATION
START-OF-SELECTION.
TYPES: ty_o_ref_data TYPE REF TO lcl_data.
DATA: o_data_object TYPE ty_o_ref_data.
CREATE OBJECT o_data_object.
WHILE 1 = 1.
APPEND 'X' TO o_data_object->ci_i_data.
ENDWHILE.