Comment remplacer le WHENEVER SQLERROR ?
Posté : mer. 01 juil. 2015, 10:31:47
Bonjour,
Sous V7R1,
La conversion du "Tag" RPG en Free pose question.
Existe t'il une astuce pour contourner le fait que Tag n'a aucun remplaçant dans RPG Free ?
Plus globalement, le "WHENEVER SQLERROR" ne doit il pas être abandonné au profit d'une gestion d'erreurs SQL après chaque instruction SQL ?
Merci d'avance pour vos réponses.
Sous V7R1,
La conversion du "Tag" RPG en Free pose question.
Code : Tout sélectionner
/FREE
EXEC SQL
WHENEVER SQLERROR GOTO ERRSQL;
...
/END-FREE
C ErrSQL Tag
/FREE
//* action lors de l'erreur sql
cancel('Erreur SQL : ' + SQLSTT);
Existe t'il une astuce pour contourner le fait que Tag n'a aucun remplaçant dans RPG Free ?
Plus globalement, le "WHENEVER SQLERROR" ne doit il pas être abandonné au profit d'une gestion d'erreurs SQL après chaque instruction SQL ?
Merci d'avance pour vos réponses.