PreviousNext
Help > Développement > Fonctions W-Langage pour AS/400 > Fonctions Gestion des Messages d'info ou d'erreur AS/400 (CPA, CPF, etc.) > ASMessageReceive >
Exemple

 

asoq est une ASOutputQueue = gTest[nResSelectedQ]

aswtr est un ASWriterDetailed = asoq.WriterCollection[nResSelectedWtr]

SI aswtr.messageKey <> 0 ET aswtr.messageKey <> -1 ALORS

       asmsg est un ASMessage

            

       SI PAS ASMessageReceive(asmsg, aswtr.msgQName, aswtr.msgQLibName,        aswtr.messageKey,MaConnexion1) ALORS

                    Info(ErreurInfo(errComplet))

                    RETOUR

       FIN