"AT END OF" in Class Programming

Question

Hi,
I want to know how to handle the following situation in ABAP within Class programming,
DATA : BEGIN OF LCL_TRAN OCCURS 0,
        TRAN TYPE STRING
      END OF LCL_TRAN.
DATA : BEGIN OF LCL_PROD OCCURS 0,
        PROD TYPE STRING,
      END OF LCL_PROD.
DESCRIBE TABLE LCL_PROD LINES I_PROD.
LOOP AT LCL_MAIN.
READ TABLE LCL_PROD WITH KEY PROD = LCL_MAIN-PROD.
IF SY-SUBRC = 0.
I_MAIN = I_MAIN + 1.
ENDIF.
AT END OF TRAN.
IF I_MAIN = I_PROD.
// I will do the necessary action here
ENDIF.
ENDAT.
ENDLOOP.
At end of each transaction(Tran) which is a item level data i want to do some action. I need AT END OF statement to handle this situation.
How to handle this situation in CLASS (SE24)?
Thank you
Arun Prasad

Answer 1

Hi arun,
classes basically we define for the purpose of <b>Encapsulation</b> principle of object oriented programming.
So as BSP supports strongly Object Oriented Concept, so whatever logic we are implementing we will try to implement in class only.
i have little doubt about what u asked, but still what i understand is that u like to know how to call the methods of a class from the BSP page, if this is the case, then ok, otherwise please let me know in detail.
now i am assumming that i understand ur problem properly, so this is the solution according to that,
suppose u created the class to search the name of sdn developers, lets class named as <b>zcl_sdn_search</b>.
now u like to serach name of developers, for that their is a method in class named as <b>search_developer</b>.
and we also have method to display Business card of that Devloper, named as <b>get_dev_data</b>.
so here is the code which u have to write in onInitialization Event Handler.
data: dev_tab TYPE dev_tab.
CALL METHOD zcl_sdn_search=>search_developer
    EXPORTING
        developer = developer
        forum = forum
        keyword = keyword
    IMPORTING dev_tab = dev_tab
    EXCEPTIONS
        no_search_parameter = 2
        invalid_forum = 4.
if sy-subrc = 4.
  navigation->goto_page( 'invalid_forum.htm' ).
elseif sy-subrc <> 0.
  navigation->goto_page( 'error.htm' ).
endif.
IF sy-subrc = 0.
  CALL METHOD zcl_sdn_search=>get_dev_data
    EXPORTING
      dev_tab = dev_tab
    IMPORTING
      card_tab = card_tab
    EXCEPTIONS
      empty_input_table = 2
      invalid_dev = 4.
ENDIF.
so in the same manner u can call any method, and method contains the business logic or u can take any action depending on situation.
so hope i helped u in some manner. if still u have something different in mind, so let me clear.
Regards,
kamaljeet