✒️ABAP POO La creación de un programa ABAP Orientado a Objetos
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.
CALL METHOD cont->obtener_contador
IMPORTING
valor = numero.
3.5) Imprimimos el valor.
WRITE numero.
 
 
 
Sobre el autor
Publicación académica de Oscar Perez, en su ámbito de estudios para el Máster ABAP POO.
Oscar Perez
Profesión: Ingeniero de Sistemas. Consultor y Desarrollador en Peoplesoft - Canada - Legajo: FD38F
✒️Autor de: 105 Publicaciones Académicas
🎓Cursando Actualmente: Master en Programación ABAP Orientado a Objetos
🎓Egresado de los módulos:
Certificación Académica de Oscar Perez