CALL FUNCTION 'BAPI_OBJCL_GETCLASSES'
EXPORTING
objectkey_imp = wa_ausp-objek
objecttable_imp = 'MCH1'
classtype_imp = '023'
TABLES
alloclist = it_alloclist
return = it_return.
READ TABLE it_alloclist INTO wa_alloclist INDEX 1.
IF wa_alloclist-classnum = 'HITCO_BATCH'.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
class = 'HITCO_BATCH'
classtype = '023'
features = 'X'
object = wa_ausp-objek
objecttable = 'MCH1'
TABLES
t_class = it_class
t_objectdata = it_objectdata
EXCEPTIONS
no_classification = 1
no_classtypes = 2
invalid_class_type = 3
OTHERS = 4.
EXPORTING
objectkey_imp = wa_ausp-objek
objecttable_imp = 'MCH1'
classtype_imp = '023'
TABLES
alloclist = it_alloclist
return = it_return.
READ TABLE it_alloclist INTO wa_alloclist INDEX 1.
IF wa_alloclist-classnum = 'HITCO_BATCH'.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
class = 'HITCO_BATCH'
classtype = '023'
features = 'X'
object = wa_ausp-objek
objecttable = 'MCH1'
TABLES
t_class = it_class
t_objectdata = it_objectdata
EXCEPTIONS
no_classification = 1
no_classtypes = 2
invalid_class_type = 3
OTHERS = 4.
No comments:
Post a Comment