Mejor aun (en mi humilde opinión)
Mediante el Management Central de iSeries Navigator se pueden definir
supervisores que minotorizan cantidad de eventos y entre ellos los mensajes
enviados a cualquier cola y, en función de tus necesidades, ejecutar
mandatos, programas, anotarlos, etc...
El iSeries Navigator proporciona multitud de funciones interesantísimas. No
pensemos siempre en lanzarnos a programar, ya se que nos gusta, pero no
siempre es la mejor opción. ;-)
Saludos, Ignacio Colado.
CaiFor - Sistemas de Información
"Marti Riera"
<[EMAIL PROTECTED]
l.com> Para
Enviado por: [email protected]
forum.help400-adm cc
[EMAIL PROTECTED]
Asunto
Re: Aviso de inicio de Sesion de
07/07/2006 12:05 Usuario
Por favor,
responda a
[EMAIL PROTECTED]
bios.es
Hola, Hola,
Hay otra manera: un programa que vaya leyendo los mensajes CPF1124 del
QHST.
No me extiendo pq voy justo de tiempo.
Saludos.
El día 7/07/06, Sistemas <[EMAIL PROTECTED]> escribió:
MUCHAS GRACIAS A TODOS
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviado el: jueves, 06 de julio de 2006 17:10
Para: [email protected]
Asunto: RE: Aviso de inicio de Sesion de Usuario
Importancia: Alta
En mi caso, en el programa inicial unico para todos los usuarios
puse un llamado a un programa (CLP), que tiene:
/* PERFILES PODEROSOS : AUDITORIA ISAAUD08 */
PGM
DCL VAR(&U) TYPE(*CHAR) LEN(10)
DCL VAR(&UC) TYPE(*CHAR) LEN(10)
DCL VAR(&SA) TYPE(*CHAR) LEN(100)
DCL VAR(&UCg) TYPE(*CHAR) LEN(10)
DCL VAR(&SAg) TYPE(*CHAR) LEN(100)
DCL VAR(&GR) TYPE(*CHAR) LEN(10)
DCL VAR(&J) TYPE(*CHAR) LEN(10)
DCL VAR(&D) TYPE(*CHAR) LEN(9)
DCL VAR(&H) TYPE(*CHAR) LEN(6)
DCL VAR(&F) TYPE(*CHAR) LEN(7)
DCL VAR(®) TYPE(*CHAR) LEN(50)
MONMSG MSGID(CPF0000)
RTVJOBA JOB(&J) USER(&U)
RTVDAT DAYNAME(&D) CYYMMDD(&F)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&H)
RTVUSRPRF USRPRF(*CURRENT) SPCAUT(&SA) GRPPRF(&GR) +
USRCLS(&UC)
RTVUSRPRF USRPRF(&GR) SPCAUT(&SAG) USRCLS(&UCG)
IF COND(&UC *EQ '*USER' *AND &UCG *EQ '*USER' +
*AND &SA *EQ '*NONE' *AND &SAG *EQ +
'*NONE') THEN(GOTO CMDLBL(FIN)) /* +
Si Usuario y su Grupo son tipo Normal => no
+
se informa */
SIGUE:
CHGVAR VAR(®) VALUE(&U *CAT &J *CAT &F *CAT &H +
*CAT &D)
WRTDBF FILE(*LIBL/ISAAUD08) RECORD(®) +
ACTION(*WRTCLOSE)
SNDMSG MSG('Usuario especial: ' *CAT &U *TCAT ' +
conectado en terminal ' *CAT &J *TCAT '. +
Queda informado en tabla ISAAUD08.') +
TOMSGQ(*HSTLOG QSYSOPR)
FIN: ENDPGM
El archivo ISAAUD08, tiene la estructura necesaria para recibir la
informacion, que se graba via WRTDBF (Utilitario de TAATOOL).
Espero te ayude
Ignacio
> ----------
> From:
> [EMAIL PROTECTED]:[EMAIL PROTECTED]
on
> behalf of Sistemas[ SMTP:[EMAIL PROTECTED]
> Reply To: [email protected]
> Sent: Jueves, 06 de Julio de 2006 9:40
> To: [email protected]
> Subject: RE: Aviso de inicio de Sesion de Usuario
>
> Hola,
>
>
> llevo mucho tiempo escuchando, pero nunca habia
intervenido.
> Como mucho de vosotros los ultimos 15 años de mi vida ha estado
ligados a
> estas maquinas, y siempre me ha surgido la misma pregunta:
>
> ¿ Conoceis una forma sencilla de recibir un mensaje
de
> cuando un usuario entra en el Sistema ?
>
>
> un saludo y gracias.
>
>
>
-----------------------------------------------------------------
Notice of Confidentiality: The information transmitted is intended
only for
the sender and person or entity to which it is addressed and may
contain
confidential and/or privileged material. Any review, e-transmission,
dissemination or other use of, or taking of any action in reliance
upon,
this information by persons or entities other than the intended
recipient is
prohibited.
If you received this in error, please contact the sender immediately
by
return electronic transmission and then immediately delete this
transmission, including all attachments, without copying,
distributing or
disclosing same.
------------------------------------------------------------------
Aviso de Confidencialidad: Este correo electrónico y/o el material
adjunto
es para uso exclusivo del emisor y la persona o entidad a la que
expresamente se le ha enviado, y puede contener información
confidencial o
material privilegiado. Si usted no es el destinatario legítimo del
mismo,
por favor repórtelo inmediatamente al remitente del correo y bórrelo.
Cualquier revisión, retransmisión, difusión o cualquier otro uso de
este
correo, por personas o entidades distintas a las del destinatario
legítimo,
queda expresamente prohibido. Este correo electrónico no pretende ni
debe
ser considerado como constitutivo de ninguna relación legal,
contractual o
de otra índole similar.
------------------------------------------------------------------
__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400
__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400
--
Martí Riera
__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400
