Simple ABAP - Change allowed values in a characteristic by BAPI_CHARACT_CHANGE

Simple report to add an allowed (CHAR) value to a characteristic using the BAPI method BAPI_CHARACT_CHANGE

*&---------------------------------------------------------------------* *& Report  ZSDN_CHARVALUE_ADD *& *&---------------------------------------------------------------------* *& Simple report to add an allowed (CHAR) value to a characteristic *& using method BAPI_CHARACT_CHANGE *&---------------------------------------------------------------------*   REPORT  zsdn_charvalue_add LINE-SIZE 255.   DATA:   return               LIKE bapiret2 OCCURS 0,         wa_ret               LIKE bapiret2,         charactname          LIKE bapicharactkey-charactname,         charactdetailnew     LIKE bapicharactdetail OCCURS 0,         char_detail          LIKE bapicharactdetail,         charactdescrnew      LIKE bapicharactdescr OCCURS 0,         char_descr_new       LIKE bapicharactdescr,         charactvaluescharnew LIKE bapicharactvalueschar OCCURS 0,         char_val_char        LIKE bapicharactvalueschar,         charactvaluesnumnew  LIKE bapicharactvaluesnum OCCURS 0,         char_val_num         LIKE bapicharactvaluesnum,         charactvaluescurr    LIKE bapicharactvaluescurr OCCURS 0,         charactvaluesdescrnew   LIKE bapicharactvaluesdescr OCCURS 0,         charactvaluesdescr   LIKE bapicharactvaluesdescr ,         charactreferences    LIKE bapicharactreferences OCCURS 0,         charactrestrictions  LIKE bapicharactrestrictions OCCURS 0.   PARAMETERS: charname TYPE rctav-atnam OBLIGATORY MATCHCODE OBJECT merk.   charactname = charname. CALL FUNCTION 'BAPI_CHARACT_GETDETAIL'   EXPORTING     charactname         = charactname   IMPORTING     charactdetail       = char_detail   TABLES     charactdescr        = charactdescrnew     charactvaluesnum    = charactvaluesnumnew     charactvalueschar   = charactvaluescharnew     charactvaluescurr   = charactvaluescurr     charactvaluesdescr  = charactvaluesdescrnew     charactreferences   = charactreferences     charactrestrictions = charactrestrictions     return              = return.   *Character format (CHAR): for characteristic values that consist of a character string *Numeric format (NUM): for numeric characteristic values *Date format (DATE): for characteristic values that represent a date *Time format (TIME): for characteristic values that represent a time *Currency format (CURR): for characteristic values that are entered in a currency APPEND char_detail TO charactdetailnew.   CASE char_detail-data_type.   WHEN 'CHAR'.       char_val_char-value_char = 'SDN_TEST'.     APPEND char_val_char TO charactvaluescharnew.       charactvaluesdescr-language_int            = sy-langu.     WRITE  charactvaluesdescr-language_int  TO charactvaluesdescr-language_iso.     charactvaluesdescr-value_char              =  'SDN_TEST'.     charactvaluesdescr-description         = 'Simple SDN Test'.     APPEND charactvaluesdescr TO charactvaluesdescrnew.       CALL FUNCTION 'BAPI_CHARACT_CHANGE'             EXPORTING               charactname           = charactname             TABLES               charactdetailnew      = charactdetailnew               charactdescrnew       = charactdescrnew *             charactvaluesnumnew   = charactvaluesnumnew               charactvaluescharnew  = charactvaluescharnew *             CHARACTVALUESCURRNEW               charactvaluesdescrnew = charactvaluesdescrnew *             CHARACTREFERENCESNEW *             CHARACTRESTRICTIONSNEW               return                = return.       LOOP AT return INTO wa_ret WHERE type = 'A' OR type = 'E'.       EXIT.     ENDLOOP.     IF sy-subrc <> 0.       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'         EXPORTING           wait = 'X'.     ENDIF.       LOOP AT return INTO wa_ret.       WRITE:/ wa_ret-message.     ENDLOOP.     WHEN OTHERS. ENDCASE.