Need Help Urgently ...regarding Dynamic Tree

Question

Hi Friends ,
I want to display Dynamic Tree . Please see T code
pposa . You can see Organization tree on click of Org str . I want replicate same over WebDynpro .
I feel I have to use Dynamic programming for the same ? Am I correct ? Is there any other mean to replicate that tree over webDynpro ?
Now I am refering WDR_TEST_EVENTS and View TREE_STATIC_DYNLOAD . I feel it addresses my requirement . Now ON_LOAD_CHILDREN I am writing following code
data:
    new_node_name       type string,
    guid                type guid_32,
    lr_context_node     type ref to if_wd_context_node,
    lr_new_context_node type ref to if_wd_context_node,
    lr_node_info        type ref to if_wd_context_node_info,
    lt_attributes       type wdr_context_attr_info_map,
    attribute           like line of lt_attributes,
    lt_context_nodes    type wdr_context_child_map,
    data_source_path    type string,
    text_path           type string,
    expanded_path       type string,
    objid_path          type string,
    lr_tree_node_type   type ref to cl_wd_tree_node_type.
check, if the context node has already a child node
  lt_context_nodes = context_element->get_child_nodes( ).
  if lt_context_nodes[] is initial.
    call function 'GUID_CREATE'
      importing
        ev_guid_32 = guid.
    new_node_name = guid.
    translate new_node_name to upper case.                "#EC SYNTCHAR
    concatenate 'G' new_node_name into new_node_name. "guids might start with a number
attribute-name      = 'STEXT'.
    attribute-type_name = 'STRING'.
    insert attribute into table lt_attributes.
    attribute-name      = 'OBJID'.
    attribute-type_name = 'STRING'.
    insert attribute into table lt_attributes.
    attribute-name      = 'EXPANDED'.
    attribute-type_name = 'WDY_BOOLEAN'.
    insert attribute into table lt_attributes.
    lr_context_node  = context_element->get_node( ).
    lr_node_info     = lr_context_node->get_node_info( ).
    lr_node_info->add_new_child_node(
      supply_method                = 'SUPPLY_ORG'
      supply_object                = me
      name                         = new_node_name
      is_mandatory                 = abap_false
      is_mandatory_selection       = abap_false
      is_multiple                  = abap_true
      is_multiple_selection        = abap_true
      is_singleton                 = abap_false
      is_initialize_lead_selection = abap_false
      is_static                    = abap_false
      attributes                   = lt_attributes ).
    lr_new_context_node = context_element->get_child_node( new_node_name ).
    data_source_path = lr_new_context_node->get_meta_path( withoutcontroller = abap_true ).
    concatenate data_source_path '.STEXT' into text_path.
    concatenate data_source_path '.OBJID' into objid_path.
    concatenate data_source_path '.EXPANDED' into expanded_path.
    lr_tree_node_type = cl_wd_tree_node_type=>new_tree_node_type(
                          bind_data_source = data_source_path
                          bind_text        = text_path
                          bind_expanded    = expanded_path
                          on_load_children = 'ON_LOAD_CHILDREN'
                          view             = wd_this->m_tree->view ).
    wd_this->m_tree->add_node_type( lr_tree_node_type ).
  endif.
Please note my context str is as follows .
Org_tree (1..1  , lead initiallizatiion flag set )
|-------Node_Org_Unit (0...n )  (  With supply function  )
             |________________STEXT
             |________________EXPANDED
             |________________HROBJID
Am I correct ?
I am getting dump as
The following error text was processed in the system DJA : Der Parameter PATH enthält einen ungültigen Wert .
The error occurred on the application server q4inpusy007_DJA_01 and in the work process 1 .
The termination type was: RABAX_STATE
The ABAP call stack was:
Method: ONACTIONON_LOAD_CHILDREN of program /1BCWDY/0V6J0XAP77D0N0LEA1QL==CP
Method: IF_WDR_VIEW_DELEGATE~WD_INVOKE_EVENT_HANDLER of program /1BCWDY/0V6J0XAP77D0N0LEA1QL==CP
Method: INVOKE_EVENTHANDLER of program CL_WDR_DELEGATING_VIEW========CP
Method: IF_WDR_ACTION~FIRE of program CL_WDR_ACTION=================CP
Method: DO_HANDLE_ACTION_EVENT of program CL_WDR_WINDOW_PHASE_MODEL=====CP
Method: PROCESS_REQUEST of program CL_WDR_WINDOW_PHASE_MODEL=====CP
Method: PROCESS_REQUEST of program CL_WDR_WINDOW=================CP
Method: EXECUTE of program CL_WDR_MAIN_TASK==============CP
Method: IF_HTTP_EXTENSION~HANDLE_REQUEST of program CL_WDR_MAIN_TASK==============CP
Method: EXECUTE_REQUEST_FROM_MEMORY of program CL_HTTP_SERVER================CP
Please help me .
Points will awarded .
Cheers
Parry

Answer 1

Another possible option is to show a dialog with no OK button. If you hold a reference to it, you can discard the dialog when the operation is complete.