Here's the link - Think400 - iSeries (AS/400) API interfaces

Option available to return the *CURRENT email address.

I have (and would if I were you, I would as well) changed the following:
Code:
//   MODIFICATION HISTORY                                                  
//   ====================                                                  
//   DATE    NR  BY/REASON                                                 
//   ----    --  ---------                                                 
// 21.09.09 001  Deon A von Blerk                                          
//               Use a copybook for the parms                              
 
// 14.12.10 002  Deon A von Blerk                                          
// DE1/1000147   If requested do not return the domain part