Erster eigener Report im ALV ohne Menu

Code: Alles auswählen.

*&---------------------------------------------------------------------
*& Report Z_BUCHSELEKTUIN
*&---------------------------------------------------------------------
*&
*&---------------------------------------------------------------------
REPORT z_berechtigunbgen.

TYPES: BEGIN OF my_out,
         uname TYPE xubname,
         FROM_DAT TYPE agr_fdate,
         TO_DAT TYPE agr_tdate,
         AGR_NAME TYPE agr_name, " Hier muss das Feld für den Rollennamen rein
         tcode TYPE agxreport,
       END OF my_out.

DATA lt_out TYPE TABLE OF my_out. "interne Tabelle definiert
* Workarea
DATA ls_out TYPE my_out.

DATA: lt_berechtigungen TYPE TABLE OF AGR_users,
      ls_berechtigungen LIKE LINE OF lt_berechtigungen,
      l_berr TYPE string,
      o_salv TYPE REF TO cl_salv_table.

SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS: pa_name TYPE agr_users-agr_name. "Parameter für den Rollennamen
SELECT-OPTIONS so_user FOR ls_berechtigungen-uname. "Die Option für die Benutzernamen
SELECTION-SCREEN END OF BLOCK b1.
CONCATENATE '%' pa_name '%' INTO l_berr.

* Korrekt referenzierte Felder in der SELECT-Anweisung
SELECT a~AGR_NAME,
       Ben~UNAME,
       Ben~FROM_DAT,
       Ben~TO_DAT ,
       a~TCODE
  FROM AGR_users AS Ben
  INNER JOIN AGR_TCODES AS a
  ON a~agr_name = ben~agr_name
  WHERE a~AGR_NAME LIKE @l_berr
        AND Ben~UNAME IN @so_user
  GROUP BY a~AGR_NAME, Ben~UNAME, a~TCODE,Ben~FROM_DAT,Ben~TO_DAT
    INTO CORRESPONDING FIELDS OF TABLE @lt_out.

TRY.
    CALL METHOD cl_salv_table=>factory
      EXPORTING
        list_display = if_salv_c_bool_sap=>false
      IMPORTING
        r_salv_table = o_salv
      CHANGING
        t_table = lt_out.

    o_salv->display( ).

  CATCH cx_salv_msg INTO DATA(lx_salv).
    " Fehlerbehandlung
    MESSAGE lx_salv->get_text( ) TYPE 'E'.

ENDTRY.