En primer lugar, cree el grupo de funciones personalizadas, cree el módulo de funciones de la comprobación personalizada y, a continuación, active la comprobación personalizada.
-
Introduzca el código de transacción SE80.
En la lista desplegable, haga clic en Grupo de funciones.
Escriba Z_Automate_CHK_ACSS_FUGR y, a continuación, haga clic en el botón Mostrar.
Cuando se le pida que cree el objeto, haga clic en Sí.
Escriba Automate Query Cust Auth chk func grp en el cuadro Texto breve.
En el cuadro Paquete, seleccione el paquete de los desarrollos Z.
Cree o seleccione una solicitud de transporte.
-
Seleccione el nuevo grupo de funciones y haga clic con el botón secundario; a continuación, haga clic en Crear > Módulo de funciones.
En el cuadro Módulo de funciones, escriba Z_Automate_CHECK_ACCESS.
En el cuadro Texto breve, escriba Z Automate Query Custom Auth Object.
Importante: El nombre y los parámetros deben ser exactamente iguales que los que se muestran en la captura de pantalla anterior.
Haga clic en Guardar.
Haga clic en la pestaña Importar e introduzca los valores que se muestran a continuación:
Haga clic en la pestaña Exportar e introduzca los valores que se muestran a continuación:
Haga clic en la pestaña Excepciones e introduzca los valores que se muestran a continuación:
Guarde, compruebe y active el módulo de funciones (FM).
En el cuadro Tabla/Vista, escriba /WINSHTLQ/QREPRM y, a continuación, haga clic en Actualizar.
Haga clic en Nuevo e introduzca los valores que se muestran a continuación:
Haga clic en Guardar y, a continuación, en Salir.
Este código bloquea el acceso a la tabla MACKV a todos los usuarios de Automate Query.
FUNCIÓN Z_Automate_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.
*"----------------------------------------------------------------------
También puede añadir las llamadas de comprobación de autoridad a sus propios objetos de autorización en las condiciones del usuario actual (campo del sistema SY-UNAME).