Как получить идентификатор электронной почты пользователя в AS400?

Question

Мне нужно отправить пользователю письмо о том, что отправленное задание завершилось ошибкой, для этого как мне получить / получить идентификатор электронной почты пользователя?

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;