ABAP OO data fetch logic

Question

Hi Experts,
                 I have normal report with dat fetch logic. I need to convert my normal code logic to OO abap logic using classes & methods..
Exp:
      select knumh kotabnr vakey datab datbi knuma_bo
             from konh
             into corresponding fields of table i_konh
             for all entries in i_kona
             where knuma_bo eq i_kona-knuma.
Is there any easy way to write the code in OO using classes & methods.
Thanks.

Answer 1

Hi Khan,
Here is the code for your query with OO abap logic i.e. Class and methods.
Code.
TABLES: konh.
data: i_konh TYPE TABLE OF konh,
      i_kona Type TABLE OF kona.
CLASS class_name DEFINITION.
PUBLIC SECTION.
CLASS-METHODS get_details.
ENDCLASS.
CLASS class_name IMPLEMENTATION.
METHOD get_details.
DATA: knumh   TYPE REF TO konh-knumh,
           kotabnr  TYPE REF TO konh-kotabnr,
           vakey    TYPE REF TO konh-vakey,
           datab     TYPE REF TO konh-datab,
           datbi       TYPE REF TO konh-datbi,
          knumabo TYPE REF TO konh-knuma_bo.
select knumh kotabnr vakey datab datbi knuma_bo
             from konh
             into corresponding fields of table i_konh
             for all entries in i_kona
             where knuma_bo eq i_kona-knuma.
ENDMETHOD.
   ENDCLASS.
*Global data.
  data: obj TYPE REF TO class_name.
*Event block.
  START-OF-SELECTION.
CREATE OBJECT: obj.
CALL METHOD obj->get_details.
Regards,
Soundarya.
Edited by: K.Soundarya Singh on Mar 24, 2010 8:42 AM
Edited by: K.Soundarya Singh on Mar 24, 2010 8:43 AM