Schlagwort: RSD_DTEL_GET

* Infos zur Tabelle 'MARA' lesen
SELECT fieldname, rollname
  INTO TABLE @DATA(it_elements)
  FROM dd03l
  WHERE tabname  = 'MARA'
    AND comptype = 'E'
    AND as4local = 'A'.

IF sy-subrc = 0.

  DATA: lv_dtel TYPE rsddtel.

  LOOP AT it_elements ASSIGNING FIELD-SYMBOL(<e>).
* Infos zu Datenelement lesen, ruft implizit FuBa DDIF_FIELDINFO_GET
    CALL FUNCTION 'RSD_DTEL_GET'
      EXPORTING
        i_dtelnm       = <e>-rollname
      IMPORTING
        e_s_dtel       = lv_dtel
      EXCEPTIONS
        dtel_not_found = 1
        doma_not_found = 2
        illegal_input  = 3
        OTHERS         = 4.

    IF sy-subrc = 0.
* Daten  hinzufügen
      cl_demo_output=>write_data( lv_dtel ).
    ENDIF.
  ENDLOOP.

* Daten anzeigen
  cl_demo_output=>display( ).

ENDIF.