Sending Text Email Message from CL Program

From Support

            PGM                                                       
                                                                       
/***************************************************************/      
/* MESSAGE VARIABLES                                */                 
/***************************************************************/      
             DCL        VAR(&CRLF) TYPE(*CHAR) LEN(2) VALUE(X'0D25')   
             DCL        VAR(&MESSAGE) TYPE(*CHAR) LEN(2048)            
             DCL        VAR(&MSG01) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 1')                                     
             DCL        VAR(&MSG02) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 2')                                     
             DCL        VAR(&MSG03) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 3')                                     
             DCL        VAR(&MSG04) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 4')                                     
             DCL        VAR(&MSG05) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 5')                                     
             DCL        VAR(&MSG06) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 6')                                     
             DCL        VAR(&MSG07) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 7')                                     
             DCL        VAR(&MSG08) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 8')                                     
             DCL        VAR(&MSG09) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 9')                                     
             DCL        VAR(&MSG10) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 10')                                    
             DCL        VAR(&MSG11) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 11')                                    
             DCL        VAR(&MSG12) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 12')                                    
             DCL        VAR(&MSG13) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 13')                                    
             DCL        VAR(&MSG14) TYPE(*CHAR) LEN(50) VALUE('TEST +  
                          LINE 14')                                    
                                                                       
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERRORS))       
                                                                       
/***************************************************************/      
/* SET MESSAGE VARIABLE WITH MULTIPLE LINES OF TEXT */                 
/***************************************************************/      
             CHGVAR     VAR(&MESSAGE) VALUE(&MSG01 |< &CRLF)           
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG02 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG03 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG04 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG05 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG06 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG07 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG08 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG09 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG10 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG11 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG12 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG13 |< &CRLF
             CHGVAR     VAR(&MESSAGE) VALUE(&MESSAGE |< &MSG14 |< &CRLF
                                                                       
/***************************************************************/      
/* SEND SIMPLE EMAIL */                                                
/***************************************************************/      
             SMTPMAIL2  TOADDR(RICHARD@RJSSOFT.COM) +                  
                          FROMADDR(RICHARD@RJSSOFT.COM) +              
                          SUBJECT('Test Multiline Message') +          
                          MESSAGE(&MESSAGE) +      
                          SMTPHOST(LOCALHOST)                          
                                                                       
             RETURN                                                    
                                                                      
/********************************************************************/ 
/* HANDLE ERRORS                                                    */ 
/********************************************************************/ 
ERRORS:                                                                
                                                                       
   /* SEND EXIT MESSAGE ON ERROR */                                    
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +  
                          occurred while sending message') +           
                          MSGTYPE(*ESCAPE)                             
             ENDPGM