如何在 AS400 中获取用户的电子邮件 ID?

How to fetch the User's Email Id in AS400?

我需要向用户发送一封邮件,告知提交的作业错误结束,为此我应该如何 retrieve/fetch 用户的电子邮件 ID?

如果您在系统分发目录中定义了用户电子邮件,那么您可以使用此 RPG 代码检索电子邮件:

chain User_Name qaokl02a;                                  
if %found;                                                 
  chain (wos1dden : machine) qatmsmtpa;                    
  if %found;                                               
    domroute = %xlate(up : lo : domroute);                 
    emailaddress = %trim(smtpuid) + '@' + %trim(domroute); 
  endif;
endif;