* 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_simple_tree=>node_sel_mode_single
    EXCEPTIONS
        cntl_system_error            = 2
        create_error                 = 3
        lifetime_error               = 4
        illegal_node_selection_mode  = 5
        failed                       = 6.
  IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.
  ENDIF.
ENDFORM.