FORM set_stat_msh USING guid TYPE LOY_FRW_GUID
                        status TYPE LOY_MSH_STATUS
                        lv_success TYPE boolean.

  lv_success = ''.

  DATA srch_opt TYPE genilt_query_parameters.
  DATA it_selection_parameters TYPE  genilt_selection_parameter_tab.
  DATA sel_p TYPE LINE OF genilt_selection_parameter_tab.

  sel_p-attr_name = 'GUID'.
  sel_p-option = 'EQ'.
  sel_p-sign = 'I'.
  sel_p-low = guid.
  APPEND sel_p TO it_selection_parameters.

  DATA et_data TYPE crmt_loy_msh_mems_attr.
  CALL FUNCTION 'CRM_LOY_MEMBERSHIP_SEARCH'
    EXPORTING
      is_srch_options         = srch_opt
      it_selection_parameters = it_selection_parameters
    IMPORTING
      et_data                 = et_data.


  DATA it_input_fields TYPE crmt_loy_com_input_field.
  DATA inp_f TYPE LINE OF crmt_loy_com_input_field.
  DATA fieldnames TYPE crmt_loy_com_input_field_names.
  DATA f_nms TYPE LINE OF crmt_loy_com_input_field_names.
  DATA ct_data TYPE  crmt_loy_msh_loyd_mems.
  DATA table TYPE LINE OF crmt_loy_msh_loyd_mems.


  f_nms-fieldname = 'STATUS'. "Поля для изменения
  APPEND f_nms TO fieldnames.


  LOOP AT et_data ASSIGNING FIELD-SYMBOL(<fs>).
    inp_f-application = <fs>-application. "импортируемые поля
    inp_f-guid = <fs>-guid.
    inp_f-fieldnames = fieldnames.
    APPEND inp_f TO it_input_fields.

    table-status = status.
    table-guid = <fs>-guid.
    table-ref_guid = <fs>-ref_guid.
    table-application = <fs>-application.
    table-process_type = <fs>-process_type.
    table-memb_guid = <fs>-memb_guid.
    table-pa_set_guid = <fs>-pa_set_guid.
    table-object_id = <fs>-object_id.
    table-mems_type = <fs>-mems_type.
    table-loy_prog_guid = <fs>-loy_prog_guid.
    APPEND table TO ct_data.
  ENDLOOP.

  DATA ev_success TYPE boolean.
  CALL FUNCTION 'CRM_LOY_MEMBERSHIP_PUT'  "изменение
    EXPORTING
      it_input_fields = it_input_fields
    IMPORTING
      ev_success      = ev_success
    CHANGING
      ct_data         = ct_data.

  CALL FUNCTION 'CRM_LOY_MEMBERSHIP_SAVE' "сохранение
    EXPORTING
      iv_update_task = 'X'
    IMPORTING
      ev_success     = ev_success.

  IF ev_success = 'X'.
    lv_success = 'X'.
  ENDIF.

  DATA return TYPE bapiret2.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    IMPORTING
      return = return.

ENDFORM.