SAP Datebanktabelle ausgeben

Code: Alles auswählen.

  DATA:
        datenbank TYPE TABLE OF adrp,
        ausgabe TYPE adrp.

        SELECT *
          INTO TABLE datenbank
          FROM adrp.

        LOOP AT datenbank INTO ausgabe.
           WRITE ausgabe.
           NEW-LINE.      
        ENDLOOP.

Code: Alles auswählen.

select *

Code: Alles auswählen.

select NAME_Last

Code: Alles auswählen.

***** Deklarationen *****

* interne Tabellen
DATA: t_personen TYPE STANDARD TABLE OF adrp.

* alv Listausgabe
DATA: go_alv              TYPE REF TO  cl_salv_table,
      "go_column           TYPE REF TO  cl_salv_column_table,
      go_columns          TYPE REF TO  cl_salv_columns_table,
      go_functions        TYPE REF TO  cl_salv_functions_list,      " toolbar
      go_display          TYPE REF TO  cl_salv_display_settings,
      go_layout           TYPE REF TO  cl_salv_layout,
      go_selections       TYPE REF TO  cl_salv_selections,          " multiselect
      gs_layoutkey        TYPE         salv_s_layout_key.

***** Selektion *****
SELECT *
  INTO CORRESPONDING FIELDS OF TABLE t_personen
  FROM adrp.

***** Ausgabe *****
IF sy-subrc = 0.
  PERFORM get_alv_settings.
  go_alv->display( ).
ENDIF.

*---------------------------------------------------------------------*
*      Form  get_alv_settings
*---------------------------------------------------------------------*
*       Ergebnisumfeld und -tabelle erstellen
*----------------------------------------------------------------------*

FORM get_alv_settings.

  TRY.
      cl_salv_table=>factory(
      IMPORTING
        r_salv_table = go_alv
      CHANGING
        t_table = t_personen ).
    CATCH cx_salv_msg.
  ENDTRY.

* Eigene Überschriften setzen
  go_columns = go_alv->get_columns( ).

* Zeilen farblich abwechseln
  go_display = go_alv->get_display_settings( ).
  go_display->set_striped_pattern( abap_true ).

* Spaltenbreite optimieren
  go_columns->set_optimize( 'X' ).

* Funktionstasten (Sortieren, Filtern, Excel-Export etc.)
  go_functions = go_alv->get_functions( ).
  go_functions->set_all( abap_true ).

* Dem Benutzer erlauben, eigene Anzeigevarianten zu speichern
  go_layout = go_alv->get_layout( ).
  gs_layoutkey-report = sy-repid.
  go_layout->set_key( gs_layoutkey ).
  go_layout->set_default( abap_true ).
  go_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).

* Dem Benutzer erlauben, mehrere Zellen/Zeilen/Spalten zu selektieren
  go_selections = go_alv->get_selections( ).
  CALL METHOD go_selections->set_selection_mode
    EXPORTING
      value = if_salv_c_selection_mode=>multiple.

* Titel
  go_display = go_alv->get_display_settings( ).
  go_display->set_list_header( 'Ausgabe' ).

ENDFORM.                    "get_alv_settings

Code: Alles auswählen.

LOOP AT datenbank INTO ausgabe.
  WRITE ausgabe-persnumber.
  WRITE ausgabe-date_from.
  WRITE ausgabe-nation.
  WRITE ausgabe-date_to.
  WRITE ausgabe-title.
  WRITE ausgabe-name_first.
  WRITE ausgabe-name_last.
  NEW-LINE.
ENDLOOP.