b'\n_START_ARTICLE_\nABAP\n_START_PARAGRAPH_\nABAP je programovac\xc3\xad jazyk pou\xc5\xbe\xc3\xadvan\xc3\xbd pro v\xc3\xbdvoj aplikac\xc3\xad mySAP.com od firmy SAP.\n_START_SECTION_\nUk\xc3\xa1zka\n_START_PARAGRAPH_\nUk\xc3\xa1zka definice, implementov\xc3\xa1n\xc3\xad a pou\xc5\xbeit\xc3\xad jednoduch\xc3\xa9 lok\xc3\xa1ln\xc3\xad t\xc5\x99\xc3\xaddy (Local class) v reportu/programu._NEWLINE_Modifikovan\xc3\xbd k\xc3\xb3d ze SAP Help Classes - Introductory Example._NEWLINE_*---------------------------------------------------------------------** CLASS lcl_counter DEFINITION*---------------------------------------------------------------------*CLASS lcl_counter DEFINITION._NEWLINE__NEWLINE_  PUBLIC SECTION._NEWLINE_    METHODS: set_value IMPORTING value(i_value) TYPE i,_NEWLINE_             add_value IMPORTING value(i_increment) TYPE i OPTIONAL,_NEWLINE_             get_value RETURNING value(e_value) TYPE i._NEWLINE__NEWLINE_  PRIVATE SECTION._NEWLINE_    DATA l_count TYPE i.ENDCLASS. "lcl_counter DEFINITION*---------------------------------------------------------------------** CLASS lcl_counter IMPLEMENTATION*---------------------------------------------------------------------*CLASS lcl_counter IMPLEMENTATION._NEWLINE__NEWLINE_  METHOD set_value._NEWLINE_    l_count = i_value._NEWLINE_  ENDMETHOD.                    "set_value_NEWLINE__NEWLINE_  METHOD add_value._NEWLINE_    IF i_increment > 0._NEWLINE_      ADD i_increment TO l_count._NEWLINE_    ENDIF._NEWLINE_  ENDMETHOD.                    "add_value_NEWLINE__NEWLINE_  METHOD get_value._NEWLINE_    e_value = l_count._NEWLINE_  ENDMETHOD.                    "get_valueENDCLASS. "lcl_counter IMPLEMENTATION*---------------------------------------------------------------------** Here starts actual reportDATA g_number TYPE i VALUE 5.DATA gref_cnt TYPE REF TO lcl_counter.START-OF-SELECTION._NEWLINE__NEWLINE_  CREATE OBJECT gref_cnt._NEWLINE__NEWLINE_  gref_cnt->set_value( g_number ).       " 5_NEWLINE_  gref_cnt->add_value( 10 ).             " +10_NEWLINE_  g_number = gref_cnt->get_value( ).     " 15_NEWLINE__NEWLINE_  WRITE g_number.'