Texttabellen lesen dynamisch

Code: Alles auswählen.

DATA: ls_output       TYPE meine_ausgabe_struktur,
      ls_texttabelle  TYPE texttabelle,
      lt_texttabelle  TYPE STANDARD TABLE OF texttabelle,
      ls_texttabelle2 TYPE texttabelle2,
      lt_texttabelle2 TYPE STANDARD TABLE OF texttabelle2.


IF NOT ls_output-feld IS INITIAL.
  CLEAR ls_testtabelle.
  READ TABLE lt_texttabelle INTO ls_texttabelle
  WITH KEY feld = ls_output-feld.
  IF sy-subrc NE 0.
    SELECT SINGLE * FROM texttabelle INTO ls_texttabelle
      WHERE feld = ls_output-feld
      AND   langu = sy-langu.
    IF sy-subrc EQ 0.
      APPEND ls_texttabelle  TO lt_texttabelle.
    ENDIF.
  ENDIF.
  ls_output-feld_bezeichnung = ls_texttabelle-bezeichnung.
ENDIF.

IF NOT ls_output-feld2 IS INITIAL.
  CLEAR ls_testtabelle2.
  READ TABLE lt_texttabelle2 INTO ls_texttabelle2
  WITH KEY feld2 = ls_output-feld2.
  IF sy-subrc NE 0.
    SELECT SINGLE * FROM texttabelle2 INTO ls_texttabelle2
      WHERE feld2 = ls_output-feld2
      AND   langu = sy-langu.
    IF sy-subrc EQ 0.
      APPEND ls_texttabelle2  TO lt_texttabelle2.
    ENDIF.
  ENDIF.
  ls_output-feld2_bezeichnung = ls_texttabelle2-bezeichnung.
ENDIF.