Retrieve message text and message data on a constraint error.
s1 is strings
constr_name is string
constr_parmfil, constr_parmlib is string
constr_fil, constr_lib is string
s1 = HErrorInfo(hErrMessage)
IF ExtractString(s1, 6, CR) = "Message: CPF503A" THEN
// Nom de la contrainte
constr_name = NoSpace(ASErrorData(176, 258))
constr_parmfil = NoSpace(ASErrorData(448, 10))
constr_parmlib = NoSpace(ASErrorData(458, 10))
constr_fil = NoSpace(ASErrorData(10, 10))
constr_lib = NoSpace(ASErrorData(20, 10))
Info("Error on constraint: "+constr_name+CR+"Parent File: "+constr_parmlib+"/"+constr_parmfil+CR+"File : "+constr_lib+"/"+constr_fil)
END
Info("AS/400 Error :" +Middle(ExtractString(s1, 7, CR),14)+CR+"Help :"+CR+ ASErrorHelp())