Displaying icons in tree view control

Question

Hi all
        i am trying to display  icons in my tree view control.I am using beow code but i am not getting the ouput.Please help me.
Type-pools : fibs,stree , ICON.
data : t_node type snodetext.
data : node_tab like t_node occurs 0 with header line,
       it_icon_id type icon-id.
clear : node_tab, node_tab[].
select single id from icon into it_icon_id
       where name = 'ICON_CUSTOMER'.
node_tab-type = 'T'.
node_tab-name = 'Earth'.
node_tab-tlevel = '01'.
node_tab-nlength = '5'.
node_tab-color = '4'.
node_tab-text = 'Hello'.
node_tab-tlength ='5'.
node_tab-tcolor = 3.
node_tab-NODEICON = it_icon_id.
append node_tab.
clear node_tab.
node_tab-type = 'P'.
node_tab-name = 'Europe'.
node_tab-tlevel = '02'.
node_tab-nlength = '6'.
node_tab-color = '1'.
node_tab-text = 'Hello'.
node_tab-tlength ='5'.
node_tab-tcolor = 4.
node_tab-NODEICON = it_icon_id.
append node_tab.
clear node_tab.
CALL FUNCTION 'RS_TREE_CONSTRUCT'
EXPORTING
  INSERT_ID                = '000000'
  RELATIONSHIP             = ' '
  LOG                      =
  TABLES
    NODETAB                  = node_tab
EXCEPTIONS
  TREE_FAILURE             = 1
  ID_NOT_FOUND             = 2
  WRONG_RELATIONSHIP       = 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.
  DATA: type_mapping TYPE stree_ctl_type_mapping_tab.
  DATA: wa_type TYPE stree_ctl_type_mapping.
  CLEAR: type_mapping[].
    wa_type-type = 'A'.
    wa_type-icon = '@A0@'.
    APPEND wa_type TO type_mapping.
CALL FUNCTION 'RS_TREE_CONTROL_PREPARE'
EXPORTING
    CONTROL_PATTERN             = 'PH'
    MULTIPLE_SELECTION          = 'X'
     TYPE_MAPPING                = type_mapping.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
LAYOUT_MODE                     = ' '
  USE_CONTROL                     = STREE_USE_LIST.
Thank you.
Regards
Giri.

Answer 1

Here is another option using <ICON> include,
*& Report  ZKB_TREE_EXAMPLE
REPORT  zkb_tree_example.
INCLUDE <icon>.
TYPES: BEGIN OF t_sbook,
        customid TYPE sbook-customid,
        fldate TYPE sbook-fldate,
        bookid TYPE sbook-bookid,
      END OF t_sbook.
DATA: i_sbook TYPE TABLE OF t_sbook,
      w_sbook TYPE t_sbook.
SELECT-OPTIONS: s_custid FOR w_sbook-customid.
DATA: o_custom_container  TYPE REF TO cl_gui_custom_container,
      o_tree              TYPE REF TO cl_gui_simple_tree.
TYPES: t_node_table LIKE TABLE OF trstree.
DATA: i_node TYPE t_node_table,
      w_node TYPE LINE OF t_node_table.
START-OF-SELECTION.
  CALL SCREEN 9000.
*&      Module  status_9000  OUTPUT
      text
MODULE status_9000 OUTPUT.
  SET PF-STATUS '9000'.
ENDMODULE.                 " status_9000  OUTPUT
*&      Module  user_command_9000  INPUT
      text
MODULE user_command_9000 INPUT.
  CASE sy-ucomm .
    WHEN 'BACK' OR 'EXIT'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_9000  INPUT
*&      Module  init_9000  OUTPUT
      text
MODULE init_9000 OUTPUT.
  DATA: lw_sbook TYPE t_sbook.
  SELECT customid fldate bookid FROM sbook
         INTO TABLE i_sbook WHERE customid IN s_custid.
  SORT i_sbook BY customid ASCENDING.
  CREATE OBJECT o_custom_container
       EXPORTING
            container_name              = 'TREE'
       EXCEPTIONS
            cntl_error                  = 1
            cntl_system_error           = 2
            create_error                = 3
            lifetime_error              = 4
            lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc <> 0.
    MESSAGE 'Error Creating Container' TYPE 'E'.
  ENDIF.
  CREATE OBJECT o_tree
       EXPORTING
           parent                      = o_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.
  IF sy-subrc <> 0.
    MESSAGE 'Error Creating Tree' TYPE 'E'.
  ENDIF.
Add ROOT Folder
  CLEAR w_node.
  w_node-node_key  = 'ROOT'.
  w_node-text      = 'Root'.
  w_node-isfolder  = 'X'.
  APPEND w_node TO i_node.
  CLEAR lw_sbook .
  LOOP AT  i_sbook INTO w_sbook.
    IF lw_sbook-customid NE w_sbook-customid.
      lw_sbook-customid = w_sbook-customid.
      CLEAR w_node.
      w_node-node_key  = w_sbook-customid.
      w_node-text      = w_sbook-customid.
      w_node-relatkey  = 'ROOT'.
      w_node-relatship = cl_gui_simple_tree=>relat_last_child.
      w_node-isfolder  = 'X'.
      APPEND w_node TO i_node.
    ENDIF.
    CLEAR w_node.
    w_node-node_key  = w_sbook-bookid.
    w_node-relatkey  = w_sbook-customid.
    w_node-relatship = cl_gui_simple_tree=>relat_last_child.
    w_node-text      = w_sbook-bookid.
<b>    w_node-n_image = icon_customer.</b>
    APPEND w_node TO i_node.
  ENDLOOP.
  CALL METHOD o_tree->add_nodes
    EXPORTING
      table_structure_name           = 'TRSTREE'
      node_table                     = i_node
    EXCEPTIONS
      failed                         = 1
      error_in_node_table            = 2
      dp_error                       = 3
      table_structure_name_not_found = 4
      OTHERS                         = 5.
  IF sy-subrc <> 0.
    MESSAGE 'Error Adding Node to Tree' TYPE 'E'.
  ENDIF.
Expand tree
  CALL METHOD o_tree->expand_root_nodes
    EXPORTING
      level_count    = 2
      expand_subtree = ' '
    EXCEPTIONS
      OTHERS         = 1.
  IF sy-subrc <> 0.
    MESSAGE 'Error Expanding Tree' TYPE 'E'.
  ENDIF.
ENDMODULE.                 " init_9000  OUTPUT
Regards
Kathirvel