*Объявление таблиц  it_num, it_char, it_curr
DATA:
      it_num TYPE STANDARD TABLE OF bapi1003_alloc_values_num 
        WITH HEADER LINE
      ,it_char  TYPE STANDARD TABLE OF bapi1003_alloc_values_char
        WITH HEADER LINE
      ,it_curr TYPE STANDARD TABLE OF bapi1003_alloc_values_curr
        WITH HEADER LINE.
* Объявление прочих данных
TYPES:
  BEGIN OF t_charact,
    atfor TYPE cabn-atfor,
    atnam TYPE cabn-atnam,
    atwrt TYPE ausp-atwrt,
    atflv TYPE ausp-atflv,
  END OF t_charact.

DATA: charact TYPE STANDARD TABLE OF t_charact WITH HEADER LINE.

* Заполнение CHARACT


*Получение данных о всех признаках класса
CALL FUNCTION 'BAPI_OBJCL_GET_OBJECT_OF_KEY'
     EXPORTING
          clobjectkeyin  =  l_objectkey
    IMPORTING
          OBJECTNAME     = l_object
          OBJECTTABLE    = l_objecttable
          CLASSTYPE      = l_classtype
     tables
          return         = return.
* считываем список признаков
  CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
    EXPORTING
      objectkey       = l_object
      objecttable     = l_objecttable
      classnum        = classnum
      classtype       = l_classtype
      unvaluated_chars = 'X'
    TABLES
      allocvaluesnum  = it_num
      allocvalueschar = it_char
      allocvaluescurr = it_curr
      return          = it_return2.

 
** Присвоение новых значений

  LOOP AT characts . - таблица с заполненными признаками
    CASE characts-atfor.
      WHEN 'NUM' OR 'CURR'.
        READ TABLE it_num WITH KEY charact = characts-atnam.
        IF syst-subrc  = 0.
         
          it_num-value_from = charact-atflv.
          MODIFY it_num INDEX syst-tabix.
        ELSE.
          it_num-charact = characts-atnam.
          it_num-value_from = characts-atflv.
          APPEND it_num.
        ENDIF.
      WHEN 'CHAR' OR 'DATE'.
        READ TABLE it_char WITH KEY charact = characts-atnam.
        IF syst-subrc  = 0.
          it_char-value_neutral = characts-atwrt.
          MODIFY it_char INDEX syst-tabix.
        ELSE.
          it_char-charact = characts-atnam.
          it_char-value_neutral = characts-atwrt.
          APPEND it_char.
        ENDIF.
    ENDCASE.
  ENDLOOP.


  CALL FUNCTION 'BAPI_OBJCL_CHANGE_KEY'
    EXPORTING
      objectkey          = l_objectkey
      classnum           = classnum
    TABLES
      allocvaluesnumnew  = it_num
      allocvaluescharnew = it_char
      allocvaluescurrnew = it_curr
      return             = it_return2.

  COMMIT WORK AND WAIT.