data: t_class like sclass occurs 0 with header line,
      t_objectdata like clobjdat occurs 0 with header line,
      object like ausp-objek.

Data: mat like mara-matnr,  “Номер материала
      Wrk like t001w-werks, “ Завод
      Chr like mcha-charg.  “ Партия
...
   " Определяем номер материала, завод и партию
...
concatenate mat wrk chr into obj.

call function 'CLAF_CLASSIFICATION_OF_OBJECTS'
    exporting
           class = 'Z_BATCH' " Имя класса, само собой, для примера
       classtext = 'X'
       classtype = '022'
        language = sy-langu
          object = obj
      tables
         t_class = t_class
    t_objectdata = t_objectdata
  exceptions
       no_classification = 1
           no_classtypes = 2
      invalid_class_type = 3.