PROGRAMMAZIONE OOP NR. 1

Programma che crea una classe contatore che utilizza 3 metodi pubblici: SET, INCREMENT e GET

REPORT  zclass1.

CLASS counter DEFINITION.
  PUBLIC SECTION.
    METHODS: set IMPORTING value(set_value) TYPE i,
             increment,
             get EXPORTING value(get_value) TYPE i.

  PRIVATE SECTION.
    DATA count TYPE i.

ENDCLASS.                    "counter DEFINITION

CLASS counter IMPLEMENTATION.
  METHOD set.
    count = set_value.
  ENDMETHOD.                    "set

  METHOD increment.
    ADD 1 TO count.
  ENDMETHOD.                    "increment

  METHOD get.
    get_value = count.
  ENDMETHOD.                    "get
ENDCLASS.                    "counter IMPLEMENTATION

DATA number TYPE i VALUE 5.
DATA cnt TYPE REF TO counter.

START-OF-SELECTION.

  CREATE OBJECT cnt.

  cnt->set( number ).

  DO 3 TIMES.
    cnt->increment( ).
    cnt->get( IMPORTING get_value = number ).

    WRITE:/ number.
  ENDDO.