Working with Object Oriented ALV

Question

Hi All..
could anyone please send me the sample code for working with OO ALV.
Like.. I have two tables VBAK and VBAP... what I'll do if working with FM approach, is that, I'll join both the tables on certain condition, put the joined data in a Final Internal Table, and then display it in ALV grid using REUSE_ALV_GRID_DISPLAY.
Now I want to do the same thing using OO ALV.
Quick Help will be appreciated very much..
Thanks..

Answer 1

TABLES: zsflight.
G L O B A L   I N T E R N  A L   T A B L E S
   DATA: gi_sflight TYPE STANDARD TABLE OF sflight.
G L O B A L   D A T A
   DATA:
         g_wa_sflight LIKE sflight.
Declare reference variables to the ALV grid and the container
   DATA:
     go_grid             TYPE REF TO cl_gui_alv_grid,
     go_custom_container TYPE REF TO cl_gui_custom_container.
S T A R T - O F - S E L E C T I O N.
   START-OF-SELECTION.
    CALL SCREEN 100.
*&      Module  USER_COMMAND_0100  INPUT
      text
module USER_COMMAND_0100 input.
     CASE SY-UCOMM.
       WHEN 'EXIT'.
         LEAVE PROGRAM.
     ENDCASE.
endmodule.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0100  OUTPUT
      text
module STATUS_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
Create objects
     IF go_custom_container IS INITIAL.
     create object go_custom_container
       exporting
        PARENT                      =
         container_name              = 'ALV_CONTAINER'  “UR CUSTOM CONTROL NAME
        STYLE                       =
        LIFETIME                    = lifetime_default
        REPID                       =
        DYNNR                       =
        NO_AUTODEF_PROGID_DYNNR     =
      EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5
        others                      = 6
     IF sy-subrc <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
     create object go_grid
       exporting
        I_SHELLSTYLE      = 0
        I_LIFETIME        =
         i_parent          = go_custom_container
        I_APPL_EVENTS     = space
        I_PARENTDBG       =
        I_APPLOGPARENT    =
        I_GRAPHICSPARENT  =
        I_USE_VARIANT_CLASS = SPACE
        I_NAME            =
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        others            = 5
     IF sy-subrc <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
PERFORM load_data_into_grid.
     ENDIF.
endmodule.                 " STATUS_0100  OUTPUT
*&      Form  load_data_into_grid
      text
-->  p1        text
<--  p2        text
form load_data_into_grid.
SELECT *
       FROM sflight
       INTO TABLE gi_sflight.
Load data into the grid and display them
CALL METHOD go_grid->set_table_for_first_display
EXPORTING
   I_BYPASSING_BUFFER            =
   I_BUFFER_ACTIVE               =
   I_CONSISTENCY_CHECK           =
    I_STRUCTURE_NAME              = 'SFLIGHT'
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
   IS_LAYOUT                     =
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
  CHANGING
    it_outtab                     = gi_sflight
   IT_FIELDCATALOG               =
   IT_SORT                       =
   IT_FILTER                     =
EXCEPTIONS
   INVALID_PARAMETER_COMBINATION = 1
   PROGRAM_ERROR                 = 2
   TOO_MANY_LINES                = 3
   others                        = 4
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.                    " load_data_into_grid
Name of the structure would be a structure of your alv display and gi_sflight would be the internal containing the data.
Thanks,
Jayant