DATA:
    ALLON LIKE BAPI1003_ALLOC_VALUES_NUM OCCURS 0 WITH HEADER LINE,
    ALLOC LIKE BAPI1003_ALLOC_VALUES_CHAR OCCURS 0 WITH HEADER LINE,
    ALLOCU LIKE BAPI1003_ALLOC_VALUES_CURR OCCURS 0 WITH HEADER LINE,
    RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
    DATA: OBJ LIKE BAPI1003_KEY-OBJECT.

    BREAK-POINT.

    OBJ = RESULT-EQUNR.

    CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
      EXPORTING
        OBJECTKEY       = OBJ
        OBJECTTABLE     = 'EQUI'
        CLASSNUM        = RESULT-CLASS
        CLASSTYPE       = '002'
      TABLES
        ALLOCVALUESNUM  = ALLON
        ALLOCVALUESCHAR = ALLOC
        ALLOCVALUESCURR = ALLOCU
        RETURN          = RETURN.
    READ TABLE ALLOC WITH KEY CHARACT = 'PM_A87'.
    IF SY-SUBRC = 0.
      CLEAR ALLOC.
      ALLOC-CHARACT = 'PM_A87'.
      ALLOC-VALUE_CHAR = 'СИ, В РАЗРЯДЕ ИНДИКАТОРА'.
      MODIFY ALLOC INDEX SY-TABIX.
    ENDIF.

Тут изменяем   
CALL FUNCTION 'BAPI_OBJCL_CHANGE'
      EXPORTING
        OBJECTKEY          = OBJ
        OBJECTTABLE        = 'EQUI'
        CLASSNUM           = RESULT-CLASS
        CLASSTYPE          = '002'
        NO_DEFAULT_VALUES  = 'X'
      TABLES
        ALLOCVALUESNUMNEW  = ALLON
        ALLOCVALUESCHARNEW = ALLOC
        ALLOCVALUESCURRNEW = ALLOCU
        RETURN             = RETURN.
    .
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      .