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
