Tu programa debe estar creado desde un user con atributos del oficial de seguridad o con capacidad de cambiar datos de un USRPRF y creado con USRPRF(*OWNER)
Saludos ^^^ Armando Luengas Mendoza Jafra Cosmetics International IT México ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ From: afl guyi <[email protected]> To: "forum.help400" <[email protected]> Date: 09/08/2010 01:27 p.m. Subject: Re: consulta?? Sent by: [email protected] Gracias... intente modificar el msg CPF1393 , y le puese que me ejecute una CL para desde ahi modificar el estado del usuario y no la ejecuta, alguien sabe porq????? ALguien ejecuta CL desde un CPFXXXX....?GRACIASSS A TODOS El 8 de agosto de 2010 01:13, Gustavo Sagastume <[email protected]> escribió: 1. crear la cola de mensajes QSYS/qsysmsg en esta cola se duplican los mensajes de la qsysopr 2. hacer un programa CL que tenga reciba los mensajes de qsysmsg ejemplo (no esta probado) PGM DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) DCL VAR(&MSG) TYPE(*CHAR) LEN(75) DCL VAR(&MSGX) TYPE(*CHAR) LEN(80) DCL VAR(&USUARIO) TYPE(*CHAR) LEN(10) CICLO: RCVMSG MSGQ(QSYSOPR) MSGTYPE(*NEXT) MSGKEY(*TOP) + RMV(*YES) MSG(&MSG) MSGDTA(&MSGX) + MSGID(&MSGID) IF COND(&MSGID = 'CPF1393') THEN(DO) CHGVAR VAR(&USUARIO) VALUE(%SUBSTRING(&MSGX 11 20)) CHGUSRPRF USRPRF(&USUARIO) STATUS(*ENABLED) ENDDO IF COND(&MSGID = ' ') GOTO CMDLBL(FIN) GOTO CMDLBL(CICLO) FIN: ENDPGM 3. somber la cl al batch con un trabajo de prearranque espero que te ayude ---------- Mensaje reenviado ---------- De: afl guyi <[email protected]> Fecha: 7 de agosto de 2010 18:14 Asunto: consulta?? Para: [email protected] hola a todos Como hago para dejar un pgm en Batch(sin fin) que chequee que un usuario quedo "disable",porq ingreso mal su clave mas de 3 veces y habilitarlos, desde ese programa que esta en corriendo en batch..... Quiero hacer esto porq la maquina quedara encendida todo los fines de semana(sin ningun operador)... Gracias a todos ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
