RPG IV – Contrôle du verrouillage d’un enregistrement

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