BAPI_OBJCL_CHANGE
Please see the following code
log initialization
CALL FUNCTION 'BAPI_LOG_INIT'.
do some initializations
CLEAR db_update.
create classification data
CALL FUNCTION 'CACL_OBJECT_ALLOCATION_MAINT'
EXPORTING
object_type = x_auto-header-object_type
class = x_auto-header-class
class_type = x_auto-header-class_type
STATUS =
STANDARD_CLASS =
DELETE_ALLOCATION =
CHANGE_NO =
I_OBJ_NOT_CHK = ' '
I_DATUV =
I_NO_DEFAULTS = ' '
TABLES
object_identification = x_auto-data
EXCEPTIONS
error = 1
warning = 2
OTHERS = 3.
IF sy-subrc NE 0.
CALL FUNCTION 'BAPI_LOG_CLOSE'
TABLES
return = lt_return.
LOOP AT lt_return INTO wa_return WHERE type = 'E'.
mac_msg_putx co_msg_error wa_return-number
wa_return-id
wa_return-message_v1
wa_return-message_v2
wa_return-message_v3
wa_return-message_v4
space.
ENDLOOP.
RAISE input_error.
ENDIF.
CALL FUNCTION 'CACL_OBJECT_VALIDATION_MAINT'
EXPORTING
object_type = x_auto-header-object_type
class = x_auto-header-class
class_type = x_auto-header-class_type
CHANGE_NO =
I_OBJ_NOT_CHK = ' '
I_DATUV =
I_NO_DEFAULTS = ' '
TABLES
object_identification = x_auto-data
validation_maint = x_auto-value
EXCEPTIONS
error = 1
warning = 2
OTHERS = 3.
IF sy-subrc 0.
CALL FUNCTION 'BAPI_LOG_CLOSE'
TABLES
return = lt_return.
LOOP AT lt_return INTO wa_return WHERE type = 'E'.
mac_msg_putx co_msg_error wa_return-number
wa_return-id
wa_return-message_v1
wa_return-message_v2
wa_return-message_v3
wa_return-message_v4
space.
ENDLOOP.
RAISE input_error.
ENDIF.
CALL FUNCTION 'CACL_CLASSIFICATION_SAVE'
EXPORTING
i_commit = ' '
i_no_upd_task = 'X'.
close internal log
CALL FUNCTION 'BAPI_LOG_CLOSE'
TABLES
return = lt_return.
set update flag if everything went well
db_update = 'X'.
Kevin
Bluesky
