anchor.diff:          _raise 'error from DDIF_INDX_PUT'.
         ENDIF.
   
  -      lv_tname = ls_dd12v-sqltab.
  -      lv_tname+10 = ls_dd12v-indexname.
  +      CALL FUNCTION 'DD_DD_TO_E071'
  +        EXPORTING
  +          type     = 'INDX'
  +          name     = ls_dd12v-sqltab
  +          id       = ls_dd12v-indexname
  +        IMPORTING
  +          obj_name = lv_tname.
  +
         activation_add( iv_type = 'INDX'
                         iv_name = lv_tname ).
   
  
positive.code:     lo_xml->structure_add( ig_structure = ls_progdir
                             iv_name      = 'PROGDIR' ).
      IF ls_progdir-subc = '1'.
        serialize_dynpros( EXPORTING iv_program_name = lv_program_name
                                     io_xml          = lo_xml ).
        serialize_cua( EXPORTING iv_program_name = lv_program_name
                                 io_xml          = lo_xml ).
      ENDIF.
  
      IF lines( lt_tpool ) = 1.
  
negative.code:         ev_branch  = lv_branch ).
  
      set_headers(
          is_repo    = is_repo
          iv_service = lc_service
          ii_client  = li_client ).
  