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
