|
Volver a |
El siguiente código bloquea el cuadro MACKV a todos los usuarios que accedan desde 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.
*"----------------------------------------------------------------------
Además, la comprobación de autoridad llama a sus propios objetos de autorización, y se pueden añadir condiciones para los usuarios actuales (campo de sistema SY-UNAME).
Consulte también |