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.
