Merkmale lesen mit select

Code: Alles auswählen.

DATA:
  lv_objkey TYPE ibobjkey,
  lv_datts TYPE ib_valfr,

  BEGIN OF ls_erg,
    lv_atwrt TYPE atwrt,
    lv_atflv TYPE atflv,
    lv_atnam TYPE atnam,
    lv_anzdz TYPE anzdz,
    lv_atbez TYPE atbez,
  END OF ls_erg,
  lt_erg  LIKE ls_erg occurs 0.

lv_objkey = gs_matnr.
lv_objkey+18(4) = gs_werk.

SELECT ibsymbol~atwrt
        ibsymbol~atflv
        cabn~atnam
        cabn~anzdz
        cabnt~atbez
 FROM ibsymbol
INNER JOIN ibinvalues
        ON ibinvalues~symbol_id = ibsymbol~symbol_id
INNER JOIN ibin    ON ibin~in_recno        = ibinvalues~in_recno
INNER JOIN ibinown ON ibinown~instance     = ibin~instance
INNER JOIN cabn    ON cabn~atinn           = ibsymbol~atinn
INNER JOIN cabnt   ON cabnt~atinn          = cabn~atinn
 INTO TABLE lt_erg
WHERE ibinown~objkey = lv_objkey
  AND ibinown~inttyp = '0005'     "werkspezifische Variante
  AND cabn~atnam     = 'EN_NUMMER' "lv_atnam
  AND cabnt~spras    = sy-langu
  AND ibin~valfr    <= lv_datts
  AND ibin~valto    >= lv_datts.



read table lt_erg into ls_erg
with key lv_atnam = 'EN_NUMMER'.

gv_ennr  = ls_erg-lv_atwrt.