*&---------------------------------------------------------------------*
*& Report ZSCH_016_TCODE_CHECKER
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsch_016_tcode_checker.
* Die Nachricht im Fehlerfall
* Der Transaktionscode
PARAMETERS: pa_tcode TYPE tcode.
* Prüfung im Selektionsbild
AT SELECTION-SCREEN.
* Die Prüfung
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD pa_tcode.
* Auswertung des Prüfergebnisses
IF sy-subrc <> 0.
DATA(gd_message) = | Leider keine Berechtigung für Transaktionscode {pa_tcode} |.
MESSAGE gd_message TYPE 'E'.
ENDIF.
* Prüfung bestanden
START-OF-SELECTION.
WRITE: /
'Gratuliere, du hast die Berechtigung für die Transaktion',
pa_tcode.