Permet de lire les informations sur la dernière erreur qui a été renvoyée par les fonctions variables_xxx.
Protype RPG (abrégé en var_errinfo) :
Dvar_errinfo PR 10I 0 ExtProc('variables_errinfo')
D errmsg 1 options(*varsize)
D errmsglen 10I 0 value
errmsg est le message d’erreur reçu
errmsglen est la taille de réception pour le message d’erreur
Cette fonction peut être appelée en cas d’interception d’exception, ou bien en test de retour des fonctions.
Exemple :
monitor;
[…]
on-error 00202;
// retreive error message
var_errinfo(msg: 30, 30);
// display it...
dsply msg;
endmon;