Si lo he compilado con *owner(siendo qsecofr), pero no funciona.... El msg cpf1393 no lo corre... y lo arregle dejando(por ahora hasta ver un poco mas) una corrida en batch, un pgm sin fin compilado con *owner, para que cambie el usuario de "disable" a "enable"... Pero me gustaria que el cpf1393 dispare ese pgm. Graciassss a todos, si alguien puede aportar alguna idea bien venida sea...
El 9 de agosto de 2010 15:34, <[email protected]>escribió: > 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 > <*gasagastume.gt*<http://gasagastume.gt/> > @*gmail.com* <http://gmail.com/>> 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]* <[email protected]>> > Fecha: 7 de agosto de 2010 18:14 > Asunto: consulta?? > Para: *[email protected]* <[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*<http://bit.ly/db68dd>) > Forum.Help400 © Publicaciones Help400, S.L. > > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( > *http://bit.ly/db68dd*<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.
