Error whil adding Header to the ALV grid using OO

Question

Hi Guys,
             I want to display the Header for the ALV grid using Splitter .
when i am doing like that .I am getting  a screen on the top of that screen I am getting a EMPTY screen .I don't know why likat.
What i need is just to display a Grid with header?Can anybody Please help me reagarding this problem.
the Code is Below.
*& Report  Z_TEST_PGM
REPORT  Z_TEST_PGM NO STANDARD PAGE HEADING
                                  LINE-SIZE 120 MESSAGE-ID zotc.
Tables : CKMLMV003 , CKMLMV001.
TYPE-POOLS: slis.
Types : Begin of t_CKMLMV003_out,
             WERKS type CKMLMV003-WERKS,
             MATNR type CKMLMV003-MATNR,
             MISCH_VERH type CKMLMV003-MISCH_VERH,
             KALNR_BAL type CKMLMV003-KALNR_BAL,
             GJAHR type CKMLMV003-GJAHR,
             PERIO type CKMLMV003-PERIO,
             MGTYP type CKMLMV003-MGTYP,
        End of t_CKMLMV003_out,
        Begin of t_CKMLMV001_out,
             MATNR type CKMLMV001-MATNR,
             KALNR type CKMLMV001-KALNR,
             LIFNR_ND type CKMLMV001-LIFNR_ND,
             EKORG_ND type CKMLMV001-EKORG_ND,
        End of t_CKMLMV001_out,
        Begin of t_CKMLMV003_Temp,
             MATNR type CKMLMV003-MATNR,
             GJAHR type CKMLMV003-GJAHR,
             PERIO type CKMLMV003-PERIO,
        End of t_CKMLMV003_Temp,
        Begin of t_Final_out,
             MATNR type CKMLMV003-MATNR,
             GJAHR type CKMLMV003-GJAHR,
             PERIO type CKMLMV003-PERIO,
             WERKS type CKMLMV003-WERKS,
             LIFNR_ND1 type CKMLMV001-LIFNR_ND,
             MISCH_VERH1 type CKMLMV003-MISCH_VERH,
             LIFNR_ND2 type CKMLMV001-LIFNR_ND,
             MISCH_VERH2 type CKMLMV003-MISCH_VERH,
             LIFNR_ND3 type CKMLMV001-LIFNR_ND,
             MISCH_VERH3 type CKMLMV003-MISCH_VERH,
             LIFNR_ND4 type CKMLMV001-LIFNR_ND,
             MISCH_VERH4 type CKMLMV003-MISCH_VERH,
             LIFNR_ND5 type CKMLMV001-LIFNR_ND,
             MISCH_VERH5 type CKMLMV003-MISCH_VERH,
             LIFNR_ND6 type CKMLMV001-LIFNR_ND,
             MISCH_VERH6 type CKMLMV003-MISCH_VERH,
             LIFNR_ND7 type CKMLMV001-LIFNR_ND,
             MISCH_VERH7 type CKMLMV003-MISCH_VERH,
             LIFNR_ND8 type CKMLMV001-LIFNR_ND,
             MISCH_VERH8 type CKMLMV003-MISCH_VERH,
             LIFNR_ND9 type CKMLMV001-LIFNR_ND,
             MISCH_VERH9 type CKMLMV003-MISCH_VERH,
             LIFNR_ND10 type CKMLMV001-LIFNR_ND,
             MISCH_VERH10 type CKMLMV003-MISCH_VERH,
             LIFNR_ND11 type CKMLMV001-LIFNR_ND,
             MISCH_VERH11 type CKMLMV003-MISCH_VERH,
             LIFNR_ND12 type CKMLMV001-LIFNR_ND,
             MISCH_VERH12 type CKMLMV003-MISCH_VERH,
             LIFNR_ND13 type CKMLMV001-LIFNR_ND,
             MISCH_VERH13 type CKMLMV003-MISCH_VERH,
         End of t_Final_out,
       Begin of t_Final_out1,
             MATNR type CKMLMV003-MATNR,
             GJAHR type CKMLMV003-GJAHR,
             PERIO type CKMLMV003-PERIO,
             LIFNR_ND1 type CKMLMV001-LIFNR_ND,
             MISCH_VERH1 type CKMLMV003-MISCH_VERH,
             LIFNR_ND2 type CKMLMV001-LIFNR_ND,
             MISCH_VERH2 type CKMLMV003-MISCH_VERH,
             LIFNR_ND3 type CKMLMV001-LIFNR_ND,
             MISCH_VERH3 type CKMLMV003-MISCH_VERH,
             LIFNR_ND4 type CKMLMV001-LIFNR_ND,
             MISCH_VERH4 type CKMLMV003-MISCH_VERH,
             LIFNR_ND5 type CKMLMV001-LIFNR_ND,
             MISCH_VERH5 type CKMLMV003-MISCH_VERH,
             LIFNR_ND6 type CKMLMV001-LIFNR_ND,
             MISCH_VERH6 type CKMLMV003-MISCH_VERH,
             LIFNR_ND7 type CKMLMV001-LIFNR_ND,
             MISCH_VERH7 type CKMLMV003-MISCH_VERH,
             LIFNR_ND8 type CKMLMV001-LIFNR_ND,
             MISCH_VERH8 type CKMLMV003-MISCH_VERH,
             LIFNR_ND9 type CKMLMV001-LIFNR_ND,
             MISCH_VERH9 type CKMLMV003-MISCH_VERH,
             LIFNR_ND10 type CKMLMV001-LIFNR_ND,
             MISCH_VERH10 type CKMLMV003-MISCH_VERH,
             LIFNR_ND11 type CKMLMV001-LIFNR_ND,
             MISCH_VERH11 type CKMLMV003-MISCH_VERH,
             LIFNR_ND12 type CKMLMV001-LIFNR_ND,
             MISCH_VERH12 type CKMLMV003-MISCH_VERH,
             LIFNR_ND13 type CKMLMV001-LIFNR_ND,
             MISCH_VERH13 type CKMLMV003-MISCH_VERH,
         End of t_Final_out1.
                      Global Structures                              *
Data : i_CKMLMV003_str   type   t_CKMLMV003_out,
       i_CKMLMV001_str   type   t_CKMLMV001_out,
       i_Final_str   type  t_Final_out,
       i_Final_str1   type  t_Final_out,
       i_CKMLMV003_Temp type   t_CKMLMV003_Temp.
                          Global Internal Tables                        *
Data : i_CKMLMV003_out   type standard table of  t_CKMLMV003_out,
       i_CKMLMV001_out  type standard table of  t_CKMLMV001_out,
       i_Final_out   type standard table of  t_Final_out,
       i_Final_out1   type standard table of  t_Final_out.
ALV Report Internal tables    *
DATA : t_fieldcatalog TYPE slis_t_fieldcat_alv,
       s_fieldcatalog TYPE slis_fieldcat_alv,
       t_basic_fieldcatalog TYPE slis_t_fieldcat_alv,
       s_basic_fieldcatalog TYPE slis_fieldcat_alv,
       t_sort  TYPE slis_t_sortinfo_alv,
       v_repid TYPE sy-repid.
*ALV Header declarations
Data: t_header type slis_t_listheader,
      i_header_str type slis_listheader,
      i_line_event_str TYPE slis_alv_event,
      i_events TYPE slis_t_event,
      wa_layout  type slis_layout_alv.
Data : grid1 type ref to cl_gui_alv_grid,
       g_custom_container1 type ref to cl_gui_custom_container,
       grid2 type ref to cl_gui_alv_grid,
       g_custom_container2 type ref to cl_gui_custom_container,
       i_FCAT TYPE  LVC_T_FCAT,
       i_FCAT_str type lvc_s_fcat,
Structure  for layout
      i_layout_s   TYPE  lvc_s_layo,
       gt_final1 type table of  t_Final_out.
DATA: CCCONTAINER1 TYPE SCRFNAME VALUE 'CCCONTAINER1',
      CCCONTAINER2 TYPE SCRFNAME VALUE 'CCCONTAINER2',
      G_PARENT_TOP TYPE REF TO CL_GUI_CONTAINER ,
      G_SPLITTER   TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
      G_DYNDOC_ID  TYPE REF TO CL_DD_DOCUMENT,
      G_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER.
                      Global Variables                              *
Data :cnt(4) type n value '0',
      g_plant type CKMLMV003-WERKS ,
      g_QuanTStr type CKMLMV003-MGTYP ,
      g_PurchOrg type CKMLMV001-EKORG_ND,
      flag type n value '0',
      g_cnt6 type n value '0',
      g_cnt7 type n value '0',
      g_cnt8 type n value '0',
      g_cnt9 type n value '0',
      g_cnt10 type n value '0',
      g_cnt11 type n value '0',
      g_cnt12 type n value '0',
      g_cnt13 type n value '0'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-011.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-006 for field s_matnr.
Select-Options : S_MATNR for CKMLMV003-MATNR .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-007 for field S_WERKS.
SELECT-OPTIONS:S_WERKS for CKMLMV003-WERKS Default '2003'.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-008 for field S_GJAHR.
SELECT-OPTIONS:S_GJAHR for CKMLMv003-GJAHR default Sy-DATUM(4) .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-009 for field S_PERIO.
SELECT-OPTIONS:S_PERIO for CKMLMV003-PERIO .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(25) TEXT-010 for field P_MGTYP.
Parameters : P_MGTYP type CKMLMV003-MGTYP .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN END OF BLOCK b1 .
At Selection-Screen on s_matnr .
  Perform Validate_MatNumber.
At Selection-Screen on s_werks .
  Perform Validate_CostingPlant.
At Selection-Screen on s_GJAHR .
  Perform Validate_FiscalYear.
At Selection-Screen on s_PERIO .
  Perform Validate_Period.
At Selection-Screen on p_MGTYP .
  Perform Validate_QuantityStrType.
*&      Form  Validate_MatNumber
      text
Form Validate_MatNumber.
  DATA l_MATNR TYPE CKMLMV003-MATNR.
  IF NOT S_MATNR[] IS INITIAL .
    CLEAR L_MATNR.
    SELECT  single MATNR FROM CKMLMV003
      INTO l_MATNR
      WHERE MATNR = s_MATNR-LOW or MATNR = s_MATNR-HIGH.
   ENDSELECT.
    IF sy-subrc NE 0.
      MESSAGE e999 WITH
              'Enter a Valid Material Number'(001).
    ENDIF.
  ENDIF.
ENDFORM.                    "Validate_MatNumber
*&      Form  Validate_CostingPlant
      text
Form Validate_CostingPlant.
  DATA l_werks TYPE CKMLMV003-WERKS.
  IF NOT S_WERKS[] IS INITIAL .
    CLEAR L_WERKS.
    SELECT single  WERKS FROM T001W
      INTO l_WERKS
      WHERE WERKS =  s_WERKS-low or  WERKS =  s_WERKS-high.
   ENDSELECT.
    IF sy-subrc NE 0.
      MESSAGE e999 WITH
              'Enter a Valid Costing Plant'(002).
    ENDIF.
  ENDIF.
ENDFORM.                    "Validate_CostingPlant
*&      Form  Validate_FiscalYear
      text
Form Validate_FiscalYear.
  DATA l_GJAHR TYPE CKMLMV003-GJAHR.
  IF NOT S_GJAHR-low IS INITIAL or S_GJAHR-high IS INITIAL.
    CLEAR L_GJAHR.
   SELECT SINGLE GJAHR FROM CKMLMV003
     INTO l_GJAHR
     WHERE GJAHR LE sy-DATUM(4) .
   IF NOT S_GJAHR-low LE sy-DATUM(4) or S_GJAHR-high LE sy-DATUM(4).
     MESSAGE e999 WITH
             'Enter a Valid Fiscal year'(003).
   ENDIF.
  ENDIF.
ENDFORM.                    "Validate_FiscalYear
*&      Form  Validate_Period
      text
Form Validate_Period.
  DATA l_PERIO TYPE CKMLMV003-PERIO.
  IF NOT S_PERIO[] IS INITIAL .
    CLEAR L_PERIO.
    SELECT single PERIO FROM CKMLMV003
      INTO l_PERIO
      WHERE PERIO GE 1 and PERIO LE 12 .
   ENDSELECT.
    IF sy-subrc NE 0.
      MESSAGE e999 WITH
              'Enter a Valid Period'(004).
    ENDIF.
  ENDIF.
ENDFORM.                    "Validate_Period
*&      Form  Validate_QuantityStrType
      text
Form Validate_QuantityStrType.
  DATA l_MGTYP TYPE CKMLMV003-MGTYP.
  IF NOT p_MGTYP IS INITIAL.
    CLEAR L_MGTYP.
    SELECT SINGLE MGTYP FROM CKMLMV003
      INTO l_MGTYP
      WHERE MGTYP = p_MGTYP .
    IF sy-subrc NE 0.
      MESSAGE e999 WITH
              'Enter a Valid Quantity Structure Type'(005).
    ENDIF.
  ENDIF.
ENDFORM.                    "Validate_QuantityStrType
INITIALIZATION of Fields
Class LCL_EVENT_HANDLER DEFINITION.
  Public section.
    Methods:
    TOP_OF_PAGE for Event TOP_OF_PAGE OF CL_GUI_ALV_GRID
                            IMPORTING E_DYNDOC_ID.
ENDCLASS.                    "LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
METHOD TOP_OF_PAGE.
Top-of-page event <br />
PERFORM EVENT_TOP_OF_PAGE USING G_DYNDOC_ID.
ENDMETHOD.                            "top_of_page
ENDCLASS.       "LCL_EVENT_HANDLER IMPLEMENTATION
Data : G_HANDLER TYPE REF TO LCL_EVENT_HANDLER.
Initialization.
  v_repid = sy-repid.
Start-of-Selection.
  Perform get_CKMLMV003.
  Perform get_CKMLMV001.
  Perform Get_Finaldata.
Perform Layout_FieldCatalog.
  call screen '101'.
Perform  ALVGrid_Final_Display.
*&      Form  Layout_FieldCatalog
      text
Form Layout_FieldCatalog.
  s_fieldcatalog-col_pos = 1.
  s_fieldcatalog-fieldname = 'MATNR'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-024.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 2.
  s_fieldcatalog-fieldname = 'GJAHR'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-012.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 3.
  s_fieldcatalog-fieldname = 'PERIO'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-013.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 4.
  s_fieldcatalog-fieldname = 'WERKS'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-025.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 5.
  s_fieldcatalog-fieldname = 'LIFNR_ND1'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-014.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 6.
  s_fieldcatalog-fieldname = 'MISCH_VERH1'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-015.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 7.
  s_fieldcatalog-fieldname = 'LIFNR_ND2'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-016.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 8.
  s_fieldcatalog-fieldname = 'MISCH_VERH2'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-017.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 9.
  s_fieldcatalog-fieldname = 'LIFNR_ND3'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-018.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 10.
  s_fieldcatalog-fieldname = 'MISCH_VERH3'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-019.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 11.
  s_fieldcatalog-fieldname = 'LIFNR_ND4'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-020.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 12.
  s_fieldcatalog-fieldname = 'MISCH_VERH4'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-021.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 13.
  s_fieldcatalog-fieldname = 'LIFNR_ND5'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-022.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  s_fieldcatalog-col_pos = 14.
  s_fieldcatalog-fieldname = 'MISCH_VERH5'.
  s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
  s_fieldcatalog-seltext_l = Text-023.
  append s_fieldcatalog to t_fieldcatalog.
  clear s_fieldcatalog.
  if g_cnt6 <> '0'.
    s_fieldcatalog-col_pos = 14.
    s_fieldcatalog-fieldname = 'LIFNR_ND6'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 15.
    s_fieldcatalog-fieldname = 'MISCH_VERH6'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt7 <> '0'.
    s_fieldcatalog-col_pos = 16.
    s_fieldcatalog-fieldname = 'LIFNR_ND7'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 17.
    s_fieldcatalog-fieldname = 'MISCH_VERH7'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt8 <> '0'.
    s_fieldcatalog-col_pos = 18.
    s_fieldcatalog-fieldname = 'LIFNR_ND8'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 19.
    s_fieldcatalog-fieldname = 'MISCH_VERH8'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt9 <> '0'.
    s_fieldcatalog-col_pos = 20.
    s_fieldcatalog-fieldname = 'LIFNR_ND9'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 21.
    s_fieldcatalog-fieldname = 'MISCH_VERH9'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt10 <> '0'.
    s_fieldcatalog-col_pos = 22.
    s_fieldcatalog-fieldname = 'LIFNR_ND10'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 23.
    s_fieldcatalog-fieldname = 'MISCH_VERH10'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt11 <> '0'.
    s_fieldcatalog-col_pos = 24.
    s_fieldcatalog-fieldname = 'LIFNR_ND11'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 25.
    s_fieldcatalog-fieldname = 'MISCH_VERH11'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt12 <> '0'.
    s_fieldcatalog-col_pos = 26.
    s_fieldcatalog-fieldname = 'LIFNR_ND12'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 27.
    s_fieldcatalog-fieldname = 'MISCH_VERH12'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
  if g_cnt13 <> '0'.
    s_fieldcatalog-col_pos = 29.
    s_fieldcatalog-fieldname = 'LIFNR_ND13'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-022.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
    s_fieldcatalog-col_pos = 30.
    s_fieldcatalog-fieldname = 'MISCH_VERH13'.
    s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    s_fieldcatalog-seltext_l = Text-023.
    append s_fieldcatalog to t_fieldcatalog.
    clear s_fieldcatalog.
  ENDIF.
ENDFORM.                    "Layout_FieldCatalog
*&      Form  get_CKMLMV003
      text
Form get_CKMLMV003.
  Select WERKS
         MATNR
         MISCH_VERH
         KALNR_BAL
         GJAHR
         PERIO
         MGTYP
         from CKMLMV003
         into table i_CKMLMV003_out
         Where ( MATNR in s_MATNR and
                 WERKS in s_WERKS and
                 GJAHR in s_GJAHR and
                 PERIO in s_PERIO and
                 MGTYP = p_MGTYP ).
  Sort i_CKMLMV003_out by MATNR  KALNR_BAL.
ENDFORM.                    "get_CKMLMV003
*&      Form  get_CKMLMV001
      text
Form get_CKMLMV001.
  If Not i_CKMLMV003_out is Initial.
    Select MATNR
           KALNR
           LIFNR_ND
           EKORG_ND
           from CKMLMV001
           into Table i_CKMLMV001_out
           for all entries in i_CKMLMV003_out
           Where ( KALNR = i_CKMLMV003_out-KALNR_BAL
                  and WERKS = i_CKMLMV003_out-WERKS
                  and MATNR = i_CKMLMV003_out-MATNR ).
    sort i_CKMLMV001_out by MATNR  KALNR.
  ENDIF.
ENDFORM.                    "get_CKMLMV001
*&      Form  Get_Finaldata
      text
Form Get_Finaldata.
  Loop at  i_CKMLMV001_out into i_CKMLMV001_str.
    Loop at  i_CKMLMV003_out into i_CKMLMV003_str.
      If ( i_CKMLMV001_str-KALNR = i_CKMLMV003_str-KALNR_BAL  and i_CKMLMV003_str-MATNR = i_CKMLMV001_str-MATNR  ) .
        If ( flag = 0 ).
          g_plant = i_CKMLMV003_str-WERKS.
          g_PurchOrg = i_CKMLMV001_str-EKORG_ND.
          g_quantstr = i_CKMLMV003_str-MGTYP.
          flag = 1.
        ENDIF.
        Move i_CKMLMV003_str-MATNR  to  i_Final_str-MATNR.
        Move i_CKMLMV003_str-WERKS  to  i_Final_str-WERKS.
        Move i_CKMLMV003_str-GJAHR  to  i_Final_str-GJAHR.
        Move i_CKMLMV003_str-PERIO  to  i_Final_str-PERIO.
        Move i_CKMLMV003_str-MISCH_VERH  to  i_Final_str-MISCH_VERH1.
        Move i_CKMLMV001_str-LIFNR_ND  to  i_Final_str-LIFNR_ND1.
       Move-Corresponding i_CKMLMV003_str to i_CKMLMV003_temp.
        Append i_Final_str to i_Final_out.
        Clear : i_CKMLMV003_str   .
      ENDIF.
    ENDLOOP.
    Clear : i_CKMLMV001_str ,  i_Final_str , i_CKMLMV003_temp.
  ENDLOOP.
  Sort i_Final_out by WERKS MATNR GJAHR  PERIO .
  Loop at i_Final_out into i_Final_str.
    if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO and i_Final_str-WERKS = i_Final_str1-WERKS.
      cnt = cnt + 1.
      Case cnt.
        When 2.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH2.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND2.
        When 3.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH3.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND3.
        When 4.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH4.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND4.
        When 5.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH5.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND5.
        When 6.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH6.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND6.
          g_cnt6 = 1.
        When 7.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH7.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND7.
          g_cnt7 = 1.
        When 8.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH8.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND8.
          g_cnt8 = 1.
        When 9.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH9.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND9.
          g_cnt9 = 1.
        When 10.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH10.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND10.
          g_cnt10 = 1.
        When 11.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH11.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND11.
          g_cnt11 = 1.
        When 12.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH12.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND12.
          g_cnt12 = 1.
        When 13.
          Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH13.
          Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND13.
          g_cnt13 = 1.
      ENDCASE.
    ELSE.
      if cnt GE 1 .
        append i_Final_str1 to i_Final_out1.
        Clear : i_Final_str1.
      ENDIF.
      Move-Corresponding i_Final_str to i_Final_str1.
      cnt = 0.
      cnt = cnt + 1.
    ENDIF.
    Clear :  i_Final_str.
  Endloop.
  append i_Final_str1 to i_Final_out1.
   if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO .
     cnt = cnt + 1.
     Case cnt.
       When 2.
         Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH2.
         Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND2.
       When 3.
         Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH3.
         Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND3.
       When 4.
         Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH4.
         Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND4.
       When 5.
         Move i_Final_str-MISCH_VERH1  to  i_Final_str1-MISCH_VERH5.
         Move i_Final_str-LIFNR_ND1  to  i_Final_str1-LIFNR_ND5.
     ENDCASE.
**Move-Corresponding i_Final_str to i_Final_str1.
   ELSE.
     if cnt GE 1 .
       append i_Final_str1 to i_Final_out1.
       Clear : i_Final_str1.
     ENDIF.
     Move-Corresponding i_Final_str to i_Final_str1.
     cnt = 0.
     cnt = cnt + 1.
   ENDIF.
   Clear :  i_Final_str.
Endloop.
append i_Final_str1 to i_Final_out1.
ENDFORM.                    "Get_Finaldata
*&      Form  top_of_page
      text
Form top_of_page.
  clear t_header.
  refresh t_header.
  i_header_str-typ = 'H'.
  I_header_Str-info = Text-035.
  append I_header_str to t_header.
  clear I_header_str.
Date
  I_header_str-typ = 'S'.
  I_header_str-key = Text-036.
  CONCATENATE sy-datum+6(2) '.'
  sy-datum+4(2) '.'
  sy-datum(4) INTO I_header_str-info. "todays date
  append I_header_str to t_header.
  clear: I_header_str.
  i_header_str-typ = 'S'.
  I_header_Str-Key = 'Quantity Structure Type :'.
  I_header_Str-info = g_QuantStr.
  append I_header_str to t_header.
  clear I_header_str.
  i_header_str-typ = 'S'.
  I_header_Str-Key = 'Purchase Org :'.
  I_header_Str-info = g_PurchOrg.
  append I_header_str to t_header.
  clear I_header_str.
  i_header_str-typ = 'S'.
  I_header_Str-Key = 'Plant :'.
  I_header_Str-info = g_Plant.
  append I_header_str to t_header.
  clear I_header_str.
  CLEAR i_line_event_str.
  i_line_event_str-name = 'TOP_OF_PAGE'.
  APPEND i_line_event_str TO i_events.
  call function 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_header.
i_logo = 'Z_LOGO'.
ENDFORM.                    "top_of_page
*&      ALVGrid_Final_Display
Form ALVGrid_Final_Display.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program     = v_repid
       i_DEFAULt              = c_valx
      i_callback_top_of_page = 'TOP_OF_PAGE'
       i_Save                 = c_valx
      it_fieldcat            = t_fieldcatalog
       it_sort                = t_sort
      it_events              = I_events
    TABLES
      t_outtab               = i_final_out1.
ENDFORM.                    "ALVGrid_Final_Display
*&      Form  ALVGRID_OO_Display
      text
Form ALVGRID_OO_Display.
  i_FCAT_str-col_pos = 1.
  i_FCAT_str-fieldname = 'MATNR'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-seltext = 'MATERIAL'.
  i_fcat_str-scrtext_m = Text-024.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 2.
  i_FCAT_str-fieldname = 'GJAHR'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_fcat_str-scrtext_m = Text-012.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 3.
  i_FCAT_str-fieldname = 'PERIO'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_fcat_str-scrtext_m = Text-013.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 4.
  i_FCAT_str-fieldname = 'WERKS'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-025.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 5.
  i_FCAT_str-fieldname = 'LIFNR_ND1'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_fcat_str-scrtext_m = Text-014.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 6.
  i_FCAT_str-fieldname = 'MISCH_VERH1'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-015.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 7.
  i_FCAT_str-fieldname = 'LIFNR_ND2'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-016.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 8.
  i_FCAT_str-fieldname = 'MISCH_VERH2'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-017.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 9.
  i_FCAT_str-fieldname = 'LIFNR_ND3'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-018.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 10.
  i_FCAT_str-fieldname = 'MISCH_VERH3'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-019.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 11.
  i_FCAT_str-fieldname = 'LIFNR_ND4'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-020.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 12.
  i_FCAT_str-fieldname = 'MISCH_VERH4'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-021.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 13.
  i_FCAT_str-fieldname = 'LIFNR_ND5'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-022.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
  i_FCAT_str-col_pos = 14.
  i_FCAT_str-fieldname = 'MISCH_VERH5'.
  i_FCAT_str-tabname = 'I_FINAL_OUT1'.
  i_FCAT_str-scrtext_m = Text-023.
  append i_FCAT_str to i_FCAT.
  clear i_FCAT_str.
   if g_cnt6 <> '0'.
    i_FCAT_str-col_pos = 15.
    i_FCAT_str-fieldname = 'LIFNR_ND6'.
    i_FCAT_str-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    i_FCAT_str-scrtext_m = Text-022.
    append i_FCAT_str to i_FCAT.
    clear i_FCAT_str.
    i_FCAT_str-col_pos = 16.
    i_FCAT_str-fieldname = 'MISCH_VERH6'.
    i_FCAT_str-tabname = 'I_FINAL_OUT1'.
   s_fieldcatalog-NO_OUT = 'X'.
    i_FCAT_str-scrtext_m = Text-023.
    append i_FCAT_str to i_FCAT.
    clear i_FCAT_str.
  ENDIF.
*if  not grid1 is Initial.
If sy-SUBRC = 0.
  Call Method grid1->set_table_for_first_display
    CHANGING
      it_outtab                     = i_final_out1[]
      it_fieldcatalog               = I_FCAT
    EXCEPTIONS
      Invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      Others                        = 4.
  If sy-subrc <> 0.
  ENDIF.
CALL METHOD G_DYNDOC_ID->INITIALIZE_DOCUMENT
    EXPORTING
    BACKGROUND_COLOR = CL_DD_AREA=>COL_TEXTAREA.
Processing events <br />
  CALL METHOD GRID1->LIST_PROCESSING_EVENTS
    EXPORTING
    I_EVENT_NAME = 'TOP_OF_PAGE'
    I_DYNDOC_ID = G_DYNDOC_ID.
Call Method grid2->set_table_for_first_display
   CHANGING
     it_outtab                     = i_final_out1[]
     it_fieldcatalog               = I_FCAT
   EXCEPTIONS
     Invalid_parameter_combination = 1
     program_error                 = 2
     too_many_lines                = 3
     Others                        = 4.
If sy-subrc <> 0.
ENDIF.
   ENDIF.
  ENDIF.
Endform.                    "ALVGRID_OO_Display
Form EVENT_TOP_OF_PAGE using  DG_DYNDOC_ID
                      TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C.
  CALL METHOD DG_DYNDOC_ID->ADD_TEXT
    EXPORTING
    TEXT = 'Flight Details'
    SAP_STYLE = CL_DD_AREA=>HEADING
    SAP_FONTSIZE = CL_DD_AREA=>LARGE
    SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
Endform.
*&      Module  STATUS_0101  OUTPUT
      text
MODULE STATUS_0101 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
  Create Object G_DYNDOC_ID
        EXPORTING STYLE = 'ALV_GRID'.
  if g_custom_container1 is initial .
    create object g_custom_container1
        Exporting
            Container_name = CCCONTAINER1
        Exceptions
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            Others = 5.
   Create Object G_SPLITTER
          Exporting PARENT = g_custom_container1.
  CALL METHOD G_SPLITTER->GET_CONTAINER
    EXPORTING
    ROW = 1
    COLUMN = 1
    RECEIVING
    CONTAINER = G_PARENT_TOP.
*Assigning the Part 2 to GRID
  CALL METHOD G_SPLITTER->GET_CONTAINER
    EXPORTING
    ROW = 2
    COLUMN = 1
    RECEIVING
    CONTAINER = g_parent_grid.

Answer 1

Hi,
Check if any event is triggered from the event handler class, upon selection.
Usually, the events are handled on double click or on hotspot etc.
Regards,
Satish Kanteti