ABAP 取物料主数据 分类试图 特征值

ABAP 取物料主数据 分类试图 特征值

DATA:lv_classtype TYPE klah-klart VALUE ‘001’.
DATA:lv_object TYPE ausp-objek.
DATA:lt_class TYPE TABLE OF sclass.
DATA:lt_obdata TYPE TABLE OF clobjdat.

REFRESH:lt_obdata,lt_class.
lv_object = gs_alv-matnr.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
  EXPORTING
    classtype          = lv_classtype
    language           = sy-langu
    classtext          = 'X'
    object             = lv_object

•   OBJECTTABLE        = ' '
    features           = 'X'
    key_date           = sy-datum
    initial_charact    = 'X'
    change_service_clf = 'X'
  TABLES
    t_class            = lt_class
    t_objectdata       = lt_obdata
  EXCEPTIONS
    no_classification  = 1
    no_classtypes      = 2
    invalid_class_type = 3
    OTHERS             = 4.
  

  READ TABLE lt_obdata INTO DATA(lw_obdata) WITH KEY atnam = ‘PARTDRAWINGNUMBER’. "型号/图号
  IF sy-subrc = 0.
  -xh = lw_obdata-ausp1.
  ENDIF.
  READ TABLE lt_obdata INTO DATA(lw_obdata2) WITH KEY atnam = ‘T192’. "品牌
  IF sy-subrc = 0.
  -pp = lw_obdata2-ausp1.
  ENDIF.
  READ TABLE lt_obdata INTO DATA(lw_obdata3) WITH KEY atnam = ‘PARTNAME’.
  IF sy-subrc = 0.
  -mc = lw_obdata3-ausp1.
  ENDIF.