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

Como crear un programa ABAP Orientado a Objeto.

Ingresar a la transacción SE38 y crear el programa.

Paso 1: Crear la definición de la clase de la siguientes manera.

CLASS TAXI DEFINITION.
PUBLIC SECTION.
METHODS: inicializar_km IMPORTING value(kilometros) TYPE i,
km_recorridos_dia IMPORTING value(kilometros) TYPE i,
obtener_km_recorridos EXPORTING value(kilometros) TYPE i.
PRIVATE SECTION.
DATA: total_km type i.
ENDCLASS.

Paso 2: Implementar la Clase:

CLASS TAXI IMPLEMENTATION.
METHOD inicializar_km.
total_km = kilometros.
ENDMETHOD.
METHOD km_recorridos_dia.
total_km = total_km + kilometros.
ENDMETHOD.
METHOD obtener_km_recorridos.
kilometros = total_km.
ENDMETHOD.
ENDCLASS.

Paso 3: Desarrollar el programa a partir de la sentencia START-OF-SELECTION.

START-OF-SELECTION.
DATA: km_iniciales TYPE i VALUE 5,
km_diarios TYPE i VALUE 100,
km_totales type i,
im_taxi TYPE REF TO TAXI.
CREATE OBJECT im_taxi.
CALL METHOD im_taxi->inicializar_km
EXPORTING
kilometros = km_iniciales.
DO 30 TIMES.
CALL METHOD im_taxi->km_recorridos_dia
EXPORTING
kilometros = km_diarios.
ENDDO.
CALL METHOD im_taxi->obtener_km_recorridos
IMPORTING
kilometros = km_totales.

WRITE: 'La cantidad de kilometros transitados por el taxi es: ', km_totales.