Comment ça marche ?

Pour commencer, créer un CL appelé CSNMSG, CL qui reçoit en paramètre une chaîne
de 80 caractères. Le source de ce CL est le suivant :


PGM PARM(&MSG)
DCL VAR(&MSG) TYPE(*CHAR) LEN(80)
SNDPGMMSG MSGID(CPF9897) MSGF(QSYS/QCPFMSG) +
MSGDTA(&MSG) TOPGMQ(*EXT) MSGTYPE(*STATUS)
ENDPGM


Ensuite, créer une macro-instruction sous ADELIA appelée &TEMPORISATION qui
reçoit en paramètre une chaîne de 80 caractères. Elle se contente d’appeler CSNMSG en
lui passant en paramètre le message à  envoyer sur l’écran de l’utilisateur.

Utilisation (dans ADELIA) ?

Une bonne solution si vous risquez d’avoir un chargement de sous-fichier un peu long
consiste à  placer votre macro juste avant le pavé de chargement du sous-fichier, à 
l’intérieur du pavé INITIALISATION. De même, si vous avez un calcul ou une mise à  jour
dans le pavé VALIDATION qui risque de durer quelques secondes (suffisamment pour que
l’utilisateur ait le temps de bâiller) placez-y votre macro &TEMPORISATION. Rien
d’autre à  faire…