RPG IV - Contrôle du vérrouillage d'un enregistrement

Trucs & Astuces - Langages

AddThis Social Bookmark Button

 

Pour éviter lune erreur programme lors de la lecture d'un enregistrement verrouillé, il suffit de contrôler le code erreur 1218 dans le code.

 Voici un exemple de code ..

 

C MONITOR
C NUMHOM Chain HOM01PF
C if %found()
** Code Si Enregistrement Trouvé et Non verrouillé.
C endif
C ON-ERROR 1218
** Réalise le Traitement suivant si l'enregistrement est verrouillé.
C ENDMON