> Tech > Envoyer des messages de notification d’événement

Envoyer des messages de notification d’événement

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

Voici un moyen simple pour envoyer des messages de notification d'événement en utilisant la fonction e-mail de l'AS/400 lorsqu'on est connecté à  Internet :

1 - Ajouter une entrée de répertoire :

ADDIRE USERID(user1 email)
        USRD('User 1 on EMAIL_SVR1')
        SYSNAME(TCPIP) MSFSRVLVL(*SYSMS) 
        PREFADR(*SMTP)
        USRDFNFLD((SMTPAUSRID SMTP'user1')
        (SMTPDMN SMTP 'company.com.'))

User1 est

le nom utilisé sur le serveur de courrier électronique (John_ Smith, Jsmith, par exemple). Il doit obligatoirement être exact et placé entre guillemets simples. EMAIL_SVR1 n’est pas obligatoire mais peut être utile. Company.com doit correspondre à  la chaîne suivant le @ dans l’adresse e-mail et doit également être placé entre guillemets simples.

2 – Ecrire un court programme CL comme celui de l’encadré ci-dessous. Notons que SNDDST n’accepte pas de variables comme l’heure et la date.






Exemple de programmme CL utilisé pour envoyer des messages e-mail
aux utilisateurs :


PGM
DCL VAR(&TIME) TYPE(*CHAR) LEN(6)
DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
DCL VAR(&MSG) TYPE(*CHAR) LEN(100)

RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)

CHGVAR VAR(&MSG) VALUE(‘Event completed at ‘ *CAT +
&TIME *CAT ‘ on ‘ *CAT &DATE)

SNDDST TYPE(*LMSG) TOUSRID((USER1 EMAIL) (USER2 +
EMAIL) (USER3 EMAIL) (USER4 EMAIL)
(USER5 EMAIL) (USER6 EMAIL)
(USER7 EMAIL)) DSTD(‘Event A +
Notification’) LONGMSG(&MSG)
CRTDATE(*CURRENT)
ENDPGM


3 – A la fin du programme exécutant la tâche, appeler le programme CL. Cette manoeuvre enverra un message électronique aux utilisateurs 1 à  7, dans ce cas, pour les informer que, “ L’événement a eu lieu à  HHMMSS, le MMJJAA. ”

Barney Cservak, Spécialiste technique des systèmes d’information
CSR Building Materials
Molute, NSW, Australie

Téléchargez cette ressource

Guide de Sécurité IA et IoT

Guide de Sécurité IA et IoT

Compte tenu de l'ampleur des changements que l'IA est susceptible d'entraîner, les organisations doivent élaborer une stratégie pour se préparer à adopter et à sécuriser l'IA. Découvrez dans ce Livre blanc Kaspersky quatre stratégies efficaces pour sécuriser l'IA et l'IoT.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010