ERPGenie.COM ABAP Tips and Tricks Database | Creating a counter using ABAP OO

Home

Sample Code

ABAP OO

Creating a counter using ABAP OO

Written by Anon.

Sunday, 27 May 2007

To do this using a function group:

REPORT demo_function_group_counter .

DATA number TYPE i VALUE 5.

CALL FUNCTION 'SET_COUNTER'
     EXPORTING
          set_value = number.

DO 3 TIMES.
CALL FUNCTION 'INCREMENT_COUNTER'.
ENDDO.

CALL FUNCTION 'GET_COUNTER'
     IMPORTING
          get_value = number.

WRITE number.

Now to do it using a class....

REPORT demo_class_counter .

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.

CLASS counter IMPLEMENTATION.
METHOD set.
    count = set_value.
ENDMETHOD.
METHOD increment.
    ADD 1 TO count.
ENDMETHOD.
METHOD get.
    get_value = count.
ENDMETHOD.
ENDCLASS.

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

START-OF-SELECTION.

CREATE OBJECT cnt.

CALL METHOD cnt->set EXPORTING set_value = number.

DO 3 TIMES.
    CALL METHOD cnt->increment.
ENDDO.

CALL METHOD cnt->get IMPORTING get_value = number.

WRITE number.

Related Items:

< Prev		Next >

[ Back ]

Login

Main Menu

ABAP Resources

Registered Access

Related Items

Related Items:

Google Search

Google Ads