Mettre à  jour un fichier joint

On part souvent du principe qu’il n’est
pas possible de mettre à  jour un fichier
joint. Mais comme dans bien d’autres
cas, il existe un contournement. Le
code suivant montre une mise à  jour rapide
en utilisant SQL interactif. Le fichier
d’en-tête de commande avait besoin
d’un positionnement de drapeau
dans lequel existait une correspondance
sur le fichier Xjp20 correspondant.
L’instruction Exists vérifie qu’un
enregistrement correspond dans le fichier
joint. Le a.ordn40 utilise une variable
de corrélation (a) pour amener
dans l’instruction Select le numéro de
commande (ordn40) à  partir du fichier
que l’on met à  jour :

update oep40 a
set type40 = 'M'
where cono40 = 'DC' and exists
(select * from Xjp20 where cono20 = 'DC' and
pord20 = a.ordn40)