sábado, 9 de abril de 2011

Utilidad CMPOBJAUT

El mandato CMPOBJAUT nos permite, dentro de un programa, comparar la autorización de un objeto para un usuario concreto.
Por ejemplo con el siguiente mandato:
CMPOBJAUT LIB(MYLIB) OBJ(AN_OBJECT) TYPE(*FILE) USER(AN_USER) AUT(*USE) LGL (&MATCH)
Verificaremos si el usuario AN_USER tiene autorización *USE al archivo MYLIB/AN_OBJECT, si es así devolverá un '0' en la variable &MATCH, si es diferente devuelve '1'.

Podéis bajar el código de esta utilidad de este enlace.

No hay comentarios: