ibm-midrange - 如何在 AS400 中获取用户的电子邮件 ID？

Question

我需要向用户发送一封邮件，说明提交的作业以错误结束，为此我应该如何检索/获取用户的电子邮件 ID？

Answer 1

如果您在系统分发目录中定义了用户电子邮件，那么您可以使用此 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;