* Add following code to 'STATUS_0100'(PBO module)
*-----------------------------------------------*
* Create tree control
PERFORM create_object_in_container.
* Add following code to 'Z......F01' INCLUDE
*-------------------------------------------*
*&-------------------------------------------------------------*
*& Form CREATE_OBJECT_IN_CONTAINER
*&-------------------------------------------------------------*
* Create ALVtree control
*--------------------------------------------------------------*
FORM create_object_in_container.
create object gd_tree
exporting
parent = gd_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 x208(00) with 'ERROR'.
endif.
ENDFORM.