code as bellow

*&---------------------------------------------------------------------*
*& Include COLUMN_TREE_CONTROL_DEMOTOP *
*& *
*&---------------------------------------------------------------------*

REPORT SAPCOLUMN_TREE_CONTROL_DEMO MESSAGE-ID TREE_CONTROL_MSG.

CLASS LCL_APPLICATION DEFINITION DEFERRED.
CLASS CL_GUI_CFW DEFINITION LOAD.

* CAUTION: MTREEITM is the name of the item structure which must
* be defined by the programmer. DO NOT USE MTREEITM!
TYPES: ITEM_TABLE_TYPE LIKE STANDARD TABLE OF MTREEITM
WITH DEFAULT KEY.

DATA: G_APPLICATION TYPE REF TO LCL_APPLICATION,
G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
G_TREE TYPE REF TO CL_GUI_COLUMN_TREE,
G_OK_CODE TYPE SY-UCOMM.

* Fields on Dynpro 100
DATA: G_EVENT(30),
G_NODE_KEY TYPE TV_NODEKEY,
G_ITEM_NAME TYPE TV_ITMNAME,
G_HEADER_NAME TYPE TV_HDRNAME.

CONSTANTS:
BEGIN OF c_nodekey,
root type tv_nodekey value 'Root', "#EC NOTEXT
child1 TYPE tv_nodekey VALUE 'Child1', "#EC NOTEXT
* child2 type tv_nodekey value 'Child2', "#EC NOTEXT
new1 TYPE tv_nodekey VALUE 'New1', "#EC NOTEXT
new2 TYPE tv_nodekey VALUE 'New2', "#EC NOTEXT
* new3 type tv_nodekey value 'New3', "#EC NOTEXT
* new4 type tv_nodekey value 'New4', "#EC NOTEXT
END OF c_nodekey,
BEGIN OF c_column,
column1 TYPE tv_itmname VALUE 'Column1', "#EC NOTEXT
column2 TYPE tv_itmname VALUE 'Column2', "#EC NOTEXT
column3 TYPE tv_itmname VALUE 'Column3', "#EC NOTEXT
END OF c_column.

*** INCLUDE COLUMN_TREE_CONTROL_DEMOTOP

*----------------------------------------------------------------------*
* INCLUDE COLUMN_TREE_CONTROL_DEMOCL1 *
*----------------------------------------------------------------------*

CLASS LCL_APPLICATION DEFINITION.

PUBLIC SECTION.
METHODS:
HANDLE_NODE_DOUBLE_CLICK
FOR EVENT NODE_DOUBLE_CLICK
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY,
HANDLE_HEADER_CLICK
FOR EVENT HEADER_CLICK
OF CL_GUI_COLUMN_TREE
IMPORTING HEADER_NAME,
HANDLE_EXPAND_NO_CHILDREN
FOR EVENT EXPAND_NO_CHILDREN
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY,
HANDLE_ITEM_DOUBLE_CLICK
FOR EVENT ITEM_DOUBLE_CLICK
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY ITEM_NAME,
HANDLE_BUTTON_CLICK
FOR EVENT BUTTON_CLICK
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY ITEM_NAME,
HANDLE_LINK_CLICK
FOR EVENT LINK_CLICK
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY ITEM_NAME,
HANDLE_CHECKBOX_CHANGE
FOR EVENT CHECKBOX_CHANGE
OF CL_GUI_COLUMN_TREE
IMPORTING NODE_KEY ITEM_NAME CHECKED.
ENDCLASS. "LCL_APPLICATION DEFINITION

*----------------------------------------------------------------------*
* CLASS LCL_APPLICATION IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_APPLICATION IMPLEMENTATION.

METHOD HANDLE_NODE_DOUBLE_CLICK.
" this method handles the node double click event of the tree
" control instance

" show the key of the double clicked node in a dynpro field  
G\_EVENT = 'NODE\_DOUBLE\_CLICK'.  
G\_NODE\_KEY = NODE\_KEY.  
CLEAR: G\_ITEM\_NAME, G\_HEADER\_NAME.  

ENDMETHOD. "HANDLE_NODE_DOUBLE_CLICK

METHOD HANDLE_HEADER_CLICK.
" this method handles header click event of the tree
" control instance

" show the name of the clicked header in a dynpro field  
G\_EVENT = 'HEADER\_CLICK'.  
G\_HEADER\_NAME = HEADER\_NAME.  
CLEAR: G\_NODE\_KEY, G\_ITEM\_NAME.  

ENDMETHOD. "HANDLE_HEADER_CLICK

METHOD HANDLE_ITEM_DOUBLE_CLICK.
" this method handles the item double click event of the tree
" control instance

" show the key of the node and the name of the item  
" of the double clicked item in a dynpro field  
G\_EVENT = 'ITEM\_DOUBLE\_CLICK'.  
G\_NODE\_KEY = NODE\_KEY.  
G\_ITEM\_NAME = ITEM\_NAME.  
CLEAR G\_HEADER\_NAME.  

ENDMETHOD. "HANDLE_ITEM_DOUBLE_CLICK

METHOD HANDLE_LINK_CLICK.
" this method handles the link click event of the tree
" control instance

" show the key of the node and the name of the item  
" of the clicked link in a dynpro field  
G\_EVENT = 'LINK\_CLICK'.  
G\_NODE\_KEY = NODE\_KEY.  
G\_ITEM\_NAME = ITEM\_NAME.  
CLEAR G\_HEADER\_NAME.  

ENDMETHOD. "HANDLE_LINK_CLICK

METHOD HANDLE_BUTTON_CLICK.
" this method handles the button click event of the tree
" control instance

" show the key of the node and the name of the item  
" of the clicked button in a dynpro field  
G\_EVENT = 'BUTTON\_CLICK'.  
G\_NODE\_KEY = NODE\_KEY.  
G\_ITEM\_NAME = ITEM\_NAME.  
CLEAR G\_HEADER\_NAME.  

ENDMETHOD. "HANDLE_BUTTON_CLICK

METHOD HANDLE_CHECKBOX_CHANGE.
" this method handles the checkbox_change event of the tree
" control instance

" show the key of the node and the name of the item  
" of the clicked checkbox in a dynpro field  
G\_EVENT = 'CHECKBOX\_CHANGE'.  
G\_NODE\_KEY = NODE\_KEY.  
G\_ITEM\_NAME = ITEM\_NAME.  
CLEAR  G\_HEADER\_NAME.  

ENDMETHOD. "HANDLE_CHECKBOX_CHANGE

METHOD HANDLE_EXPAND_NO_CHILDREN.
DATA: NODE_TABLE TYPE TREEV_NTAB,
NODE TYPE TREEV_NODE,
ITEM_TABLE TYPE ITEM_TABLE_TYPE,
ITEM TYPE MTREEITM.

* show the key of the expanded node in a dynpro field
G_EVENT = 'EXPAND_NO_CHILDREN'.
G_NODE_KEY = NODE_KEY.
CLEAR: G_ITEM_NAME, G_HEADER_NAME.

IF node\_key = c\_nodekey-child1.  

* add two nodes

* Node with key 'New1'
CLEAR NODE.
node-node_key = c_nodekey-New1.
node-relatkey = c_nodekey-child1.
NODE-RELATSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD.
APPEND NODE TO NODE_TABLE.

* Node with key 'New2'
CLEAR NODE.
node-node_key = c_nodekey-New2.
node-relatkey = c_nodekey-child1.
NODE-RELATSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD.
NODE-N_IMAGE = '@10@'.
APPEND NODE TO NODE_TABLE.

* Items of node with key 'New1'
CLEAR ITEM.
item-node_key = c_nodekey-New1.
item-item_name = c_column-Column1.
item-class = cl_gui_column_tree=>item_class_text.
item-text = 'New1 Col. 1'(n11).
APPEND ITEM TO ITEM_TABLE.

  CLEAR ITEM.  
  item-node\_key = c\_nodekey-New1.  
  item-item\_name = c\_column-Column2.  
  ITEM-CLASS = CL\_GUI\_COLUMN\_TREE=>ITEM\_CLASS\_LINK.  
  item-t\_image = '@3C@'.  
  APPEND ITEM TO ITEM\_TABLE.

  CLEAR ITEM.  
  item-node\_key = c\_nodekey-New1.  
  item-item\_name = c\_column-Column3.  
  item-class = cl\_gui\_column\_tree=>item\_class\_text.  
  item-text = 'New1 Col. 3'(n13).  
  APPEND ITEM TO ITEM\_TABLE.

* Items of node with key 'New2'
CLEAR ITEM.
item-node_key = c_nodekey-New2.
item-item_name = c_column-Column1.
item-class = cl_gui_column_tree=>item_class_text.
item-text = 'New2 Col. 1'(n21).
APPEND ITEM TO ITEM_TABLE.

  CLEAR ITEM.  
  item-node\_key = c\_nodekey-New2.  
  item-item\_name = c\_column-Column2.  
  item-class = cl\_gui\_column\_tree=>item\_class\_text.  
  item-text = 'New2 Col. 2'(n22).  
  APPEND ITEM TO ITEM\_TABLE.

  CLEAR ITEM.  
  item-node\_key = c\_nodekey-New2.  
  item-item\_name = c\_column-Column3.  
  item-class = cl\_gui\_column\_tree=>item\_class\_text.  
  item-text = 'New2 Col. 3'(n23).  
  APPEND ITEM TO ITEM\_TABLE.

  CALL METHOD G\_TREE->ADD\_NODES\_AND\_ITEMS  
    EXPORTING  
      NODE\_TABLE = NODE\_TABLE  
      ITEM\_TABLE = ITEM\_TABLE  
      ITEM\_TABLE\_STRUCTURE\_NAME = 'MTREEITM'  
    EXCEPTIONS  
      FAILED = 1  
      CNTL\_SYSTEM\_ERROR = 3  
      ERROR\_IN\_TABLES = 4  
      DP\_ERROR = 5  
      TABLE\_STRUCTURE\_NAME\_NOT\_FOUND = 6.  
  IF SY-SUBRC <> 0.  
    MESSAGE A000.  
  ENDIF.  
endif.  

ENDMETHOD. "HANDLE_EXPAND_NO_CHILDREN

ENDCLASS. "LCL_APPLICATION IMPLEMENTATION

*-------------------------------------------------------------------
***INCLUDE column_tree_control_demoO01 .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Module PBO_0400 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PBO_100 OUTPUT.
SET PF-STATUS 'MAIN'.
IF G_TREE IS INITIAL.
" The Tree Control has not been created yet.
" Create a Tree Control and insert nodes into it.
PERFORM CREATE_AND_INIT_TREE.
ENDIF.
ENDMODULE. " PBO_0100 OUTPUT
*** INCLUDE column_tree_control_demoO01

*-------------------------------------------------------------------
***INCLUDE column_tree_control_demoI01 .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Module PAI_0400 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PAI_100 INPUT.
data: return_code type i.
* CL_GUI_CFW=>DISPATCH must be called if events are registered
* that trigger PAI
* this method calls the event handler method of an event
CALL METHOD CL_GUI_CFW=>DISPATCH
importing return_code = return_code.
if return_code <> cl_gui_cfw=>rc_noevent.
" a control event occured => exit PAI
clear g_ok_code.
exit.
endif.

CASE G_OK_CODE.
WHEN 'BACK'. " Finish program
IF NOT G_CUSTOM_CONTAINER IS INITIAL.
" destroy tree container (detroys contained tree control, too)
CALL METHOD G_CUSTOM_CONTAINER->FREE
EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
CNTL_ERROR = 2.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.
CLEAR G_CUSTOM_CONTAINER.
CLEAR G_TREE.
ENDIF.
LEAVE PROGRAM.
ENDCASE.

* CAUTION: clear ok code!
CLEAR G_OK_CODE.
ENDMODULE. " PAI_0100 INPUT
*** INCLUDE column_tree_control_demoI01

*-------------------------------------------------------------------
***INCLUDE column_tree_control_demoF01 .
*-------------------------------------------------------------------

*&---------------------------------------------------------------------*
*& Form CREATE_AND_INIT_TREE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CREATE_AND_INIT_TREE.
DATA: NODE_TABLE TYPE TREEV_NTAB,
ITEM_TABLE TYPE ITEM_TABLE_TYPE,
event type cntl_simple_event,
EVENTS TYPE CNTL_SIMPLE_EVENTS,
HIERARCHY_HEADER TYPE TREEV_HHDR.

* create a container for the tree control
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING
" the container is linked to the custom control with the
" name 'TREE_CONTAINER' on the dynpro
CONTAINER_NAME = 'TREE_CONTAINER'
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.
* setup the hierarchy header
hierarchy_header-heading = 'Hierarchy Header'(roo).
" heading
HIERARCHY_HEADER-WIDTH = 30. " width: 30 characters

* create a tree control

* After construction, the control contains one column in the
* hierarchy area. The name of this column
* is defined via the constructor parameter HIERACHY_COLUMN_NAME.
CREATE OBJECT G_TREE
EXPORTING
PARENT = G_CUSTOM_CONTAINER
NODE_SELECTION_MODE = CL_GUI_COLUMN_TREE=>NODE_SEL_MODE_SINGLE
ITEM_SELECTION = 'X'
hierarchy_column_name = c_column-Column1
HIERARCHY_HEADER = HIERARCHY_HEADER
EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
CREATE_ERROR = 2
FAILED = 3
ILLEGAL_NODE_SELECTION_MODE = 4
ILLEGAL_COLUMN_NAME = 5
LIFETIME_ERROR = 6.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.

* define the events which will be passed to the backend
" node double click
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_NODE_DOUBLE_CLICK.
event-appl_event = 'X'. " process PAI if event occurs
append event to events.

" item double click
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_ITEM_DOUBLE_CLICK.
event-appl_event = 'X'.
append event to events.

" expand no children
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_EXPAND_NO_CHILDREN.
event-appl_event = 'X'.
append event to events.

" link click
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_LINK_CLICK.
event-appl_event = 'X'.
append event to events.

" button click
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_button_click.
event-appl_event = 'X'.
append event to events.

" checkbox change
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_checkbox_change.
event-appl_event = 'X'.
append event to events.

" header click
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_header_click.
event-appl_event = 'X'.
append event to events.

CALL METHOD G_TREE->SET_REGISTERED_EVENTS
EXPORTING
EVENTS = EVENTS
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
ILLEGAL_EVENT_COMBINATION = 3.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.

* assign event handlers in the application class to each desired event
SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_ITEM_DOUBLE_CLICK FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_EXPAND_NO_CHILDREN FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_LINK_CLICK FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_BUTTON_CLICK FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_CHECKBOX_CHANGE FOR G_TREE.
SET HANDLER G_APPLICATION->HANDLE_HEADER_CLICK FOR G_TREE.

* insert two additional columns

* Column2
CALL METHOD G_TREE->ADD_COLUMN
EXPORTING
name = c_column-Column2
width = 21
header_text = 'Column2'(co2)
EXCEPTIONS
COLUMN_EXISTS = 1
ILLEGAL_COLUMN_NAME = 2
TOO_MANY_COLUMNS = 3
ILLEGAL_ALIGNMENT = 4
DIFFERENT_COLUMN_TYPES = 5
CNTL_SYSTEM_ERROR = 6
FAILED = 7
PREDECESSOR_COLUMN_NOT_FOUND = 8.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.
* Column3
CALL METHOD G_TREE->ADD_COLUMN
EXPORTING
name = c_column-Column3
width = 21
alignment = cl_gui_column_tree=>align_right
header_text = 'Column3'(co3)
EXCEPTIONS
COLUMN_EXISTS = 1
ILLEGAL_COLUMN_NAME = 2
TOO_MANY_COLUMNS = 3
ILLEGAL_ALIGNMENT = 4
DIFFERENT_COLUMN_TYPES = 5
CNTL_SYSTEM_ERROR = 6
FAILED = 7
PREDECESSOR_COLUMN_NOT_FOUND = 8.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.

* add some nodes to the tree control
* NOTE: the tree control does not store data at the backend. If an
* application wants to access tree data later, it must store the
* tree data itself.

PERFORM BUILD_NODE_AND_ITEM_TABLE USING NODE_TABLE ITEM_TABLE.

CALL METHOD G_TREE->ADD_NODES_AND_ITEMS
EXPORTING
NODE_TABLE = NODE_TABLE
ITEM_TABLE = ITEM_TABLE
ITEM_TABLE_STRUCTURE_NAME = 'MTREEITM'
EXCEPTIONS
FAILED = 1
CNTL_SYSTEM_ERROR = 3
ERROR_IN_TABLES = 4
DP_ERROR = 5
TABLE_STRUCTURE_NAME_NOT_FOUND = 6.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.

* expand the node with key 'Root'
CALL METHOD G_TREE->EXPAND_NODE
EXPORTING
node_key = c_nodekey-Root
EXCEPTIONS
FAILED = 1
ILLEGAL_LEVEL_COUNT = 2
CNTL_SYSTEM_ERROR = 3
NODE_NOT_FOUND = 4
CANNOT_EXPAND_LEAF = 5.
IF SY-SUBRC <> 0.
MESSAGE A000.
ENDIF.

ENDFORM. " CREATE_AND_INIT_TREE

*&---------------------------------------------------------------------*
*& Form build_node_and_item_table
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*

FORM BUILD_NODE_AND_ITEM_TABLE
USING
NODE_TABLE TYPE TREEV_NTAB
ITEM_TABLE TYPE ITEM_TABLE_TYPE.

DATA: NODE TYPE TREEV_NODE,
ITEM TYPE MTREEITM.

* Build the node table.

* Caution: The nodes are inserted into the tree according to the order
* in which they occur in the table. In consequence, a node must not
* must not occur in the node table before its parent node.

* Node with key 'Root'
node-node_key = c_nodekey-Root.
" Key of the node
CLEAR NODE-RELATKEY. " Special case: A root node has no parent
CLEAR NODE-RELATSHIP. " node.

NODE-HIDDEN = ' '. " The node is visible,
NODE-DISABLED = ' '. " selectable,
NODE-ISFOLDER = 'X'. " a folder.
CLEAR NODE-N_IMAGE. " Folder-/ Leaf-Symbol in state "closed":
" use default.
CLEAR NODE-EXP_IMAGE. " Folder-/ Leaf-Symbol in state "open":
" use default
CLEAR NODE-EXPANDER. " see below.
APPEND NODE TO NODE_TABLE.

* Node with key 'Child1'
node-node_key = c_nodekey-child1.
" Key of the node
" Node is inserted as child of the node with key 'Root'.
node-relatkey = c_nodekey-Root.
NODE-RELATSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD.

NODE-HIDDEN = ' '.
NODE-DISABLED = ' '.
NODE-ISFOLDER = 'X'.
CLEAR NODE-N_IMAGE.
CLEAR NODE-EXP_IMAGE.
NODE-EXPANDER = 'X'. " The node is marked with a '+', although
" it has no children. When the user clicks on the
" + to open the node, the event expand_nc is
" fired. The programmerr can
" add the children of the
" node within the event handler of the expand_nc
" event (see callback handle_expand_nc).
APPEND NODE TO NODE_TABLE.

* The items of the nodes:

* Node with key 'Root'
CLEAR ITEM.
item-node_key = c_nodekey-Root.
item-item_name = c_column-Column1. " Item of Column 'Column1'
item-class = cl_gui_column_tree=>item_class_text. " Text Item
item-text = 'Root Col. 1'(ro1).
APPEND ITEM TO ITEM_TABLE.

CLEAR ITEM.
item-node_key = c_nodekey-Root.
item-item_name = c_column-Column2. " Item of Column 'Column2'
item-class = cl_gui_column_tree=>item_class_text.
item-text = 'Root Col. 2'(ro2).
APPEND ITEM TO ITEM_TABLE.

CLEAR ITEM.
item-node_key = c_nodekey-Root.
item-item_name = c_column-Column3. " Item of Column 'Column3'
" Item is a link (click on link fires event LINK_CLICK)
item-class = cl_gui_column_tree=>item_class_link.
item-text = 'Root Col. 3'(ro3).
APPEND ITEM TO ITEM_TABLE.

* Node with key 'Child1'
CLEAR ITEM.
item-node_key = c_nodekey-Child1.
item-item_name = c_column-Column1.
item-class = cl_gui_column_tree=>item_class_text.
item-text = 'Child1 Col. 1'(c11).
APPEND ITEM TO ITEM_TABLE.

CLEAR ITEM.
item-node_key = c_nodekey-Child1.
item-item_name = c_column-Column2. "
item-class = cl_gui_column_tree=>item_class_button. " Item is a button
item-text = 'Child1 Col. 2'(c12).
ITEM-T_IMAGE = '@0B@'.
APPEND ITEM TO ITEM_TABLE.

CLEAR ITEM.
item-node_key = c_nodekey-Child1.
item-item_name = c_column-Column3.
" Item is a checkbox
ITEM-CLASS = CL_GUI_COLUMN_TREE=>ITEM_CLASS_CHECKBOX.
ITEM-EDITABLE = 'X'.
item-text = 'Child1 Col. 3'(c13).
ITEM-T_IMAGE = '@0C@'.
APPEND ITEM TO ITEM_TABLE.

ENDFORM. " build_node_and_item_table

*** INCLUDE column_tree_control_demoF01

START-OF-SELECTION.
* create the application object
* this object is needed to handle the ABAP Objects Events of
* Controls
CREATE OBJECT G_APPLICATION.

SET SCREEN 100.