Runtime error - Visual RPG

1 pièce(s) jointe(s)

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 :
Pièce jointe 335202

Je ne sais pas, avez-vous des idées? Il y a quelque chose que je ne dois pas voir... :?

Amicalement,

adibou_le_flamboyant();

Bonjour,

Ton erreur vient que l'update n'a pas eu de chain avant, ou plutôt ton chain a été fait avec ACCESS(*NOLOCK) donc ton enregistrement n'est pas tenu pour mise à jour.
Du coup, lorsque tu fais ton update, ça plante ...

Merci

Bonjour,

Beaucoup de temps perdu pour si peu ... Je n'ai même pas porté attention au CHAIN ... :weird:
Merci de ta réponse.

adibou_le_flamboyant();