data: begin of ausp_objek,
          documenttype    like _documenttype   ,
          documentnumber  like _documentnumber ,
          documentversion like _documentversion,
          documentpart    like _documentpart   ,
        end   of ausp_objek.

  clear: ausp_objek.
  ausp_objek-documenttype    = _documenttype.
  ausp_objek-documentnumber  = _documentnumber.
  ausp_objek-documentversion = _documentversion.
  ausp_objek-documentpart    = _documentpart.

  select single * into wa_klah
    from klah
    where klart = wa_class-classtype
      and class = wa_class-classname.

  check sy-subrc = 0.

  select single * into wa_kssk
    from kssk
    where objek = ausp_objek
      and mafid = 'O'          " mafid_object
      and klart = wa_klah-klart
      and clint = wa_klah-clint.

  check sy-subrc = 0.

    select atinn atwrt atflv
      into corresponding fields of wa_ausp
      from ausp
      where objek = ausp_objek
        and atinn = atinn
*       and atzhl
        and mafid = wa_kssk-mafid
        and klart = wa_kssk-klart
        and adzhl = wa_kssk-adzhl.
...

CONSTANTS:
   c_klart(3) TYPE c VALUE '001',                         " вид класса - материал
   c_klpos(2) TYPE c VALUE '01',                          " swor~klpos = '01' позиция
   c_aland(2) TYPE c VALUE 'RU',                          " mlan~aland = 'RU'
   c_mafid(1) TYPE c VALUE 'O',                           " kssk~mafid = 'O' объект
   c_mafidk(1) TYPE c VALUE 'K',                           " kssk~mafid = 'K' класс
   c_miks(4)  TYPE c VALUE 'MIKS',                        " klah~klagr = 'MIKS'
   c_gpg(4)   TYPE c VALUE 'GPG'.                         " klah~klagr = 'GPG'

class1-matnr = mara-matnr.

* формирование подклассов

          SELECT SINGLE klah~class  kssk~klart kssk~objek klah~clint swor~kschl
             INTO CORRESPONDING FIELDS OF class1
             FROM kssk
             INNER  JOIN klah ON klah~clint = kssk~clint  AND klah~klagr = c_miks
             INNER JOIN swor ON swor~clint = kssk~clint AND swor~spras = sy-langu AND swor~klpos = c_klpos
             WHERE kssk~klart = c_klart
                 AND kssk~mafid = c_mafid
*                AND klah~klagr IN p_klagr
                    AND kssk~objek = class1-matnr.
*формирование классов
          SELECT SINGLE klah~class swor~kschl
             INTO (class1-classkl, class1-imakschl)
             FROM kssk
               INNER JOIN klah ON klah~clint = kssk~clint AND klah~klagr = c_gpg
               INNER JOIN swor ON swor~clint = klah~clint AND swor~spras = sy-langu AND swor~klpos = c_klpos
             WHERE kssk~objek = class1-clint.