Code to create dynamic context elements

Question

Dear Guys,
I have create a dynamic text edit using the following code in abap webdynpro.
I have created a transparent container named PREREPLY set to grid layout and created a context REPLY type string and in WDDOMODIFYVIEW view i have written the following 
data : lr_container type ref to cl_wd_uielement_container,
         lr_comment type ref to cl_wd_text_edit.
lr_container ?= view->get_element( 'PREREPLY' ).
lr_comment = cl_wd_text_edit=>NEW_TEXT_EDIT( BIND_VALUE = 'REPLY'
                                                                                COLS = 70
                                                                                ID = 'PREREPLIES2'
                                                                                STATE = 01 ).
lr_comment->BIND_VALUE( 'REPLY' ).
cl_wd_grid_data=>new_grid_data( element = lr_comment ).
lr_container->ADD_CHILD( lr_comment ).
i am able to see a new textedit when i run my application.
Now I want to create the context also dynamically, because i will not know how many text edit will be there. Based on the number of lines in the internal table i want the create the context and textedits dynamically.
Give me the code to create context dynamically in abap webdynpro.
Regards,
Shamila

Answer 1

Hi Sharmila,
Just go through this sample code snippet which does the following.
1) It dynamically creates a context node named CHILD and then creates 4 attributes ATTR1, ATTR2,..
2) Creates a GROUP UI element with a caption attached to it
3) Create 4 textEdit UI elements bound to the 4 context attributes created earlier and embed them within the group
METHOD wddomodifyview.
  DATA: lr_container TYPE REF TO cl_wd_uielement_container,
        lr_group TYPE REF TO cl_wd_group,
        lr_caption_group TYPE REF TO cl_wd_caption,
        lr_textedit TYPE REF TO cl_wd_text_edit,
        lr_node_info TYPE REF TO if_wd_context_node_info,
        lr_node TYPE REF TO if_wd_context_node,
        lr_element TYPE REF TO if_wd_context_element,
        lr_attribute_info TYPE wdr_context_attribute_info,
        content TYPE string,
        attribute_name TYPE string,
     lv_textview_id TYPE string.
  CHECK first_time = abap_true.
  lr_node_info = wd_context->get_node_info( ).
  CALL METHOD lr_node_info->add_new_child_node
    EXPORTING
      name                         = 'CHILD'
      is_mandatory                 = abap_false
      is_multiple                  = abap_true
      is_multiple_selection        = abap_true
      is_singleton                 = abap_false
      is_initialize_lead_selection = abap_true
      is_static                    = abap_false
    RECEIVING
      child_node_info              = lr_node_info.
  lr_container ?= view->get_root_element( ).
  cl_wd_matrix_layout=>new_matrix_layout( container = lr_container ).
  lr_group = cl_wd_group=>new_group( id = 'GROUP' ).
  lr_group->set_width( value = '50%' ).
  cl_wd_matrix_layout=>new_matrix_layout( container = lr_group ).
  cl_wd_matrix_head_data=>new_matrix_head_data( element = lr_group ).
  lr_caption_group = cl_wd_caption=>new_caption( text = 'Group Header' ).
  lr_group->set_header( the_header = lr_caption_group ).
  DO 4 TIMES.
    MOVE sy-index TO attribute_name.
** Preparing the data to be displayed in the textEdit i.e, data for context attribute
    CONCATENATE 'This'
                'is the'
                'data for textEdit number: '
                 attribute_name  INTO content SEPARATED BY cl_abap_char_utilities=>newline.
    CONCATENATE 'ATTR'
                attribute_name INTO attribute_name.
** Condense the ID to ensure that the format is consistent with SAP standard
    CONDENSE attribute_name NO-GAPS.
** Prepare properties of attribute & add to context node CHILD
    lr_attribute_info-name = attribute_name.
    lr_attribute_info-type_name = 'STRING'.
    lr_attribute_info-value_help_mode = '0'.
    lr_node_info->add_attribute( EXPORTING attribute_info = lr_attribute_info ).
    lr_node = wd_context->get_child_node( name = 'CHILD' ).
    lr_element = lr_node->create_element( ).
    lr_element->set_attribute( name  = attribute_name
                               value = content ).
    lr_node->bind_element( new_item             = lr_element
                           set_initial_elements = abap_false ).
** Compute the attribute path dynamically i.e, like CHILD.ATTR1
    CONCATENATE 'CHILD.'
                attribute_name INTO attribute_name.
    CONDENSE attribute_name NO-GAPS.
    lr_textedit = cl_wd_text_edit=>new_text_edit( cols  = 10
                                                  rows  = 5
                                                  width = '90%'
                                                  bind_value = attribute_name ).
    cl_wd_matrix_head_data=>new_matrix_head_data( element = lr_textedit ).
    lr_group->add_child( the_child = lr_textedit ).
  ENDDO.
lr_container->add_child( the_child = lr_group ).
ENDMETHOD.
Hope that you can manage to go through this & try change it to suit your requirement.
Regards,
Uday