Vuelca el DSPUSRPRF completo.
En la Cl antes de ejecutar el comando "pregunta" (IF) si la primera letra es
*EQ 'Q' "si es verdadero" prosiga el ciclo de lectura nueva (Goto).
O bien al revez encierras todo en un DO si no es (*NE 'Q') haga.
sera facil y podrás dejar que la cl discrimine solo con unas lineas mas
.Saludos,
Date: Fri, 18 Jul 2008 17:17:41 +0200From: [EMAIL PROTECTED]: [EMAIL
PROTECTED]: Re: perfiles de usuarios
Bueno, supongo que habrá una forma más fácil pero por si no la hay, aquí tienes
una:
Haz un dspusrprf volcado a disco: DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE)
OUTFILE(QTEMP/USR)
Quita del archivo generado los perfiles de usuario que no quieras deshabilitar
(qsysopr, qsecofr y similares, en general los que empiezan por 'q', son
candidatos a no ser deshabilitados. Lo normal es que solo quieras deshabilitar
los usuarios 'normales', que creo que en el fichero generado serán los que
tengan UPUSCL='*USER')
hazte una cl que recorra el fichero generado y por cada registro haga CHGUSRPRF
USRPRF(&UPUPRF) STATUS(*DISABLED)Creo que con esto lo tendrás.
Saludos.Fernando Pérez Cerámica Saloni. Dpto. Auditoría y [EMAIL PROTECTED]
escribió:
Este mensaje (incluyendo los archivos adjuntos) está destinado únicamente para
el uso de la persona o entidad a la que va dirigida y puede contener
información que no es pública, la propiedad, privilegiada y confidencial, y
exenta de divulgación en virtud de la ley aplicable. Si usted no es el
destinatario, se le notifica que cualquier uso, difusión, distribución o copia
de esta comunicación está estrictamente prohibida. Si ha recibido esta
comunicación por error, notifique inmediatamente por teléfono y (i) destruya
este mensaje o (ii) suprímalo de inmediato si se trata de una comunicación
electrónica. Este mensaje ha sido examinado por Symantec Mail Security y se lo
considera libre de virus y spam.
Content-Type: multipart/alternative; boundary="=_alternative
0050FF920525748A_="SALUDOS A TODOS, ALGUIEN ME PUEDE AYUDAR, NECESITO
DESHABILITAR TODOS LOS PERFILES USUARIO DEL SISTEMA GRACIAS POR LA AYUDA
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
_________________________________________________________________
La última hora de tu ciudad en MSN Noticias
http://noticias.es.msn.com/
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
