Tree type report

Question

Hi all,
       Can anyone give sample code for TREE TYPE REPORT(simple code), like for example: The list should contain 2 main items (parent item) and when i expand each item i should have 1 item(child item) .and when i double click on that it should perform some action say it should go to new list.
like :
+ food
+ tools
(this is in first list , 2 main items) when i expand this
- food
       noodles
- tools
       hammer
(this sub item , when i click on this it should go to new list)
thanks in advance.
kumaran.c

Answer 1

HI Kumaran,
Have a look at the following code of simple tree control ...Its in module pool style.. will copy each include as well..
*& Module Pool       ZKM_SIMPLETREE_CONTROL
REPORT  ZKM_SIMPLETREE_CONTROL.
INCLUDE ZKM_TOP.
INCLUDE ZKM_CL.
INCLUDE ZKM_PBO_100O01.
INCLUDE ZKM_FORM01.
INCLUDE ZKM_PAI_100I01.
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 1000.
*&  Include           ZKM_TOP
*REPORT ZKM_SIMPLETREE_CONTROL MESSAGE-ID TREE_CONTROL_MSG.
CLASS lcl_application  DEFINITION DEFERRED.
CLASS cl_gui_cfw DEFINITION LOAD.
TYPES: node_table_type LIKE STANDARD TABLE OF zkm_treesnode
           WITH DEFAULT KEY.
CAUTION: MTREESNODE is the name of the node structure which must
be defined by the programmer. DO NOT USE MTREESNODE!
*internal table and work area for storing all the nodes that are created
DATA: gt_nodetable TYPE node_table_type,
      gw_nodetable TYPE zkm_treesnode.
*objects refering to the classes used.
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_simple_tree.
Fields on Dynpro 1000
DATA: g_event(30),
      g_key TYPE i,
      g_node_key TYPE tv_nodekey.
Fields on Dynpro 2000
DATA: g_relatship TYPE i,
      g_cb_sub,
      g_cb_same,
      g_cb_under VALUE 'X',
      g_nodename(30).
Structure for preserving the skeleton
TYPES: BEGIN OF ty_flag,
       relatkey TYPE tv_nodekey,
       node_key TYPE tv_nodekey,
       flag TYPE i,                "1  =  skeleton
                                   "2  =  service line
                                   "3  =  levels
       END OF ty_flag.
DATA: gt_flag TYPE TABLE OF ty_flag,
      gw_flag TYPE ty_flag.
*structure storing the hierarchy and the nodes under them.
***INCLUDE ZKM_PBO_100O01 .
*&      Module  PBO_1000  OUTPUT
      text
MODULE pbo_1000 OUTPUT.
  SET PF-STATUS 'ZMAIN'.
  SET TITLEBAR 'ZTITLE'.
  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.
*registering keys which can trigger the event
  PERFORM register_key_strokes.
*checking status of the actions performed
  CASE sy-ucomm.
    WHEN 'ADD'.               "node successfully added
      MESSAGE s002(zkm_class).
    WHEN 'YES'.               "node successfully deleted
      MESSAGE s003(zkm_class).
    WHEN 'NO' OR 'CANCEL'.    "action cancelled
      MESSAGE s007(zkm_class).
  ENDCASE.
ENDMODULE.                 " PBO_1000  OUTPUT
*&      Module  PBO_2000  OUTPUT
      text
MODULE pbo_2000 OUTPUT.
  SET PF-STATUS 'ZDIALOG'.
  SET TITLEBAR  'ZADD'.
*setting the attributes of the screen field depending on node attributes
  READ TABLE gt_flag INTO gw_flag WITH KEY node_key = g_node_key.
  IF gw_flag-flag = 3.
    LOOP AT SCREEN.
      IF screen-name      = 'BRANCH'.
        screen-invisible = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDMODULE.                 " PBO_2000  OUTPUT
*&      Module  PBO_3000  OUTPUT
      text
MODULE pbo_3000 OUTPUT.
  SET PF-STATUS 'ZDIALOG'.
  SET TITLEBAR  'ZCONFIRM'.
ENDMODULE.                 " PBO_3000  OUTPUT
***INCLUDE ZKM_PAI_100I01 .
*&      Module  PAI_1000  INPUT
      text
MODULE pai_1000 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.
    EXIT.
  ENDIF.
  CASE sy-ucomm.
    WHEN 'ADDND'.
*check whether node has been selected or not
      IF g_event NE 'NODE_DOUBLE_CLICK'. "AND g_node_key EQ ' '.
        MESSAGE e000(zkm_class).
      ELSE.
*whether selected node can have sub-branches or not
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key = g_node_key.
        IF gw_nodetable-isfolder = ' '.
          MESSAGE e006(zkm_class).
        ELSE.
*call screen for adding the node.
          CALL SCREEN 2000 STARTING AT 20 10.
        ENDIF.
      ENDIF.
      CLEAR g_event.
    WHEN 'DELND'.
*check whether node has been selected or not
      IF g_event NE 'NODE_DOUBLE_CLICK'.
        MESSAGE e000(zkm_class).
      ELSE.
*skeleton should not be deleted.
        IF g_node_key EQ 'Capgemini'   OR
           g_node_key EQ 'TSP-SAP-CRM' OR
           g_node_key EQ 'MANAGERS'    OR
           g_node_key EQ 'TEAM LEAD'.
          MESSAGE e004(zkm_class).
        ENDIF.
*call screen for confirmation
        CALL SCREEN 3000 STARTING AT 20 10.
      ENDIF.
      CLEAR g_event.
    WHEN 'TEST'.
      CALL METHOD g_tree->expand_node
        EXPORTING
          node_key = 'New1'.
    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.
ENDMODULE.                 " PAI_1000  INPUT
*&      Module  pai_2000  INPUT
      text
MODULE pai_2000 INPUT.
  DATA: node_table TYPE node_table_type,
        node LIKE zkm_treesnode.
  CASE sy-ucomm.
    WHEN 'BACK'.
      CALL SCREEN 1000.
    WHEN 'ADD'.
      IF g_nodename IS INITIAL. "Has to enter the Node name
        MESSAGE s005(zkm_class).
        CALL SCREEN 2000 STARTING AT 20 10.
      ELSE.
*Checking whether specified node already exists or not
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key =  g_nodename.
        IF sy-subrc EQ 0.
          CLEAR gw_flag.
          MESSAGE s008(zkm_class).
          CALL SCREEN 2000 STARTING AT 20 10.
        ENDIF.
*assigning attributes to the node
        CLEAR node.
        CLEAR node_table.
        node-node_key = g_nodename.            "Key of the Node.
        node-relatkey  = g_node_key.           "Relationship with the selected node
        node-relatship =  cl_gui_simple_tree=>relat_last_child.
*checking whether the node would be a folder or a leaf
        READ TABLE gt_flag INTO gw_flag WITH KEY node_key = g_node_key.
        IF gw_flag-flag = 1 OR gw_flag-flag = 2.
          node-hidden    = ' '.
          node-disabled  = ' '.
          node-isfolder  = 'X'.
          CLEAR node-n_image.
          CLEAR node-exp_image.
          CLEAR node-expander.
          IF gw_flag-flag EQ 1.
            gw_flag-flag = 2.
          ELSE.
            gw_flag-flag = 3.
          ENDIF.
        ELSEIF gw_flag-flag = 3.
          node-n_image   = '@XY@'.
          node-isfolder  = ' '.
          node-expander  = ' '.
          gw_flag-flag = 3.
        ENDIF.
        CLEAR node-exp_image.
        node-text = g_nodename.
        APPEND node TO node_table.
*keeping records of all the nodes added in the tree
        gw_nodetable = node.
        APPEND gw_nodetable TO gt_nodetable.
        CLEAR gw_nodetable.
*append structure 'FLAG' to group the added node according to position
        gw_flag-relatkey = g_node_key.
        gw_flag-node_key = g_nodename.
        APPEND gw_flag TO gt_flag.
        CLEAR gw_flag.
*adding nodes in the tree
        CALL METHOD g_tree->add_nodes
          EXPORTING
            table_structure_name           = 'ZKM_TREESNODE'
            node_table                     = node_table
          EXCEPTIONS
            error_in_node_table            = 1
            failed                         = 2
            dp_error                       = 3
            table_structure_name_not_found = 4
            OTHERS                         = 5.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        CLEAR g_nodename.    "clearing screen field
        CALL SCREEN 1000.
      ENDIF.
    WHEN 'CANCEL'.
      CALL SCREEN 1000.
  ENDCASE.
ENDMODULE.                 " pai_2000  INPUT
*&      Module  PAI_3000  INPUT
      text
MODULE pai_3000 INPUT.
  CASE sy-ucomm.
    WHEN 'YES'.      "user agrees to delete the node
      CALL METHOD g_tree->delete_node
        EXPORTING
          node_key          = g_node_key
        EXCEPTIONS
          failed            = 1
          node_not_found    = 2
          cntl_system_error = 3
          OTHERS            = 4.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ELSE.
        gw_nodetable-node_key = g_node_key.
        gw_flag-node_key      = g_node_key.
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key = g_node_key.
        IF sy-subrc EQ 0.
          DELETE gt_nodetable INDEX sy-tabix.
        ENDIF.
        READ TABLE gt_flag INTO gw_flag WITH KEY node_key = g_node_key.
        IF sy-subrc EQ 0.
          DELETE gt_flag INDEX sy-tabix.
        ENDIF.
        CLEAR gw_flag.
        CLEAR gw_nodetable.
        CALL SCREEN 1000.
      ENDIF.
    WHEN 'NO'.       "user clicks the cancel button
      CALL SCREEN 1000.
  ENDCASE.
ENDMODULE.                 " PAI_3000  INPUT
***INCLUDE ZKM_FORM01 .
*&      Form  create_and_init_tree
      text
-->  p1        text
<--  p2        text
FORM create_and_init_tree .
  DATA: node_table TYPE node_table_type,
          events TYPE cntl_simple_events,
          event TYPE cntl_simple_event.
*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
      OTHERS                      = 6
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
*create tree control.
  CREATE OBJECT g_tree
    EXPORTING
      parent                      = g_custom_container
      node_selection_mode         = cl_gui_simple_tree=>node_sel_mode_single
    EXCEPTIONS
      lifetime_error              = 1
      cntl_system_error           = 2
      create_error                = 3
      failed                      = 4
      illegal_node_selection_mode = 5
      OTHERS                      = 6
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
*define events which will be passed to the backend.
  "node double click.
  event-eventid    = cl_gui_simple_tree=>eventid_node_double_click.
  event-appl_event = 'X'.  "process PAI if event occurs.
  APPEND event TO events.
  "expand no children.
  event-eventid    = cl_gui_simple_tree=>eventid_expand_no_children.
  event-appl_event = 'X'.
  APPEND event TO events.
  "node key press
  event-eventid    = cl_gui_simple_tree=>eventid_node_keypress.
  event-appl_event = 'X'.
  APPEND event TO events.
  "NODE_CONTEXT_MENU_REQUEST
  event-eventid    = cl_gui_simple_tree=>eventid_node_context_menu_req.
  event-appl_event = 'X'.
  APPEND event TO events.
  "event node_context_menu_select is automatically registered on registering
  " the event NODE_CONTEXT_MENU_REQUEST
  " process PAI if context menu select event occurs
  CALL METHOD g_tree->set_ctx_menu_select_event_appl
    EXPORTING
      appl_event = 'X'.
  CALL METHOD g_tree->set_registered_events
    EXPORTING
      events                    = events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3
      OTHERS                    = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  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_expand_no_children    FOR g_tree.
  SET HANDLER g_application->handle_node_keypress         FOR g_tree.
  SET HANDLER g_application->handle_node_context_menu_req FOR g_tree.
  SET HANDLER g_application->handle_node_context_menu_sel FOR g_tree.
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_table USING node_table.
  CALL METHOD g_tree->add_nodes
    EXPORTING
      table_structure_name           = 'ZKM_TREESNODE'
      node_table                     = node_table
    EXCEPTIONS
      error_in_node_table            = 1
      failed                         = 2
      dp_error                       = 3
      table_structure_name_not_found = 4
      OTHERS                         = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " create_and_init_tree
*&      Form  BUILD_NODE_TABLE
      text
     -->P_NODE_TABLE  text
FORM build_node_table
USING node_table TYPE node_table_type.
  DATA: node LIKE zkm_treesnode.
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
occur in the node table before its parent node.
*Node with key 'Capgemini'.
  node-node_key = 'Capgemini'.   "Key of the node.
  CLEAR node-relatkey.      "Special case.. A root node has no parent node.
  CLEAR node-relatship.
  node-hidden   = ' '.      "Node is visible.
  node-disabled = ' '.      "Selectable.
  node-isfolder = 'X'.      "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.
  node-text = 'Capgemini'.
  APPEND node TO node_table.
  gw_nodetable = node.
  APPEND gw_nodetable TO gt_nodetable.
  CLEAR gw_nodetable.
  CLEAR gw_flag-relatkey.
  gw_flag-node_key = 'Capgemini'.
  gw_flag-flag     = 1.              "Skeleton
  APPEND gw_flag TO gt_flag.
  CLEAR gw_flag.
  CLEAR node.
*Node with key 'TSP-SAP-CRM'.
  node-node_key = 'TSP-SAP-CRM'. "Key of the Node.
  "Node is inserted as child of the node with key 'Root'.
  node-relatkey  = 'Capgemini'.
  node-relatship = cl_gui_simple_tree=>relat_last_child.
  node-hidden   = ' '.      "Node is visible.
  node-disabled = ' '.      "Selectable.
  node-isfolder = 'X'.      "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.
  node-text = 'TSP-SAP-CRM'.
  APPEND node TO node_table.
  gw_nodetable = node.
  APPEND gw_nodetable TO gt_nodetable.
  CLEAR gw_nodetable.
*adding the node for corresponding relatkey
  gw_flag-relatkey = 'Capgemini'.
  gw_flag-node_key = 'TSP-SAP-CRM'.
  gw_flag-flag     = 2.               "Service line
  APPEND gw_flag TO gt_flag.
  CLEAR gw_flag.
*creating new relatkey in gt_flag
  gw_flag-relatkey = 'TSP-SAP-CRM'.
  gw_flag-node_key = ' '.
  gw_flag-flag     = '2'.
  APPEND gw_flag TO gt_flag.
*Node with key 'Managers'
  node-node_key  = 'MANAGERS'.
  node-relatkey  = 'TSP-SAP-CRM'.
  node-relatship =  cl_gui_simple_tree=>relat_last_child.
  CLEAR node-n_image.
  CLEAR node-exp_image.
  CLEAR node-expander.   "  = ' '.
  node-isfolder  = 'X'.
  node-text      = 'Managers'.
  APPEND node TO node_table.
  gw_nodetable = node.
  APPEND gw_nodetable TO gt_nodetable.
  CLEAR gw_nodetable.
  gw_flag-relatkey = 'TSP-SAP-CRM'.
  gw_flag-node_key = 'MANAGERS'.
  gw_flag-flag     = 3.                "Levels
  APPEND gw_flag TO gt_flag.
  CLEAR gw_flag.
  gw_flag-relatkey = 'MANAGERS'.
  gw_flag-node_key = ' '.
  gw_flag-flag     = '2'.
  APPEND gw_flag TO gt_flag.
*Node with key 'Team Lead'.
  node-node_key  = 'TEAM LEAD'.
  node-relatkey  = 'TSP-SAP-CRM'.
  node-relatship =  cl_gui_simple_tree=>relat_last_child.
  CLEAR node-n_image.
  CLEAR node-exp_image.
  CLEAR node-expander.   "  = ' '.
  node-isfolder  = 'X'.
  node-text      = 'TEAM LEAD'.
  APPEND node TO node_table.
  gw_nodetable = node.
  APPEND gw_nodetable TO gt_nodetable.
  CLEAR gw_nodetable.
  gw_flag-relatkey = 'TSP-SAP-CRM'.
  gw_flag-node_key = 'Team_Lead'.
  gw_flag-flag     = 3.               "Levels
  APPEND gw_flag TO gt_flag.
  CLEAR gw_flag.
  gw_flag-relatkey = 'TEAM LEAD'.
  gw_flag-node_key = ' '.
  gw_flag-flag     = '2'.
  APPEND gw_flag TO gt_flag.
ENDFORM.                    " BUILD_NODE_TABLE
*&      Form  register_key_strokes
      text
-->  p1        text
<--  p2        text
FORM register_key_strokes .
  g_key = cl_tree_control_base=>key_delete.
  "process PAI if node key press occurs
  CALL METHOD g_tree->add_key_stroke
    EXPORTING
      key               = g_key
    EXCEPTIONS
      failed            = 1
      illegal_key       = 2
      cntl_system_error = 3
      OTHERS            = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  g_key = cl_tree_control_base=>key_enter.
  "process PAI if node key press occurs
  CALL METHOD g_tree->add_key_stroke
    EXPORTING
      key               = g_key
    EXCEPTIONS
      failed            = 1
      illegal_key       = 2
      cntl_system_error = 3
      OTHERS            = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  g_key = cl_tree_control_base=>key_insert.
  CALL METHOD g_tree->add_key_stroke
    EXPORTING
      key               = g_key
    EXCEPTIONS
      failed            = 1
      illegal_key       = 2
      cntl_system_error = 3
      OTHERS            = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " register_key_strokes
***INCLUDE ZKM_CL .
*&       Class LCL_APPLICATION
       Text
CLASS lcl_application DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_node_double_click
     FOR EVENT node_double_click
     OF cl_gui_simple_tree
     IMPORTING node_key,
    handle_expand_no_children
     FOR EVENT expand_no_children
     OF cl_gui_simple_tree
     IMPORTING node_key,
    handle_node_keypress
     FOR EVENT node_keypress
     OF cl_gui_simple_tree
     IMPORTING node_key key,
    handle_node_context_menu_req
     FOR EVENT node_context_menu_request
     OF cl_gui_simple_tree
     IMPORTING node_key menu,
    handle_node_context_menu_sel
     FOR EVENT node_context_menu_select
     OF cl_gui_simple_tree
     IMPORTING node_key fcode.
ENDCLASS.               "LCL_APPLICATION
*&       Class (Implementation)  LCL_APPLICATION
       Text
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.
  ENDMETHOD.                    "HANDLE_NODE_DOUBLE_CLICK
  METHOD handle_expand_no_children.
    " this method handles the expand no children event of the tree
    " control instance
    DATA: node_table TYPE node_table_type,
          node TYPE zkm_treesnode.
    "show the key of the double clicked node on the dynpro field.
    g_event = 'EXPAND_NO_CHILDREN'.
    g_node_key = node_key.
    IF node_key = 'TSP-SAP-CRM'.
*add two nodes to the tree control (The children of Child1).
*Node with key 'New1'.
      CLEAR node.
      node-node_key  = 'Managers'.
      node-relatkey  = 'TSP-SAP-CRM'.
      node-relatship =  cl_gui_simple_tree=>relat_last_child.
      node-n_image   = '@XY@'.
      CLEAR node-exp_image.
      node-expander  = ' '.
      node-isfolder  = ' '.
      node-text      = 'Managers'.
      APPEND node TO node_table.
*Node with key 'New2'.
      CLEAR node.
      node-node_key  = 'Team_Lead'.
      node-relatkey  = 'TSP-SAP-CRM'.
      node-relatship =  cl_gui_simple_tree=>relat_last_child.
      node-n_image   = '10'.
      CLEAR node-exp_image.
      node-expander  = ' '.
      node-isfolder  = ' '.
      node-text      = 'Team Lead'.
      APPEND node TO node_table.
    ENDIF.
    CALL METHOD g_tree->add_nodes
      EXPORTING
        table_structure_name           = 'MTREESNODE'
        node_table                     = node_table
      EXCEPTIONS
        error_in_node_table            = 1
        failed                         = 2
        dp_error                       = 3
        table_structure_name_not_found = 4
        OTHERS                         = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDMETHOD.                    "HANDLE_EXPAND_NO_CHILDREN
  METHOD handle_node_keypress.
    g_node_key =  node_key.
    CASE key.
      WHEN 2.
        g_event = 'DELETE KEY PRESSED'.
        READ TABLE gt_flag INTO gw_flag WITH KEY node_key = g_node_key.
        IF gw_flag-flag EQ 1.
          MESSAGE e004(zkm_class).
        ENDIF.
        CALL SCREEN 3000 STARTING AT 20 10.
        CLEAR g_event.
      WHEN 3.
        g_event = 'INSERT KEY PRESSED'.
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key = g_node_key.
        IF gw_nodetable-isfolder = ' '.
          MESSAGE e006(zkm_class).
        ELSE.
          CALL SCREEN 2000 STARTING AT 20 10.
          MESSAGE s001(zkm_class).
        ENDIF.
        CLEAR g_event.
      WHEN 5.
        g_event = 'ENTER KEY PRESSED'.
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key =  node_key.
        IF gw_nodetable-isfolder = ' '.
          MESSAGE e009(zkm_class).
        ELSE.
          CALL METHOD g_tree->expand_node
            EXPORTING
              node_key            = node_key
            EXCEPTIONS
              failed              = 1
              illegal_level_count = 2
              cntl_system_error   = 3
              node_not_found      = 4
              cannot_expand_leaf  = 5
              OTHERS              = 6.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
        ENDIF.
    ENDCASE.
    CALL METHOD g_tree->remove_all_key_strokes
      EXCEPTIONS
        failed            = 1
        cntl_system_error = 2.
  ENDMETHOD.                    "HANDLE_NODE_KEYPRESS.
  METHOD handle_node_context_menu_req.
    g_event    = 'NODE_CONTEXT_MENU_REQ'.
    g_node_key = node_key.
    CALL METHOD menu->add_function
      EXPORTING
        fcode = 'ADD'
        text  = 'Add Node'.
    CALL METHOD menu->add_function
      EXPORTING
        fcode = 'DELETE'
        text  = 'Delete Node'.
  ENDMETHOD.                    "handle_node_context_menu_req
  METHOD handle_node_context_menu_sel.
    g_event = 'NODE_CONTEXT_MENU_SELECT'.
    CASE fcode.
      WHEN 'ADD'.
        READ TABLE gt_nodetable INTO gw_nodetable WITH KEY node_key = g_node_key.
        IF gw_nodetable-isfolder = ' '.
          MESSAGE e006(zkm_class).
        ELSE.
          CALL SCREEN 2000 STARTING AT 20 10.
          MESSAGE s001(zkm_class).
        ENDIF.
        CLEAR g_event.
      WHEN 'DELETE'.
        IF g_node_key EQ 'Capgemini'   OR
           g_node_key EQ 'TSP-SAP-CRM' OR
           g_node_key EQ 'MANAGERS'    OR
           g_node_key EQ 'TEAM LEAD'.
          MESSAGE e004(zkm_class).
        ENDIF.
        CALL SCREEN 3000 STARTING AT 20 10.
        CLEAR g_event.
    ENDCASE.
  ENDMETHOD.                    "handle_node_context_menu_sel
ENDCLASS.               "LCL_APPLICATION
This is a complete tree control application..  I am sure it will solve all your problems.
Pls pls reward points if useful.
Regards,
Karan