✒️ABAP POO La creación de un programa ABAP Orientado a Objetos

Unidad-1-Lección-10: Creación de un POO ABAP 1) Crear programa ABAP zprueba_objetos_8_FD38F

2) Definir e implementar clase

Llamaremos a esta clase contador y la misma contendra sus métodos asignar_contador, incrementar_contador y obtener contador. También declarar la variable privada contador.

*----------------------------------------------------------------------*
* CLASS contador DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS contador DEFINITION.
PUBLIC SECTION.
METHODS: asignar_contador IMPORTING value(valor) TYPE i,
incrementar_contador,
obtener_contador EXPORTING value(valor) TYPE i.
PRIVATE SECTION.
DATA contador TYPE i.
ENDCLASS. "contador DEFINITION

En el código de implementación, vemos con más detalle en qué consisten cada uno de los métodos.

*----------------------------------------------------------------------*
* CLASS contador IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS contador IMPLEMENTATION.
METHOD asignar_contador.
contador = valor.
ENDMETHOD. "asignar_contador

METHOD incrementar_contador.
ADD 1 TO contador.
ENDMETHOD. "incrementar_contador

METHOD obtener_contador.
valor = contador.
ENDMETHOD. "obtener_contador
ENDCLASS. "contador IMPLEMENTATION

DATA: numero TYPE i VALUE 5,
cont TYPE REF TO contador.

3) En el evento START-OF-SELECTION agregar el código siguiente:

START-OF-SELECTION.

CREATE OBJECT cont.

CALL METHOD cont->asignar_contador
EXPORTING
valor = numero.

DO 3 TIMES.
CALL METHOD cont->incrementar_contador.
ENDDO.

CALL METHOD cont->obtener_contador
IMPORTING
valor = numero.

WRITE numero.

3.1) Creamos la instancia cont de la clase contador:

CREATE OBJECT cont.

3.2) Asignamos un número inicial llamando al método asignar_contador.

CALL METHOD cont->asignar_contador
EXPORTING
valor = numero.

3.3) Incrementamos este valor en 3, llamando al método incrementar_contador dentro de un DO.

DO 3 TIMES.
CALL METHOD cont->incrementar_contador.
ENDDO.

3.4) Obtenemos el valor final en la variable numero llamando al método obtener_contador.

CALL METHOD cont->obtener_contador
IMPORTING
valor = numero.

3.5) Imprimimos el valor.

WRITE numero.