Struktur und Textbeschreibung ausgeben via Write

Code: Alles auswählen.

REPORT  xOxO.

DATA i_dd03l TYPE TABLE OF dd03l.
DATA go_alv TYPE REF TO cl_salv_table. "Klassen reference übergeben
DATA c_tabname TYPE c LENGTH 20.       "Var. tablename für pa_input
FIELD-SYMBOLS <fs_dd03l> LIKE LINE OF i_dd03l.

PARAMETERS pa_input LIKE (c_tabname). "Setzen bei Präsentation

SELECT * FROM dd03l INTO TABLE i_dd03l
    WHERE tabname = pa_input. "pa_input. "Setzen bei Präsentation

IF sy-subrc = 0.  "Abfrage ob es die Input Tabelle gibt

  LOOP AT i_dd03l ASSIGNING <fs_dd03l>.
   WRITE: / sy-tabix,
    (5) <fs_dd03l>-keyflag,
    (10) <fs_dd03l>-datatype,
    (10) <fs_dd03l>-leng,
    (15) <fs_dd03l>-rollname,
    (10) <fs_dd03l>-decimals,
    (10) <fs_dd03l>-dbposition.
  ENDLOOP.


TRY.
  CALL METHOD cl_salv_table=>factory "erzeugt eine View für interne Tab.
*  EXPORTING
*    list_display   = IF_SALV_C_BOOL_SAP=>FALSE
*    r_container    =
*    container_name =
    IMPORTING
      r_salv_table   = go_alv
    CHANGING
      t_table        = i_dd03l.
 CATCH cx_salv_msg .
ENDTRY.

  go_alv->display( ). " Ausgabe der internen Tabelle mit Kopfzeile

ELSEIF sy-subrc = 4. " Wenn es den Tablename nicht gibt neue Anfrage
  WRITE / 'HALLO - du musst schon was richtiges eingeben'.
  " Ersetzen durch neue Abfrage
ENDIF.