Envoyer des messages de notification d’événement

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.

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