SAP ABAP - Create Characteristic Using BAPI_CHARACT_CREATE

 REPORT ZCREATE_CHARACT.

DATA :
  CHARACTDETAIL TYPE BAPICHARACTDETAIL,
  CHARACTDESCR  TYPE TABLE OF BAPICHARACTDESCR WITH HEADER LINE,
  ITRETURN      TYPE TABLE OF BAPIRET2.

CLEAR CHARACTDETAIL.
CHARACTDETAIL-CHARACT_NAME = 'ZPM_CHAR01'.
CHARACTDETAIL-DATA_TYPE    = 'CHAR'.
CHARACTDETAIL-LENGTH       = '20'.
CHARACTDETAIL-CASE_SENSITIV = 'X'.
CHARACTDETAIL-STATUS        = '2'.
CHARACTDETAIL-ADDITIONAL_VALUES = '2'.

CLEAR CHARACTDESCR.
CHARACTDESCR-LANGUAGE_INT = 'EN'.
CHARACTDESCR-LANGUAGE_ISO = 'EN'.
CHARACTDESCR-DESCRIPTION  = 'Test PM Char'.
APPEND CHARACTDESCR.

CALL FUNCTION 'BAPI_CHARACT_CREATE'
  EXPORTING
    CHARACTDETAIL = CHARACTDETAIL
  TABLES
    CHARACTDESCR  = CHARACTDESCR[]
    RETURN        = ITRETURN.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    WAIT = 'X'.