Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
Jigang_Zhang张吉刚
Active Contributor
Function module 'BAPI_OBJCL_CREATE' can be used to upload new material classification data, and the function module 'BAPI_OBJCL_CHANGE' can be used to change existing material classification data. Before doing the upload data, it's better to verify the material classification already existed or not by function module 'BAPI_OBJCL_GETDETAIL'.

Be careful regards classification data as existing or not by checking the return message type from 'BAPI_OBJCL_GETDETAIL'.

  • <S>: Currently, material already has such an assignment for this specific classification.





  • <I>:  Assignment doesn't exist now. But could be been created before then deleted later.





  • <E>: There'll be no error no matter assignment existed or not for this specific classification, but errors like not existing material.



Nothing special for new classification assignment& creation for material, little tips when comes to change mode as material classification contains 3 different types of data and has to consider new data merged with already existing data without changes. Just refer to the below code as a reference.
DATA:
* Existing characteristic values
it_old_num type tt_bapi1003_alloc_values_num,
it_old_char type tt_bapi1003_alloc_values_char,
it_old_curr type tt_bapi1003_alloc_values_curr,
* Charcateristics values.
it_new_num type tt_bapi1003_alloc_values_num,
wa_new_num like line of it_new_num,
it_new_char type tt_bapi1003_alloc_values_char,
wa_new_char like line of it_new_char,
it_new_curr type tt_bapi1003_alloc_values_curr,
it_bapi_ret like table of bapiret2,
wa_bapi_ret like bapiret2.

* Get Existing Characteristic values.
CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
EXPORTING
OBJECTKEY = i_class-OBJECTKEYNEW
OBJECTTABLE = i_class-OBJECTTABLENEW
CLASSNUM = i_class-CLASSNUMNEW
CLASSTYPE = i_class-CLASSTYPENEW
TABLES
ALLOCVALUESNUM = it_old_num
ALLOCVALUESCHAR = it_old_char
ALLOCVALUESCURR = it_old_curr
RETURN = it_bapi_ret
.
if return type = 'S' but it_old_num/it_old_char/it_old_curr are empty
or return type = 'I'. "new creation mode
CALL FUNCTION 'BAPI_OBJCL_CREATE'
EXPORTING
OBJECTKEYNEW = i_class-OBJECTKEYNEW
OBJECTTABLENEW = i_class-OBJECTTABLENEW
CLASSNUMNEW = i_class-CLASSNUMNEW
CLASSTYPENEW = i_class-CLASSTYPENEW
* STATUS = '1'
* STANDARDCLASS =
* CHANGENUMBER =
* KEYDATE = SY-DATUM
* NO_DEFAULT_VALUES = ' '
* IMPORTING
* CLASSIF_STATUS =
TABLES
* ALLOCVALUESNUM =
ALLOCVALUESCHAR = lt_charact
* ALLOCVALUESCURR =
RETURN = lt_class_err
.

else. "update mode
* Move all existing values to the update tables
if it_old_num[] is not initial.
append lines of it_old_num to it_new_num.
endif.
if it_old_char[] is not initial.
append lines of it_old_char to it_new_char.
endif.
if it_old_curr[] is not initial.
append lines of it_old_curr to it_new_curr.
endif.

refresh: it_cl_chars.
* get assigment between class& char
call function 'CLME_FEATURE_ATTR_OF_CLASS'
exporting
class = i_class-CLASSNUMNEW
classtype = i_class-CLASSTYPENEW
language = sy-langu
key_date = sy-datum
* WITH_VALUES = 'X'
* CHANGE_NUMBER = ' '
tables
tfeatures = it_cl_chars
* TVALUES = TVALUES
exceptions
class_not_found = 1
no_authority = 2
others = 3.

* update data from upload file base on existing values
clear i_charact.
LOOP AT it_charact INTO i_charact
WHERE objectkeynew = p_head-material
and CLASSTYPENEW = i_class-CLASSTYPENEW
and CLASSNUMNEW = i_class-classnumnew.
* loop at all char need to be update for current class
clear: wa_cl_chars.
read table it_cl_chars into wa_cl_chars
with key atnam = i_charact-charact.
if sy-subrc = 0.
if wa_cl_chars-atfor = 'NUM' or
wa_cl_chars-atfor = 'DATE' or
wa_cl_chars-atfor = 'TIME'.
* All numeric, date and time values-> it_new_num.
wa_new_num-charact = i_charact-charact.
* Convert into internal format.
perform convert_to_internal using i_charact-charact
i_charact-value_char
changing wa_new_num-value_from.
* Check if the value already exists, update with new value.
clear ls_value_num.
read table it_new_num into ls_value_num with key charact = i_charact-charact.
if sy-subrc = 0.
ls_value_num-value_from = wa_new_num-value_from.
modify it_new_num from ls_value_num index sy-tabix.
clear: wa_new_num, ls_value_num.
else.
* Value did not exist, append it.
append wa_new_num to it_new_num.
clear wa_new_num.
endif.
else.
* if not num/date/time, means All char types-> it_new_char
wa_new_char-charact = i_charact-charact.
wa_new_char-value_char = i_charact-value_char.
wa_new_char-value_neutral = i_charact-value_char.

* Check if the value already exists, update with new value.
clear ls_value_char.
read table it_new_char into ls_value_char with key charact = i_charact-charact.
if sy-subrc = 0.
ls_value_char-value_char = wa_new_char-value_char.
ls_value_char-value_neutral = wa_new_char-value_neutral.
modify it_new_char from ls_value_char index sy-tabix.
clear: wa_new_char, ls_value_char.
else.
* Value did not exist, append it.
append wa_new_char to it_new_char.
clear wa_new_char.
endif.
endif. "DATE/TIME/NUM
else.
it_report-statu = c_error.
CONCATENATE i_charact-charact text-e38 into it_report-messa.
APPEND it_report.
CONTINUE.
endif.
ENDLOOP.

* Create/Change Classification values.
refresh it_bapi_ret.
call function 'BAPI_OBJCL_CHANGE'
exporting
objectkey = i_class-OBJECTKEYNEW
objecttable = i_class-OBJECTTABLENEW
classnum = i_class-CLASSNUMNEW
classtype = i_class-CLASSTYPENEW
* STATUS = '1'
* STANDARDCLASS = STANDARDCLASS
* CHANGENUMBER = CHANGENUMBER
* KEYDATE = SY-DATUM
* NO_DEFAULT_VALUES = ' '
* IMPORTING
* CLASSIF_STATUS = CLASSIF_STATUS
tables
allocvaluesnumnew = it_new_num
allocvaluescharnew = it_new_char
allocvaluescurrnew = it_new_curr
return = it_bapi_ret.

endif.


 

Besides, there's one SAP Note about this change FM: 2217098 - BAPI_OBJCL_CHANGE - some existing characteristic values are cleared.

One article from Kumar discussed how to Update Variant Characteristic Values.
Labels in this area