alv split header text area

data:
go_grid type ref to cl_gui_alv_grid,
go_document type ref to cl_dd_document,
go_docking type ref to cl_gui_docking_container,
go_split type ref to cl_gui_splitter_container,
go_con_t type ref to cl_gui_container,
go_con_m type ref to cl_gui_container.



form init_alv.

create object go_docking
exporting
repid = sy-repid
dynnr = sy-dynnr
side = go_docking->dock_at_left
extension = 20000.

create object go_split
exporting
parent = go_docking
rows = 2
dolumns = 1
align = 15.

* split header, body
call method go_split->set_row_height( id = 1 height = 8 ).

call method go_split->get_container
exporting
row = 1
column = 1
receiving
container = go_con_t.

call method go_split->get_container
exporting
row = 2
column = 1
receiving container = go_con_m.

create object go_grid
exporting
i_appl_events = gc_x
i_parent = go_con_m.

create object go_document
exporting
background_color = cl_dd_area=>col_textarea.

perform document_style_header using go_document.

call method go_document->display_document
exporting parent = go_con_t
exceptions html_display_error = 1.

endform.



form document_style_header using pv_dd type ref to cl_dd_document.

data: lv_cnt(3) type n,
lt_txttab type sdydo_text_table with header line.

clear: lt_txttab, lt_txttab[], lv_cnt.
describe table gt_result lines lv_cnt.

perform conversion_alpha_o change lv_cnt.

concatenate text-t01 ':' lv_cnt into lt_txttab separated by space.

append lt_txttab. clear lt_txttab.

call method pv_dd->add_text
exporting
text_table = lt_txttab[]
fix_lines = gc_x
sap_fontsize = cl_dd_area=>large.
endform.