Abapta Object Oriented ALV

TYPES: BEGIN OF ty_output,
         ebeln TYPE ebeln,
         aedat TYPE erdat,
         ernam TYPE ernam,
         ebelp TYPE ebelp,
         matnr TYPE matnr,
         werks TYPE werks_d,
         menge TYPE bstmg,
         meins TYPE bstme,
         netwr TYPE bwert,
       END OF ty_output.

DATA: lt_ekko     TYPE TABLE OF ekko,
      ls_ekko     TYPE ekko,
      lt_ekpo     TYPE TABLE OF ekpo,
      ls_ekpo     TYPE ekpo,
      lt_output   TYPE TABLE OF ty_output,
      ls_output   TYPE ty_output,
      lt_fieldcat TYPE lvc_t_fcat,
      lw_fieldcat TYPE lvc_s_fcat,
      lw_layout   TYPE lvc_s_layo,
      grid        TYPE REF TO cl_gui_alv_grid,
      container   TYPE REF TO cl_gui_custom_container.

START-OF-SELECTION.

  SELECT  FROM ekko INTO TABLE lt_ekko UP TO 10 ROWS.
  IF lt_ekko IS NOT INITIAL.
    SELECT  FROM ekpo INTO TABLE lt_ekpo FOR ALL ENTRIES IN lt_ekko
                       WHERE ebeln = lt_ekko-ebeln.

  ENDIF.

  LOOP AT lt_ekpo INTO ls_ekpo.

    ls_output-ebeln = ls_ekpo-ebeln.
    ls_output-ebelp = ls_ekpo-ebelp.
    ls_output-aedat = ls_ekpo-aedat.
    ls_output-matnr = ls_ekpo-matnr.
    ls_output-werks = ls_ekpo-werks.
    ls_output-menge = ls_ekpo-menge.
    ls_output-meins = ls_ekpo-meins.
    ls_output-netwr = ls_ekpo-netwr.

    READ TABLE lt_ekko INTO ls_ekko WITH KEY ebeln = ls_ekpo-ebeln.
    IF sy-subrc IS INITIAL.
      ls_output-aedat = ls_ekko-aedat.
      ls_output-ernam = ls_ekko-ernam.
    ENDIF.

    APPEND ls_output TO lt_output.
    CLEAR ls_output.

    ENDLOOP.

    IF lt_output IS NOT INITIAL.
      CALL SCREEN 100.
    ENDIF.

MODULE status_0100 OUTPUT.
  SET PF-STATUS 'PF_100'.
  SET TITLEBAR 'TIT_100'.

*build fieldcatalog
  REFRESH lt_fieldcat.
  CLEAR lw_fieldcat.

  "Purchase Order
  lw_fieldcat-fieldname = 'EBELN'.
  lw_fieldcat-seltext = 'Purchase Order'.
  lw_fieldcat-col_pos = 1.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Item
  lw_fieldcat-fieldname = 'EBELP'.
  lw_fieldcat-seltext = 'Item'.
  lw_fieldcat-col_pos = 2.
  lw_fieldcat-outputlen = 5.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Meterial
  lw_fieldcat-fieldname = 'MATNR'.
  lw_fieldcat-seltext = 'Meterial'.
  lw_fieldcat-col_pos = 3.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Plant
  lw_fieldcat-fieldname = 'WERKS'.
  lw_fieldcat-seltext = 'Plant'.
  lw_fieldcat-col_pos = 4.
  lw_fieldcat-outputlen = 5.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Quantity

  lw_fieldcat-fieldname = 'MENGE'.
  lw_fieldcat-seltext = 'Quantity'.
  lw_fieldcat-col_pos = 5.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Unit
  lw_fieldcat-fieldname = 'MEINS'.
  lw_fieldcat-seltext = 'Unit'.
  lw_fieldcat-col_pos = 6.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Value
  lw_fieldcat-fieldname = 'NETWR'.
  lw_fieldcat-seltext = 'Value'.
  lw_fieldcat-col_pos = 7.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Created Date
  lw_fieldcat-fieldname = 'AEDAT'.
  lw_fieldcat-seltext = 'Created Date'.
  lw_fieldcat-col_pos = 8.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Created By
  lw_fieldcat-fieldname = 'ERNAM'.
  lw_fieldcat-seltext = 'Created By'.
  lw_fieldcat-col_pos = 9.
  lw_fieldcat-outputlen = 18.
  APPEND lw_fieldcat TO lt_fieldcat.
  CLEAR lw_fieldcat.

  "Layout
  lw_layout-cwidth_opt = 'X'.
  CREATE OBJECT container
    EXPORTING
      container_name = 'CONTAINER'.

  "Method to create grid
  CREATE OBJECT grid
    EXPORTING
      i_parent = container.
  CALL METHOD grid->set_table_for_first_display
    EXPORTING
      is_layout       = lw_layout
    CHANGING
      it_outtab       = lt_output
      it_fieldcatalog = lt_fieldcat.

ENDMODULE.

&---------------------------------------------------------------------
&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------
       text
*----------------------------------------------------------------------
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK' OR 'UP' OR 'CANCEL'.
      LEAVE PROGRAM.
  ENDCASE.

ENDMODULE.