Restrict Height of Header in ALV screen

Question

Hi,
I have created ALV Tree using custom container. Now i want to rstrict the Height of the top of page as top of page containes too many rows hence in the whole report only the Header is displayed.
Can you tell me the method for to rstrict the Height of Header on Tree ALV screen.
CREATE OBJECT l_custom_container
      EXPORTING
            container_name = l_tree_container_name
      EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc <> 0.
      MESSAGE e003 WITH 'ERROR'.                            "#EC NOTEXT
    ENDIF.
  ENDIF.
create tree control
  CREATE OBJECT obj_tree1
    EXPORTING
        parent              = l_custom_container
        node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
        item_selection      = 'X'
        no_html_header      = ''
        no_toolbar          = ''
    EXCEPTIONS
        cntl_error                   = 1
        cntl_system_error            = 2
        create_error                 = 3
        lifetime_error               = 4
        illegal_node_selection_mode  = 5
        failed                       = 6
        illegal_column_name          = 7.
  IF sy-subrc <> 0.
    MESSAGE e003 WITH 'ERROR'.                              "#EC NOTEXT
  ENDIF.
create Hierarchy-header
  DATA l_hierarchy_header TYPE treev_hhdr.
  PERFORM ztest_buildhhead CHANGING l_hierarchy_header.
create info-table for html-header
  DATA: lt_list_commentary TYPE slis_t_listheader.
  PERFORM f7800_build_comment CHANGING
                 lt_list_commentary.
repid for saving variants
  DATA: ls_variant TYPE disvariant.
  ls_variant-report = sy-repid.
create emty tree-control
  CALL METHOD obj_tree1->set_table_for_first_display
    EXPORTING
      is_hierarchy_header = l_hierarchy_header
      it_list_commentary  = lt_list_commentary
      i_background_id     = 'ALV_BACKGROUND'
      i_save              = 'A'
      is_variant          = ls_variant
    CHANGING
      it_outtab           = i_final2
      it_fieldcatalog     = i_fieldcat.      "table must be empty !!
*&      Form  f7800_build_comment
      text
     <--P_LIT_LIST_COMMENTARY  text
FORM f7800_build_comment  CHANGING  pt_list_commentary TYPE slis_t_listheader.
  DATA: lt_line  TYPE slis_listheader,
        lwa_date TYPE t_date .
  CLEAR lt_line.
Heading
  lt_line-typ  = c_h.
  lt_line-info = 'Cash Position Report'(024).
  APPEND lt_line TO pt_list_commentary.
Current Date
  CLEAR lt_line.
  lt_line-typ  = c_s.
  lt_line-key  = 'Date:'(022).
  lwa_date     =   sy-datum .
  CONCATENATE lwa_date-month '/' lwa_date-date '/' lwa_date-year
                                INTO lt_line-info .
  CLEAR lwa_date .
  APPEND lt_line TO pt_list_commentary.
Current Time
  lt_line-key  = 'Time:'(023).
  lt_line-info = sy-timlo.
  APPEND lt_line TO pt_list_commentary.
Forest City Name
  CLEAR lt_line.
  lt_line-typ  = c_a.
  lt_line-info = 'Forest City'(021).
  APPEND lt_line TO pt_list_commentary.
Selection Parameters
  CLEAR lt_line.
  lt_line-typ  = c_s.
  lt_line-key  = 'For Selection :'(010).
  APPEND lt_line TO pt_list_commentary.
  LOOP AT s_bukrs .
    CLEAR lt_line.
    lt_line-typ  = c_s.
    lt_line-key  = 'Facilitator Company Code :'(001).
    IF NOT s_bukrs-high IS INITIAL .
      CONCATENATE s_bukrs-low ' TO '  s_bukrs-high
                                INTO lt_line-info
                                SEPARATED BY space      .
    ELSE .
      lt_line-info = s_bukrs-low.
    ENDIF .
    APPEND lt_line TO pt_list_commentary.
  ENDLOOP .
  CLEAR lt_line.
  lt_line-typ  = c_s.
  lt_line-key  = 'Run Date :'(013).
  lwa_date = p_zfbdt .
  CONCATENATE lwa_date-month '/' lwa_date-date '/' lwa_date-year
                                INTO lt_line-info .
  APPEND lt_line TO pt_list_commentary.
  LOOP AT s_prctr .
    CLEAR lt_line.
    lt_line-typ  = c_s.
    lt_line-key  = 'Profit Center :'(014).
    IF NOT s_prctr-high IS INITIAL .
      CONCATENATE s_prctr-low ' TO '  s_prctr-high
                                INTO lt_line-info
                                SEPARATED BY space .
    ELSE .
      lt_line-info = s_prctr-low .
    ENDIF.
    APPEND lt_line TO pt_list_commentary.
  ENDLOOP .
ENDFORM.                    " f7800_build_comment
Regards,
Deepthi.

Answer 1

Hi ,
no_html_header      = 'X'
Use this option to hide html header. Than use cl_gui_splitter to split screen into 2 parts.
For the upper part of the screen , use cl_dd_document class to add your necessary top of page content. The other one contains alv tree.
Set the height of splitter by thids method ;
call method splitter->set_row_height
    exporting
      id     = 1
      height = 13.