BAPI_OBJCL_CHANGE\VB_BATCH_2_CLASS_OBJECT

DATA:e_objek TYPE  objnum,
     e_obtab TYPE  tabelle,
     e_klart TYPE  klassenart,
     e_class TYPE  klasse_d.


DATA:lt_num    TYPE TABLE OF  bapi1003_alloc_values_num WITH HEADER LINE,
     lt_char   TYPE TABLE OF  bapi1003_alloc_values_char WITH HEADER LINE,
     lt_curr   TYPE TABLE OF  bapi1003_alloc_values_curr WITH HEADER LINE,
     lt_return TYPE TABLE OF  bapiret2 WITH HEADER LINE.

CALL FUNCTION 'VB_BATCH_2_CLASS_OBJECT'
  EXPORTING
    i_matnr = 'V000004000000000' "i_matnr "物料
    i_werks = '1100'             "i_werks "工厂
    i_charg = 'HDJB0804'         "i_charg "批次
  IMPORTING
    e_objek = e_objek  "对象码
    e_obtab = e_obtab  "数据库表名称
    e_klart = e_klart  "类别种类
    e_class = e_class. "类别



REFRESH lt_char.
CLEAR lt_char.

lt_char-charact = 'BATCH_REVLV'.       "Characteristics
lt_char-value_char = 'DF'.             "characteristics value
APPEND lt_char.

sy-langu = '1'.
CALL FUNCTION 'BAPI_OBJCL_CHANGE'
  EXPORTING
    objectkey          = e_objek
    objecttable        = e_obtab
    classnum           = e_class
    classtype          = e_klart
*   STATUS             = '1'
*   STANDARDCLASS      =
*   CHANGENUMBER       =
*   KEYDATE            = SY-DATUM
*   NO_DEFAULT_VALUES  = ' '
*   KEEP_SAME_DEFAULTS = ' '
*   objectkey_long     = l_objek
*   IMPORTING
*   CLASSIF_STATUS     =
  TABLES
    allocvaluesnumnew  = lt_num
    allocvaluescharnew = lt_char
    allocvaluescurrnew = lt_curr
    return             = lt_return.

IF sy-subrc EQ 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

ELSE.

ENDIF.