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.
