Jose: Yo tenia un CLP que hace lo indicado por Marti….
Ojala te sirva
Saludos
Ignacio
0020.00 PGM PARM(&LIB &LIBAUT &MBR)
0021.00 DCL VAR(&FECHA) TYPE(*CHAR) LEN(6)
0022.00 DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
0023.00 DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
0024.00 DCL VAR(&LIBAUT) TYPE(*CHAR) LEN(10)
0025.00 DCLF FILE(QTEMP/OBJAUT)
0026.00 MONMSG MSGID(CPF0000)
0027.00 CHKOBJ OBJ(&LIB) OBJTYPE(*LIB)
0028.00 MONMSG MSGID(CPF9801) EXEC(SNDPGMMSG MSGID(CPF9898) +
0029.00 MSGF(QCPFMSG) MSGDTA('Biblioteca Origen +
0030.00 no existe. Proceso terminado') +
0030.01 MSGTYPE(*ESCAPE))
0031.00 CHKOBJ OBJ(&LIBAUT) OBJTYPE(*LIB)
0032.00 MONMSG MSGID(CPF9801) EXEC(SNDPGMMSG MSGID(CPF9898) +
0033.00 MSGF(QCPFMSG) MSGDTA('Biblioteca de +
0034.00 Objeto AUT no existe. Proceso terminado') +
0034.01 MSGTYPE(*ESCAPE))
0035.00 IF COND(&LIB *EQ &LIBAUT) THEN(SNDPGMMSG +
0036.00 MSGID(CPF9898) MSGF(QCPFMSG) +
0037.00 MSGDTA('Biblioteca Origen y Biblioteca de +
0037.01 AUTs, deben ser distintas. Proceso +
0037.02 Cancelado') MSGTYPE(*ESCAPE))
0038.00 DSPOBJD OBJ(&LIB/*ALL) OBJTYPE(*ALL) +
0039.00 OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJAUT) +
0039.01 OUTMBR(*FIRST *ADD)
0040.00 IF COND(&MBR *EQ '*TODAY') THEN(DO)
0041.00 RTVSYSVAL SYSVAL(QDATE) RTNVAR(&FECHA)
0042.00 CVTDAT DATE(&FECHA) TOVAR(&FECHA) TOFMT(*YMD) +
0042.01 TOSEP(*NONE)
0043.00 CHGVAR VAR(&MBR) VALUE('AUT' *TCAT &FECHA)
0044.00 ENDDO
0045.00 CHKOBJ OBJ(&LIBAUT/&LIB) OBJTYPE(*FILE) MBR(&MBR)
0046.00 MONMSG MSGID(CPF9801 CPF9815) EXEC(GOTO CMDLBL(CREA))
0047.00 CHKOBJ OBJ(&LIBAUT/&LIB) OBJTYPE(*FILE) MBR(&MBR)
0048.00 MONMSG MSGID(CPF9815) EXEC(GOTO CMDLBL(CREA))
0049.00 CLRPFM FILE(&LIBAUT/&LIB) MBR(&MBR)
0050.00 CREA: CRTDUPOBJ OBJ(QAOBJAUT) FROMLIB(QSYS) OBJTYPE(*FILE) +
0051.00 TOLIB(&LIBAUT) NEWOBJ(&LIB) DATA(*NO)
0053.00 MONMSG MSGID(CPF0000)
0054.00 CHGPF FILE(&LIBAUT/&LIB) MAXMBRS(*NOMAX) +
0055.00 SIZE(*NOMAX) TEXT('AUTs para: ' *CAT &LIB)
0056.00 DSPOBJAUT OBJ(&LIB) OBJTYPE(*LIB) OUTPUT(*OUTFILE) +
0057.00 OUTFILE(&LIBAUT/&LIB) OUTMBR(&MBR *REPLACE)
0058.00 LOOP: RCVF
0060.00 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))
0061.00 DSPOBJAUT OBJ(&ODLBNM/&ODOBNM) OBJTYPE(&ODOBTP) +
0062.00 OUTPUT(*OUTFILE) OUTFILE(&LIBAUT/&LIB) +
0062.01 OUTMBR(&MBR *ADD) AUTTYPE(*OBJECT)
0063.00 MONMSG MSGID(CPF0000)
0064.00 GOTO CMDLBL(LOOP)
0065.00 EOF:
0066.00 SNDMSG MSG('Archivo ' *CAT &LIB *TCAT ', generado +
0067.00 en ' *CAT &LIBAUT) TOUSR(*REQUESTER)
0068.00 ENDPGM
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Marti Riera
Enviado el: miércoles, 24 de mayo de 2017 3:33
Para: forum.help400
Asunto: Re: Reporte de Autoridades por Usuario
Hola,
Para ver los objetos de una biblioteca puedes hacer un DSPOBJD con salida a
fichero y despues analizar dicha salida con un programa o con SQL.
Para ver los permisos de un objeto tambien puedes hacer un DSPOBJAUT con salida
a fichero, el problema es que debes hacer un pequeño CL que lea la salida del
DSPOBJD y lo ejecute para cada objeto, utilizar *ADD para ir añadiendo la
información al fichero.
Saludos
Martí Riera
2017-05-23 22:54 GMT+02:00 Joss DJ
<joss_1...@hotmail.com<mailto:joss_1...@hotmail.com>>:
Hola Foro,
Buena tarde.
Solicito de favor su apoyo para decirme si existe algún comando que me pueda
dar los nombres de los objetos por librería así como su dependencia tiene con
los usuarios y que permisos tiene dicho usuario sobre esos objetos (lectura,
escritura etc).
Espero haberme explicado correctamente adicional les comento que la versión que
tenemos es la 6.1.
Muchas Gracias por su apoyo.
Saludos Cordiales,
José De Jesús.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
-----------------------------------------------------------------
Notice of Confidentiality: The information transmitted is intended only for the
sender and person or entity to which it is addressed and may contain
confidential and/or privileged material. Any review, e-transmission,
dissemination or other use of, or taking of any action in reliance upon, this
information by persons or entities other than the intended recipient is
prohibited.
If you received this in error, please contact the sender immediately by return
electronic transmission and then immediately delete this transmission,
including all attachments, without copying, distributing or disclosing same.
------------------------------------------------------------------
Aviso de Confidencialidad: Este correo electrónico y/o el material adjunto es
para uso exclusivo del emisor y la persona o entidad a la que expresamente se
le ha enviado, y puede contener información confidencial o material
privilegiado. Si usted no es el destinatario legítimo del mismo, por favor
repórtelo inmediatamente al remitente del correo y bórrelo.
Cualquier revisión, retransmisión, difusión o cualquier otro uso de este
correo, por personas o entidades distintas a las del destinatario legítimo,
queda expresamente prohibido. Este correo electrónico no pretende ni debe ser
considerado como constitutivo de ninguna relación legal, contractual o de otra
índole similar.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
