|
Revenir à |
Le code suivant bloque l'accès à la table MACKV pour tous les utilisateurs qui y accèdent depuis Winshuttle QUERY.
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.
*"----------------------------------------------------------------------
En outre, la vérification des droits appelle vos propres objets d'autorisation qui peuvent être ajoutés dans des conditions pour les utilisateurs actuels (champ système SY-UNAME).
Voir aussi |