Voici un exemple pour retrouver facilement le message d'erreur en cas de message sur une instruction SQL embarquée 

Exemple :

D nom        S              20A  

D Text          S             50A       

//------------------------------------------------------------ 

EXEC SQL                                                

           Select nom into :nom from clients      ;                              

    //------------------------------------------------------------                                              

                    If        SQLCOD < *Zeros  ;           

     EXEC SQL   Get Diagnostics Condition 1 

:MyText = Message_Text  

        Dsply Text;                                                   

 EndIf  ;

Vous obtenez le texte du message d'erreur sur 50 caractères.