How to get Text for nodes in Tree Structure

Question

Hi Friends,
How to get Text for nodes in Tree Structure
REPORT  YFIIN_REP_TREE_STRUCTURE  no standard page heading.
                   I N I T I A L I Z A T I O N
INITIALIZATION.
AUTHORITY-CHECK OBJECT 'ZPRCHK_NEW' :
                  ID 'YFIINICD' FIELD SY-TCODE.
  IF SY-SUBRC NE 0.
    MESSAGE I000(yFI02) with SY-TCODE .
    LEAVE PROGRAM.
  ENDIF.
class screen_init definition create private.
Public section
  public section.
    class-methods init_screen.
    methods constructor.
Private section
  private section.
    data: container1 type ref to cl_gui_custom_container,
          container2 type ref to cl_gui_custom_container,
          tree type ref to cl_gui_simple_tree.
    methods: fill_tree.
endclass.
Class for Handling Events
class screen_handler definition.
Public section
  public section.
    methods: constructor importing container
               type ref to cl_gui_custom_container,
             handle_node_double_click
               for event node_double_click
               of cl_gui_simple_tree
               importing node_key .
Private section
  private section.
endclass.
*&                        Classes implementation
class screen_init implementation.
*&                        Method INIT_SCREEN
  method init_screen.
    data screen type ref to screen_init.
    create object screen.
  endmethod.
*&                        Method CONSTRUCTOR
  method constructor.
    data: events type cntl_simple_events,
          event like line of events,
          event_handler type ref to screen_handler.
    create object: container1 exporting container_name = 'CUSTOM_1',
                   tree exporting parent = container1
                     node_selection_mode =
            cl_gui_simple_tree=>node_sel_mode_multiple.
    create object: container2 exporting container_name = 'CUSTOM_2',
    event_handler exporting container = container2.
event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
    event-appl_event = ' '.   "system event, does not trigger PAI
    append event to events.
    call method tree->set_registered_events
         exporting events = events.
    set handler event_handler->handle_node_double_click for tree.
     call method: me->fill_tree.
  endmethod.
*&                        Method FILL_TREE
  method fill_tree.
    data: node_table type table of abdemonode,
          node type abdemonode.
types:    begin of tree_node,
          folder(50) type c,
          tcode(60) type c,
          tcode1(60) type c,
          tcode2(60) type c,
          text(60) type c,
          text1(60) type c,
          text2(60) type c,
          end of tree_node.
  data:  wa_tree_node type tree_node,
            t_tree_node type table of tree_node.
wa_tree_node-folder = text-001.
wa_tree_node-tcode  = text-002.
wa_tree_node-text =  'Creditors ageing'.
wa_tree_node-tcode1 = text-003.
wa_tree_node-text1 =  'GR/IR aging'.
wa_tree_node-tcode2 = text-004.
wa_tree_node-text2 =  'Bank Balance'.
append wa_tree_node to t_tree_node.
clear wa_tree_node .
wa_tree_node-folder = text-005.
wa_tree_node-tcode  = text-006.
wa_tree_node-text =  'Creditors ageing'.
wa_tree_node-tcode1 = text-007.
wa_tree_node-text1 =  'Creditors ageing'.
wa_tree_node-tcode2 = text-008.
wa_tree_node-text2 =  'Creditors ageing'.
append wa_tree_node to t_tree_node.
clear wa_tree_node .
wa_tree_node-folder = text-009.
wa_tree_node-tcode  = text-010.
wa_tree_node-text =  'Creditors ageing'.
wa_tree_node-tcode1 = text-011.
wa_tree_node-text1 =  'Creditors ageing'.
wa_tree_node-tcode2 = text-012.
wa_tree_node-text2 =  'Creditors ageing'.
append wa_tree_node to t_tree_node.
clear wa_tree_node .
node-hidden = ' '.                 " All nodes are visible,
    node-disabled = ' '.               " selectable,
    node-isfolder = 'X'.                                    " a folder,
    node-expander = ' '.               " have no '+' sign forexpansion.
    loop at t_tree_node into wa_tree_node.
      at new folder.
        node-isfolder = 'X'.                      " a folder,
        node-node_key = wa_tree_node-folder.
               clear node-relatkey.
        clear node-relatship.
        node-text = wa_tree_node-folder.
        node-n_image =   ' '.
        node-exp_image = ' '.
        append node to node_table.
      endat.
     at new tcode .
        node-isfolder = ' '.                          " a folder,
        node-n_image =   '@CS@'.       "AV is the internal code
        node-exp_image = '@CS@'.       "for an airplane icon
        node-node_key = wa_tree_node-tcode.
         node-text = wa_tree_node-text .
                 node-relatkey = wa_tree_node-folder.
        node-relatship = cl_gui_simple_tree=>relat_last_child.
      endat.
      append node to node_table.
    at new tcode1 .
        node-isfolder = ' '.                          " a folder,
        node-n_image =   '@CS@'.       "AV is the internal code
        node-exp_image = '@CS@'.       "for an airplane icon
        node-node_key = wa_tree_node-tcode1.
                 node-relatkey = wa_tree_node-folder.
        node-relatship = cl_gui_simple_tree=>relat_last_child.
          node-text = wa_tree_node-text1.
     endat.
      append node to node_table.
       at new tcode2 .
        node-isfolder = ' '.                          " a folder,
        node-n_image =   '@CS@'.       "AV is the internal code
        node-exp_image = '@CS@'.       "for an airplane icon
        node-node_key = wa_tree_node-tcode2.
                 node-relatkey = wa_tree_node-folder.
        node-relatship = cl_gui_simple_tree=>relat_last_child.
        node-text = wa_tree_node-text2.
     endat.
      append node to node_table.
    endloop.
    call method tree->add_nodes
         exporting table_structure_name = 'ABDEMONODE'
                   node_table = node_table.
  endmethod.
endclass.
*&                        Class implementation
class screen_handler implementation.
*&                        Method CONSTRUCTOR
  method constructor.
   create object: HTML_VIEWER exporting PARENT = CONTAINER,
                  LIST_VIEWER exporting I_PARENT = CONTAINER.
  endmethod.
*&                 Method HANDLE_NODE_DOUBLE_CLICK
  method handle_node_double_click.
  case node_key(12).
when 'Creditors'.
submit YFIIN_REP_CREADITORS_AGING  via selection-screen and return.
when  'Vendor'.
submit YFIIN_REP_VENDOR_OUTSTANDING  via selection-screen and return.
when 'Customer'.
submit YFIIN_REP_CUSTOMER_OUTSTANDING  via selection-screen and
return.
when 'GR/IR'.
submit YFIIN_REP_GRIR_AGING  via selection-screen and return.
when 'Acc_Doc_List'.
submit YFIIN_REP_ACCOUNTINGDOCLIST  via selection-screen and return.
when 'Bank Bal'.
submit YFIIN_REP_BANKBALANCE  via selection-screen and return.
when 'Ven_Cus_Dtl'.
submit YFIIN_REP_VENDORCUST_DETAIL via selection-screen and return.
when 'G/L_Open_Bal'.
submit YFIIN_REP_OPENINGBALANCE via selection-screen and return.
when 'Usr_Authn'.
submit YFIIN_REP_USERAUTHRIZATION via selection-screen and return.
endcase.
  endmethod.
endclass.
Program execution ************************************************
load-of-program.
  call screen 9001.
at selection-screen.
Dialog Modules PBO
*&      Module  STATUS_9001  OUTPUT
      text
module status_9001 output.
  set pf-status 'SCREEN_9001'.
  set titlebar 'TIT_9001'.
  call method screen_init=>init_screen.
endmodule.                 " STATUS_9001  OUTPUT
Dialog Modules PAI
*&      Module  USER_COMMAND_9001  INPUT
      text
module user_command_9001 input.
endmodule.                 " USER_COMMAND_9001  INPUT
*&      Module  exit_9001  INPUT
      text
module exit_9001 input.
case sy-ucomm.
when 'EXIT'.
  set screen 0.
endcase.
endmodule.
        exit_9001  INPUT

Answer 1

you can read  the table node_table with nody key value which imports when docubble click the the tree node (Double clifk event).
Regards,
Gopi .
Reward points if helpfull.