In a tree how to increase length of node_key ?

Question

Hi All,
While creating  a tree structure, how do we increase the size og the node_key?
I want the node_key with the same length as MATNR (i.e. >12 characters)
How to achieve this ?
Regards,
Ashish

Answer 1

Hello Ashish
I am not yet sure about how to fill the List Header column yet at least the sample report ZUS_SDN_LIST_TREE_MODEL_DEMO_1 gives you a flavour of how tree models work.
*& Report  ZUS_SDN_LIST_TREE_MODEL_DEMO_1
*& Thread: In a tree how to increase length of node_key ?
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1148884"></a>
*& Flow logic of screen '0100' (contains no screen elements):
**  PROCESS BEFORE OUTPUT.
**    MODULE STATUS_0100.
**  PROCESS AFTER INPUT.
**    MODULE USER_COMMAND_0100.
REPORT  zus_sdn_list_tree_model_demo_1.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
TYPE-POOLS: abap, shlp.
DATA: gt_node_table   TYPE treemlnota,
      gt_item_table   TYPE treemlitac.
TYPES: BEGIN OF ty_s_key.
TYPES: nkey       TYPE lvc_nkey.
TYPES: parent_key TYPE lvc_nkey.
TYPES: END OF ty_s_key.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE knvv AS data.
INCLUDE TYPE ty_s_key AS key.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab    TYPE STANDARD TABLE OF ty_s_outtab
                      WITH DEFAULT KEY.
DATA: gt_outtab    TYPE ty_t_outtab.
DATA:
  gd_okcode        TYPE ui_func,
  gd_repid         TYPE syst-repid,
  gt_fcat          TYPE lvc_t_fcat,
  gs_layout        TYPE lvc_s_layo,
  gs_variant       TYPE disvariant,
  go_docking       TYPE REF TO cl_gui_docking_container,
  go_listtree      TYPE REF TO cl_list_tree_model.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
    handle_item_double_click
      FOR EVENT item_double_click OF cl_list_tree_model
      IMPORTING node_key
                item_name,
    handle_checkbox_change
      FOR EVENT checkbox_change OF cl_list_tree_model
      IMPORTING node_key
                item_name
                checked.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
  METHOD handle_item_double_click.
    MESSAGE 'Event=Double-Click on Item' TYPE 'I'.
    CALL TRANSACTION 'VA03'.
  ENDMETHOD.                    "handle_item_double_click
  METHOD handle_checkbox_change.
    DATA: ls_outtab     TYPE ty_s_outtab.
    BREAK-POINT.
**    IF ( fieldname = 'LOEVM' ).
**      CALL METHOD go_tree->get_outtab_line
**        EXPORTING
**          i_node_key     = node_key
**        IMPORTING
**          e_outtab_line  = ls_outtab
***          e_node_text    =
***          et_item_layout =
***          es_node_layout =
**        EXCEPTIONS
**          node_not_found = 1
**          OTHERS         = 2.
**      IF sy-subrc <> 0.
***       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***                  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**      ENDIF.
**      ls_outtab-loevm = checked.
**      MODIFY gt_outtab FROM ls_outtab
**        TRANSPORTING loevm
**        WHERE ( nkey = node_key ).
**    ENDIF.
    " Trigger PAI
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'REFRESH'
*        IMPORTING
*          rc       =
  ENDMETHOD.                    "handle_checkbox_change
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
  PERFORM init_controls.
  gd_repid = syst-repid.
  CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
*      container                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 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.
  CALL SCREEN '0100'.
** NOTE: no elements on screen
**  PROCESS BEFORE OUTPUT.
**    MODULE STATUS_0100.
**  PROCESS AFTER INPUT.
**    MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS_0100'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  TRANSLATE gd_okcode TO UPPER CASE.
  CASE gd_okcode.
    WHEN 'BACK'  OR
         'EXIT'  OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'REFRESH'.
**      CALL METHOD go_tree->update_calculations
***        EXPORTING
***          no_frontend_update =
    WHEN 'SELECTED_NODES'.
      PERFORM get_selected_nodes.
    WHEN 'DISPLAY'.
      PERFORM display.
    WHEN OTHERS.
  ENDCASE.
  CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  init_controls
*       text
*  -->  p1        text
*  <--  p2        text
FORM init_controls .
* define local data
  DATA: ls_hierarchy_header   TYPE treemhhdr,
        ls_list_header        TYPE treemlhdr.
* Create docking container
  CREATE OBJECT go_docking
    EXPORTING
      parent = cl_gui_container=>screen0
      ratio  = 90
    EXCEPTIONS
      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.
  ls_hierarchy_header-heading = 'Hierarchy Column'.
  ls_hierarchy_header-width   = 70.
  ls_list_header-heading = 'List Column'.
* create tree control
  CREATE OBJECT go_listtree
    EXPORTING
      node_selection_mode         = cl_gui_column_tree=>node_sel_mode_single
*      hide_selection              =
      item_selection              = 'X'
      with_headers                = 'X'
      hierarchy_header            = ls_hierarchy_header
      list_header                 = ls_list_header
    EXCEPTIONS
      illegal_node_selection_mode = 1
      OTHERS                      = 2.
  IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
**  PERFORM add_nodes_and_items.
  CALL METHOD go_listtree->create_tree_control
    EXPORTING
*      lifetime                     =
      parent                       = go_docking
*      shellstyle                   =
*    IMPORTING
*      control                      =
    EXCEPTIONS
      lifetime_error               = 1
      cntl_system_error            = 2
      create_error                 = 3
      failed                       = 4
      tree_control_already_created = 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 hierarchy
  PERFORM create_hierarchy.
* register events
  PERFORM register_events.
ENDFORM.                    " init_controls
*&      Form  BUILD_FIELDCATALOG
*       text
*  -->  p1        text
*  <--  p2        text
FORM build_fieldcatalog .
  DATA: ls_fcat   TYPE lvc_s_fcat.
  REFRESH: gt_fcat.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'KNVV'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
      i_bypassing_buffer           = 'X'
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  DELETE gt_fcat FROM 10.
  ls_fcat-tech = 'X'.
  MODIFY gt_fcat FROM ls_fcat
    TRANSPORTING tech
    WHERE ( key = 'X' ).
  ls_fcat-edit = 'X'.
  MODIFY gt_fcat FROM ls_fcat
    TRANSPORTING edit
    WHERE ( key NE 'X' ).
  READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'LOEVM'.
  IF ( syst-subrc = 0 ).
    ls_fcat-checkbox = 'X'.
    ls_fcat-edit     = 'X'.
**    ls_fcat-hotspot  = 'X'.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
  ENDIF.
  READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'ERNAM'.
  IF ( syst-subrc = 0 ).
    ls_fcat-hotspot  = 'X'.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
  ENDIF.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  SET_LAYOUT_AND_VARIANT
*       text
*  -->  p1        text
*  <--  p2        text
FORM set_layout_and_variant .
  CLEAR: gs_layout,
         gs_variant.
  gs_variant-report = syst-repid.
  gs_variant-handle = 'TREE'.
ENDFORM.                    " SET_LAYOUT_AND_VARIANT
*&      Form  create_hierarchy
*       text
*  -->  p1        text
*  <--  p2        text
FORM create_hierarchy .
  DATA: ls_knvv     TYPE sflight,
        ld_idx      TYPE i,
        ls_outtab   TYPE ty_s_outtab,
        lt_outtab   TYPE ty_t_outtab.
* get data
  SELECT * FROM knvv INTO CORRESPONDING FIELDS OF TABLE lt_outtab
                        UP TO 20 ROWS .                 "#EC CI_NOWHERE
  SORT lt_outtab BY kunnr vkorg.
* add data to tree
  DATA: ld_root_key  TYPE tm_nodekey,
        ld_kunnr_key TYPE tm_nodekey,
        ld_vkorg_key TYPE tm_nodekey,
        ld_last_key  TYPE tm_nodekey.
  ld_idx = 0.
  LOOP AT lt_outtab INTO ls_outtab.
    AT FIRST.
      PERFORM add_root_line USING    ls_outtab-data
                              CHANGING ld_root_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_root_key.
      ls_outtab-parent_key = space.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDAT.
    ON CHANGE OF ls_outtab-kunnr.
      PERFORM add_customer_line USING    ls_outtab-data
                                         ld_root_key
                              CHANGING ld_kunnr_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_kunnr_key.
      ls_outtab-parent_key = ld_root_key.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDON.
    ON CHANGE OF ls_outtab-vkorg.
      PERFORM add_salesorg_line USING    ls_outtab-data
                                         ld_kunnr_key
                              CHANGING ld_vkorg_key.
      ADD 1 TO ld_idx.
      ls_outtab-nkey       = ld_vkorg_key.
      ls_outtab-parent_key = ld_kunnr_key.
      MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
        TRANSPORTING key.
    ENDON.
    PERFORM add_complete_line USING  ls_outtab-data
                                     ld_vkorg_key
                            CHANGING ld_last_key.
    ADD 1 TO ld_idx.
    ls_outtab-nkey       = ld_last_key.
    ls_outtab-parent_key = ld_vkorg_key.
    MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
      TRANSPORTING key.
  ENDLOOP.
* calculate totals
**  CALL METHOD go_tree->update_calculations.
* this method must be called to send the data to the frontend
**  CALL METHOD go_tree->frontend_update.
ENDFORM.                    " create_hierarchy
*&      Form  add_customer_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT  sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_root_line USING     us_data TYPE ty_s_outtab-data
                             ud_relat_key TYPE tm_nodekey
                     CHANGING  cd_node_key TYPE tm_nodekey.
  DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
  DATA: lt_item_table  TYPE treemlitab,
        ls_item        TYPE treemlitem.
**  ls_item-t_image = '@3Q@'.  " icon_overview
  ls_item-item_name = '1'.
  ls_item-class   = cl_list_tree_model=>item_class_text.
  ls_item-style   = cl_list_tree_model=>style_intensifd_critical.
  ls_item-text = 'Overview: Sales Areas'.
  ls_item-length = 25.
  APPEND ls_item TO lt_item_table.
  cd_node_key = 'ROOT'.
* add node
  CALL METHOD go_listtree->add_node
    EXPORTING
      node_key                = cd_node_key
*     relative_node_key       =
*      relationship            =
      isfolder                = 'X'
*      hidden                  =
*      disabled                =
*      style                   =
*      no_branch               =
*      expander                =
*      image                   =
*      expanded_image          =
*      drag_drop_id            =
*      last_hitem              =
*      user_object             =
*      items_incomplete        =
      item_table              = lt_item_table
    EXCEPTIONS
      node_key_exists         = 1
      node_key_empty          = 2
      illegal_relationship    = 3
      relative_node_not_found = 4
      error_in_item_table     = 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.
ENDFORM.                               " add_root_line
*&      Form  add_customer_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT  sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_customer_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE tm_nodekey
                     CHANGING  cd_node_key TYPE tm_nodekey.
  DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
  DATA: lt_item_table  TYPE treemlitab,
        ls_item        TYPE treemlitem.
  ls_item-t_image = '@A0@'.  " icon_customer
  ls_item-item_name = '1'.
  ls_item-class   = cl_list_tree_model=>item_class_text.
  ls_item-style   = cl_list_tree_model=>style_intensifd_critical.
  ls_item-text = us_data-kunnr.
  ls_item-length = 15.
  APPEND ls_item TO lt_item_table.
  cd_node_key = us_data-kunnr.
* add node
  CALL METHOD go_listtree->add_node
    EXPORTING
      node_key                = cd_node_key
      relative_node_key       = ud_relat_key
      relationship            = cl_list_tree_model=>relat_last_child
      isfolder                = 'X'
*      hidden                  =
*      disabled                =
*      style                   =
*      no_branch               =
*      expander                =
*      image                   =
*      expanded_image          =
*      drag_drop_id            =
*      last_hitem              =
*      user_object             =
*      items_incomplete        =
      item_table              = lt_item_table
    EXCEPTIONS
      node_key_exists         = 1
      node_key_empty          = 2
      illegal_relationship    = 3
      relative_node_not_found = 4
      error_in_item_table     = 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.
ENDFORM.                               " add_customer_line
*&      Form  add_salesorg_line
*       add hierarchy-level 1 to tree
*      -->P_LS_SFLIGHT  sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_salesorg_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE tm_nodekey
                     CHANGING  cd_node_key TYPE tm_nodekey.
  DATA: l_node_text TYPE lvc_value,
        ls_data TYPE ty_s_outtab-data.
* set item-layout
  DATA: lt_item_table  TYPE treemlitab,
        ls_item        TYPE treemlitem.
**  ls_item-t_image = '@A0@'.  " icon_customer
  ls_item-item_name = '1'.
  ls_item-class   = cl_list_tree_model=>item_class_text.
**  ls_item-style   = cl_list_tree_model=>style_intensifd_critical.
  CONCATENATE 'Sales Organisation:' us_data-vkorg
    INTO ls_item-text
    SEPARATED BY space.
  ls_item-length = 25.
  APPEND ls_item TO lt_item_table.
  CLEAR: ls_item.
  ls_item-item_name = '2'.
  ls_item-class   = cl_list_tree_model=>item_class_text.
  ls_item-text = us_data-vtweg.
  ls_item-length = 5.
  APPEND ls_item TO lt_item_table.
  CLEAR: ls_item.
  ls_item-item_name = '3'.
  ls_item-class   = cl_list_tree_model=>item_class_text.
  ls_item-text = us_data-spart.
  ls_item-length = 3.
  APPEND ls_item TO lt_item_table.
  CONCATENATE ud_relat_key us_data-vkorg
    INTO cd_node_key
    SEPARATED BY ' : '.                                     " > 12 char
* add node
  CALL METHOD go_listtree->add_node
    EXPORTING
      node_key                = cd_node_key
      relative_node_key       = ud_relat_key
      relationship            = cl_list_tree_model=>relat_last_child
      isfolder                = 'X'
*      hidden                  =
*      disabled                =
*      style                   =
*      no_branch               =
*      expander                =
*      image                   =
*      expanded_image          =
*      drag_drop_id            =
*      last_hitem              =
*      user_object             =
*      items_incomplete        =
      item_table              = lt_item_table
    EXCEPTIONS
      node_key_exists         = 1
      node_key_empty          = 2
      illegal_relationship    = 3
      relative_node_not_found = 4
      error_in_item_table     = 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.
ENDFORM.                               " add_salesorg_line
*&      Form  add_cmplete_line
*       add hierarchy-level 3 to tree
*      -->P_LS_SFLIGHT  sflight
*      -->P_RELEATKEY   relatkey
*     <-->p_node_key    new node-key
FORM add_complete_line USING     us_data TYPE ty_s_outtab-data
                                 ud_relat_key TYPE tm_nodekey
                     CHANGING  cd_node_key TYPE tm_nodekey.
**  DATA: l_node_text TYPE lvc_value,
**        ls_data TYPE ty_s_outtab-data.
*** set item-layout
**  DATA: lt_item_table  TYPE treemlitac,
**        ls_item        TYPE treemliten.
**  ls_item-node_key = ud_relat_key.
****  ls_item-t_image = '@A0@'.  " icon_customer
**  ls_item-item_name = '3'.
**  ls_item-class   = cl_list_tree_model=>item_class_text.
****  ls_item-style   = cl_list_tree_model=>style_intensifd_critical.
**  CALL METHOD cl_abap_container_utilities=>fill_container_c
**    EXPORTING
**      im_value               = us_data
**    IMPORTING
**      ex_container           = ls_item-text
**    EXCEPTIONS
**      illegal_parameter_type = 1
**      others                 = 2.
**  IF sy-subrc <> 0.
***   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**  ENDIF.
**  ls_item-length = 100.
**  APPEND ls_item TO lt_item_table.
**  CALL METHOD go_listtree->add_items
**    EXPORTING
**      item_table          = lt_item_table
**    EXCEPTIONS
**      error_in_item_table = 1
**      OTHERS              = 2.
**  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.                               " add_complete_line
*&      Form  register_events
*       text
*  -->  p1        text
*  <--  p2        text
FORM register_events.
* define the events which will be passed to the backend
  DATA: lt_events TYPE cntl_simple_events,
        l_event TYPE cntl_simple_event.
* define the events which will be passed to the backend
*  l_event-eventid = cl_list_tree_model=>eventid_expand_no_children.
*  APPEND l_event TO lt_events.
  l_event-eventid = cl_list_tree_model=>eventid_checkbox_change.
  APPEND l_event TO lt_events.
**  l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
**  APPEND l_event TO lt_events.
**  l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
**  APPEND l_event TO lt_events.
**  l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
**  APPEND l_event TO lt_events.
**  l_event-eventid = cl_gui_column_tree=>eventid_header_click.
**  APPEND l_event TO lt_events.
**  l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
**  APPEND l_event TO lt_events.
  l_event-eventid = cl_list_tree_model=>eventid_item_double_click.
  APPEND l_event TO lt_events.
  CALL METHOD go_listtree->set_registered_events
    EXPORTING
      events                    = lt_events
    EXCEPTIONS
      illegal_event_combination = 1
      unknown_event             = 2
      OTHERS                    = 3.
  IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
* set Handler
  SET HANDLER:
    lcl_eventhandler=>handle_item_double_click FOR go_listtree,
    lcl_eventhandler=>handle_checkbox_change   FOR go_listtree.
ENDFORM.                               " register_events
*&      Form  DISPLAY
*       text
*  -->  p1        text
*  <--  p2        text
FORM display .
  DATA: ls_outtab   TYPE ty_s_outtab,
        ls_line     TYPE ty_s_outtab,
        ld_msg      TYPE bapi_msg.
  BREAK-POINT.
  LOOP AT gt_outtab INTO ls_outtab
          WHERE ( loevm = 'X' ).
    CONCATENATE 'Checkbox:'
                ls_outtab-kunnr
                ls_outtab-vkorg
                ls_outtab-vtweg
                ls_outtab-spart
                ls_outtab-loevm
      INTO ld_msg SEPARATED BY space.
    MESSAGE ld_msg TYPE 'I'.
  ENDLOOP.
  IF ( syst-subrc NE 0 ).
    MESSAGE 'No marked checkboxes found' TYPE 'I'.
  ENDIF.
  PERFORM get_selected_nodes.
ENDFORM.                    " DISPLAY
*&      Form  GET_SELECTED_NODES
*       text
*  -->  p1        text
*  <--  p2        text
FORM get_selected_nodes.
* define local data
  DATA: ld_msg        TYPE bapi_msg,
        lt_nodes      TYPE lvc_t_nkey,
        ls_outtab     TYPE ty_s_outtab,
        ld_nkey       TYPE lvc_nkey,
        lt_items      TYPE lvc_t_layi,
        ls_item       TYPE lvc_s_layi.
**  CALL METHOD go_tree->get_selected_nodes
**    CHANGING
**      ct_selected_nodes = lt_nodes
**    EXCEPTIONS
**      cntl_system_error = 1
**      dp_error          = 2
**      failed            = 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.
**  CHECK ( lt_nodes IS NOT INITIAL ).
**  BREAK-POINT.
**  LOOP AT lt_nodes INTO ld_nkey.
**    CALL METHOD go_tree->get_outtab_line
**      EXPORTING
**        i_node_key     = ld_nkey
**      IMPORTING
**        e_outtab_line  = ls_outtab-data
***        e_node_text    =
**        et_item_layout = lt_items
***        es_node_layout =
**      EXCEPTIONS
**        node_not_found = 1
**        OTHERS         = 2.
**    IF sy-subrc <> 0.
***     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**    ENDIF.
**    LOOP AT lt_items INTO ls_item
**                     WHERE ( chosen = 'X' ).
**      CONCATENATE 'Item:'
**                  ls_outtab-kunnr
**                  ls_outtab-vkorg
**                  ls_outtab-vtweg
**                  ls_outtab-spart
**                  ls_outtab-loevm
**        INTO ld_msg SEPARATED BY space.
**      MESSAGE ld_msg TYPE 'I'.
**    ENDLOOP.
**  ENDLOOP.
ENDFORM.                    " GET_SELECTED_NODES
Regards
  Uwe