Spaltennamen aus einer struktur

Code: Alles auswählen.

data: begin of str,
             matnr type mara-matnr,
             meins type mara-meins,
             ...
          end of str.

Code: Alles auswählen.

do.

"Spaltennamen ermitteln
spalte = 'MATNR' "beim ersten Lauf index = 1.
spalte = 'MEINS'  "beim zweiten do Lauf index = 2.

select * from ... where text = spalte.


enddo.

Code: Alles auswählen.

  DATA %GFLD TYPE RFIELDLIST OCCURS 0 WITH HEADER LINE.
  DATA %GSTR TYPE RSTRUCINFO OCCURS 0 WITH HEADER LINE.

* Read all used Var-names of the CALLER
  CALL FUNCTION 'GET_GLOBAL_SYMBOLS'
    EXPORTING
      PROGRAM      = SY-REPID
*      NAME_PATTERN = '*'
*      NAME_PATTERN = %VAR
    TABLES
      FIELDLIST    = %GFLD.

Code: Alles auswählen.

* When structure get the components
*    IF %GFLD-TYPE = 'u'." u = Tabllenkörper
      CALL FUNCTION 'GET_COMPONENT_LIST'
        EXPORTING
          PROGRAM    = LG_LIST_POPUP_CALLBACK_PROG
          FIELDNAME  = %GFLD-NAME
        TABLES
          COMPONENTS = %GSTR.