Bonjour à toutes et à tous,
J'ai une erreur d'exécution que je ne comprends pas ...
J'ai un fichier logique FICHIER01 qui pointe sur FICHIER:
DCLDISKFILE name(FICHIER01) type(*Update) filedesc('*libl/FICHIER01') dbdesc('...') org(*Indexed) addrec(*Yes)
Mon code (que j'ai un peu adapté pour être plus claire):
Quand c'est préfixé par F$ c'est un contrôle, sinon c'est un champ.
// Clef FICHIER01 - KEYFICHIER01.
MOVEL SOURCE(F$Produit) TARGET(PRODUIT) FILL(*PAD)
MOVEL SOURCE(F$Usine) TARGET(USINE) FILL(*PAD)
MOVEL SOURCE(F$Methode) TARGET(METHODE) FILL(*PAD)
ZADD F2(F$Operation) RESULT(OPERATION)
// Fin clef.
MOVEL SOURCE(F$Information) TARGET(INFORMATION)
CHAIN FROM(FICHIER01) KEY(KEYFICHIER01) ACCESS(*NOLOCK) NOTFND(*IN50)
IF *IN50 = *OFF
......UPDATE FICHIER01 // Erreur d'execution sur cette ligne.
ELSE
......WRITE FICHIER01 // Aucun problème sur le WRITE.
ENDIF
Voici l'erreur :
Je ne sais pas, avez-vous des idées? Il y a quelque chose que je ne dois pas voir...
Amicalement,
adibou_le_flamboyant();
Partager