Code example

Code-Beispiel: Damit wird die Tabelle MACKV beim Zugriff von Winshuttle QUERY für alle Anwender gesperrt.

FUNCTION Z_WINSHUTTLE_CHECK_ACCESS.

*"----------------------------------------------------------------------

*"*"Local Interface:

*" IMPORTING

*" VALUE(TABLE) TYPE DD02L-TABNAME

*" EXPORTING

*" VALUE(ALLOWED) TYPE BOOLEAN

*" EXCEPTIONS

*" ERROR

*"----------------------------------------------------------------------

*Return access allowed ('X'=True or '-'=False) for current user

ALLOWED = ''. "Initialize

IF TABLE = 'MACKV'. "For any user

ALLOWED = '-'.

ELSE.

ALLOWED = 'X'.

ENDIF.

ENDFUNCTION.

*"----------------------------------------------------------------------

Außerdem können Berechtigungsprüfungsaufrufe für Ihre eigenen Berechtigungsobjekte in Bedingungen für den aktuellen Anwender hinzugefügt werden (Systemfeld SY-UNAME).