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

Envoyer des messages de notification d’événement

Tech - Par iTPro - 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 gratuitement cette ressource

Aborder la Blockchain, comprendre et démarrer

Aborder la Blockchain, comprendre et démarrer

Une véritable révolution se prépare progressivement... les entreprises doivent veiller à ne pas rester à l’écart et se faire prendre de vitesse. Tout comme la mobilité ou encore le cloud, la blockchain est une composante essentielle de la transformation numérique. Découvrez, dans ce dossier, comment aborder, comprendre et démarrer la Blockchain

Tech - Par iTPro - Publié le 24 juin 2010