METHOD if_ex_scmg_chng_bfr_str_c~change.

  DATA: l_id        TYPE  srmadid,
        l_value      TYPE string,
        l_zvalue     TYPE string,
        l_zid        TYPE  srmadid,
        l_stat_orderno  TYPE        scmgstatusonr.

  DEFINE get_at.
    l_zid = &1.
    clear l_zvalue.
    try.
        call method im_case->get_single_attribute_value
          exporting
            im_srmadid     = l_zid
          receiving
            re_value       = l_zvalue.
        &2 = l_zvalue.
      catch cx_scmg_case_attribute .
      catch cx_srm_framework .
    endtry.
  END-OF-DEFINITION.

  DEFINE set_at.
    l_zid = &1.
    l_zvalue = &2.
    try.
        call method im_case->set_single_attribute_value
          exporting
            im_value   = l_zvalue
            im_srmadid = l_zid.
      catch cx_scmg_case_attribute .
      catch cx_srm_framework .
    endtry.
  END-OF-DEFINITION.

  CASE flt_val.
    WHEN 'Z_PR'.

*******  получить данные
      get_at 'STAT_ORDERNO'  l_stat_orderno.
      " прежний статус
      l_stat_orderno_old = im_case->get_single_old_attr_value( if_scmg_case_read=>status_order_no ).

*******     заполнение атрибутов
      l_value = 'Это будет заголовок'. 
      set_at 'CASE_TITLE'  l_value.

  ENDCASE.

ENDMETHOD.

DATA: re_values TYPE srm_list_attribute_value,
          lcl_win TYPE REF TO cl_scmg_case_visualization_win,
          ls_case_miscobject TYPE scmg_case_miscobject,
          ls_sub TYPE scmg_case_subcomponents,
          lcl_sub TYPE REF TO cl_scmg_subcomponent_record,
          re_api_object TYPE REF TO object,
          re_api TYPE REF TO cl_scmg_rec_case_be,
          lcl_element TYPE REF TO cl_srm_sp_record_element,
          lt_element_tab TYPE srm_rec_elem_tab,
          lif_element TYPE REF TO if_srm_sp_record_element,
          l_type TYPE string,
          lt_attribute_tab TYPE srm_xml_attr_tab,
          ls_attr_el TYPE srmxmlar,
          re_is_opened TYPE srmboolean,
          ls_iscopy(1).

    READ TABLE im_case->if_scmg_case_read~misc_objects INTO ls_case_miscobject INDEX 1.
    CHECK sy-subrc = 0.
    lcl_win ?= ls_case_miscobject-object.
    CHECK lcl_win IS NOT INITIAL.

    READ TABLE lcl_win->g_tab_subcomponents INTO ls_sub WITH KEY fcode = 'SUBCOMPONENT_RECORD'.
    CHECK sy-subrc = 0.
    lcl_sub ?= ls_sub-class.
    CHECK lcl_sub IS NOT INITIAL.

    CALL METHOD lcl_sub->if_scmg_subcomponent_backend~get_api
      RECEIVING
        re_api_object = re_api_object.

    re_api ?= re_api_object.
    CHECK  re_api IS NOT INITIAL.

    " record открыт, если на экране выбрана эта подкомпонента
    CALL METHOD re_api->if_srm_sp_record_expert~is_record_opened
      RECEIVING
        re_is_opened = re_is_opened.
    IF re_is_opened = if_srm=>false.
      " надо открыть
      TRY.
          CALL METHOD re_api->if_srm_sp_record~open
            EXPORTING
              for_update   = if_srm=>false
              do_not_parse = if_srm=>false
              write_log    = if_srm=>false.

        CATCH cx_srm_sp_record .
        CATCH cx_srm_gsp_back .
      ENDTRY.

    ENDIF.

    l_type = 'INSTANCE'.
    TRY.
        CALL METHOD re_api->if_srm_sp_record~element_get_by_type
          EXPORTING
            type        = l_type
          RECEIVING
            element_tab = lt_element_tab.

        LOOP AT lt_element_tab INTO lif_element.
          lcl_element ?= lif_element.
          TRY.
              CALL METHOD lcl_element->if_srm_sp_record_element~attributes_get
                RECEIVING
                  attribute_tab              = lt_attribute_tab.
              READ TABLE lt_attribute_tab INTO ls_attr_el WITH KEY name = 'ANCHOR' val = 'ZDOC1'.
              IF sy-subrc = 0.
                ls_iscopy = 'X'.
                EXIT.
              ENDIF.

            CATCH cx_srm_sp_record_element .
          ENDTRY.
        ENDLOOP.

      CATCH cx_srm_sp_record .
    ENDTRY.

    IF re_is_opened = if_srm=>false.
      " надо закрыть
      TRY.
          CALL METHOD re_api->if_srm_sp_record~close.

        CATCH cx_srm_sp_record .
      ENDTRY.
    ENDIF.