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 des Solutions Cloud & Services Managés Simplifiés
Comment capitaliser sur son existant tout en bénéficiant, dès à présent, des promesses de flexibilité et de scalabilité du cloud ? Découvrez les bonnes pratiques pour répondre aux défis de simplification du Cloud dans ce nouveau TOP 5.