Envoyer la requête

pour la renvoyer
à  l’application POS.
La figure 4 montre le code pour envoyer
une entrée de file d’attente de
données. Le RecordSet utilisé pour
renvoyer le résultat au POS est ouvert
une fois et laissé ouvert pour des raisons
de performance. Comme quand
on reçoit une entrée, le nom de la file
d’attente, la liste de champs, et la direction
sont fournis quand la file d’attente
de données est ouverte. La liste
de champs à  renvoyer au programme
RPG est constituée du numéro de
carte, du type de carte, de l’indicateur
d’approbation, du code d’autorisation
et de la description d’erreur.
Pour envoyer une entrée, insérez
simplement « l’enregistrement » en utilisant
la méthode .AddNew familière
de l’objet RecordSet. Observez que
vous ne pouvez faire un .AddNew que
pour une file d’attente de données ouverte
pour envoi. De même que vous
ne pouvez faire un .MoveNext que
pour une file d’attente de données ouverte
pour réception.
La syntaxe de la méthode .AddNew
peut sembler insolite parce qu’elle utilise
deux paramètres. Le premier est
un tableau contenant tous les noms de
champs pour l’entrée de la file d’attente
de données (ceci doit correspondre
à  la liste de champs données
dans l’open.) Le second paramètre est
aussi un tableau contenant la valeur de
chacun des champs. Les valeurs dans
ce tableau doivent coïncider avec
l’ordre de la liste de champs.
Il est redondant de fournir deux
fois la liste de champs (sur le .Open et
le .Addnew). C’est pourquoi le programme
de la figure 4 construit dynamiquement
le paramètre field list array
(en A) d’après les noms de champs
fournis à  la méthode .Open. Cette routine
facilitera la maintenance du code
parce que si la liste des champs est
changée sur le .Open, il n’est pas nécessaire
de la changer sur le .AddNew.
De plus, cela empêchera les erreurs en
s’assurant que les noms de champs
fournis à  la méthode .AddNew correspondent
aux noms donnés sur le
.Open.