*1) Ищем  obtab
    CALL FUNCTION 'VB_BATCH_DEFINITION'
      IMPORTING
        obtab = gv_obtab.


* 2) Формируем ключ
  lt_objects-key_field = 'MATNR'.
  lt_objects-value_int = matnr.
  APPEND lt_objects.
  lt_objects-key_field = 'CHARG'.
  lt_objects-value_int = charg.
  APPEND lt_objects.



  CALL FUNCTION 'BAPI_OBJCL_CONCATENATEKEY'
    EXPORTING
      objecttable    = gv_obtab
    IMPORTING
      objectkey_conc = lv_objectkey
    TABLES
      objectkeytable = lt_objects
      return         = lt_return.

  SELECT SINGLE cuobj
           FROM inob
           INTO lv_objek
          WHERE obtab = gv_obtab
            AND objek = lv_objectkey.

  IF sy-subrc EQ 0.

* Классификация партии
    SELECT   a~atinn
             a~adzhl
             a~atwrt
             a~atflv
             b~atnam AS charact
        FROM ausp AS a INNER JOIN cabn AS b ON
                     a~atinn = b~atinn AND
                     a~adzhl = b~adzhl
        INTO
       TABLE lt_prizn
       WHERE objek = lv_objek
         AND mafid = 'O'
         AND klart = '023'.


READ TABLE lt_prizn WITH KEY charact = 'DATAPM'.
.....