Remplacer un membre sélectionnable par l’utilisateur

La figure 1 montre un
programme CL qui illustre la manière de
remplacer un membre sélectionnable par
l’utilisateur. Le programme accepte un
paramètre unique qui représente le numéro
séquentiel dans l’ordre des noms
où vous voulez que les remplacements
commencent. En A, j’utilise la commande
RtvMbrD et spécifie Mbr(*FirstMbr) pour
extraire le nom du premier membre.
Observez qu’en B, je surveille le message
ID CPF3049 (le membre n’existe pas).
Vous devez surveiller ce message après
chaque commande RtvMbrD pour vérifier
si le membre existe.

Le code à  Loop1: utilise RtvMbrD,
spécifiant Mbr(&MbrName *Next) pour extraire le nom du membre suivant. La
boucle a été écrite de telle sorte que
quand on la quitte, &MbrName contient
le nom du nième membre, où n est égal
au nombre transmis comme paramètre à 
ce programme dans la variable
&MbrNum.

Le code à  Loop2: remplace ce
membre puis appelle l’application (Test2
dans ce cas). Il utilise ensuite RtvMbrD
pour obtenir le nom du membre suivant.
La commande MonMsg fait que le programme
CL se termine quand il n’y a plus
de membre à  traiter.

Mike Cravitz