Can I send an email from a CLIP?

Products

• Alchemist
• TPX - Session Management
• Vman Session Management for z/OS

Issue/Introduction

Can I send an email from a CLIP?

 

Environment

Release:
Component: ALCMST

Resolution

CLIP2 and CLIP9 are prime candidates for sending email notification for required authorizations and completion/failure notification. Here is an example using SMTP to send email notification:

//    SET REQUESTNO = '&ASRRID.SUBRF'<<F,L>>  
//    SET SUBBY = '&PCLUSERID'<<F,L>>         
//    SET SUBNAME = '&ASRRID.SUBNM'<<F,L>>    
//    SET SUBDATE = '&ASRRID.REQDT'<<F,L>>    
//    SET SUBDD = '&SUBDATE'<<F+4,F+5>>       
//    SET SUBMM = '&SUBDATE'<<F+2,F+3>>       
//    SET SUBYY = '&SUBDATE'<<F,F+1>>
//    SET RCPT = '########@EXAMPLE.COM'        
//EMAIL    EXEC PGM=IEBGENER                                  
//SYSOUT   DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSIN    DD  DUMMY                                          
//SYSUT2   DD  SYSOUT=(B,SMTP)                                
//SYSUT1   DD  *,FORMAT=(,SUB)                                
HELO ESP                                                      
MAIL FROM: <########@EXAMPLE.COM>                                  
RCPT TO: <&RCPT>                         
DATA                                                          
FROM: &SUBNAME                                           
TO:   &RCPT                              
SUBJECT: REQ #&REQUESTNO AUTHORIZATION NOTIFICATION           
------------------------------------------------              
  ALCHEMIST REQUEST - #&REQUESTNO                             
SUBMITTED BY USERID - &SUBBY.  (&SUBNAME.)                    
                 ON - &SUBMM/&SUBDD/&SUBYY                    
------------------------------------------------              
REQUIRES YOUR AUTHORIZATION/APPROVAL.                                  
THE REQUEST CONTAINS THE FOLLOWING ENTITIES:                           
ENTITY NAME              ENTITY TYPE                                   
-----------              -----------                                   
//         SET  I=1                                                    
//         WHILE I<=&ASRRED_COUNT                                      
//         IF  '&ASRRED(I).ENAME<<F,L>>' NOT NULL                      
//    SET EN = '&ASRRED(I).ENAME'<<F,F+23>>                            
//    SET ET = '&ASRRED(I).ETYPE'<<F,L>>                               
&EN &ET                                                                
//         ENDIF                                                       
//         SET  I=I+1                                                  
//         ENDWHILE                                                    
THIS IS A POST-ONLY MAILING.  PLEASE DO NOT RESPOND TO THIS MESSAGE.   
.                                                                      
QUIT                                                                   
/*

The email address can be for any eligible device.

This Frequently Asked Question applies to all supported releases of ESP Alchemist.