//***************************************************************                             
      // Module Name  -- SNDEMAIL_C                                                                 
      // Written By   -- J.J.F.     Date Written  -- 08/11/2016                                     
      // Modified By  -- X.X.X.     Last Revision -- XX/XX/XXXX                                     
      //***************************************************************                             
      // List all modifications to this program below in the                                        
      // format of initials, date & description of your change.                                     
      //                                                                                            
      // Initials    Date    Description                                                            
      //  J.J.F.   08/11/16  Procedures                                                             
      //                                                                                            
      //***************************************************************                             
      // send an email and upto 10 attachments   20 email addresses                                 
      // use *PRI, CC, or BCC                                                                       
      //                                                                                            
      // content types                                                                              
      // *PLAIN                               *POWERPT                                              
      // *HTML                                *EXCEL                                                
      // *XML                                 *AC3                                                  
      // *RTF                                 *MP3                                                  
      // *OGG                                 *WAV                                                  
      // *PDF                                 *GIF                                                  
      // *VISIO                               *JPEG                                                 
      // *ZIP                                 *PNG                                                  
      // *POST                                *MPEG                                                 
      // *L123                                *MSG                                                  
      // *FREE                                *BMP                                                  
      // *WORD                                                                                      
      // *WORDPRO                                                                                   
      //***************************************************************                             
     d EmailAddresses  ds                            qualified                                      
     d  allmydata                   104    dim(20)   overlay(emailaddresses)                        
     d  address                     100              overlay(allmydata:*next)                       
     d  type                          4              overlay(allmydata:*next)                       
     d Attachments     ds                            qualified                                      
     d  allmydata                   250    dim(10)   overlay(attachments:1)                         
     d  fullpath                    200              overlay(allmydata:*next)                       
     d  type                         50              overlay(allmydata:*next)                       
     d  mydata         ds                  Qualified                                                
     d   allmydata                 5050                                                             
     d   emailaddresses...                                                                          
     d                                     likeds(emailaddresses)                                   
     d                                     overlay(allmydata:*next)                                 
     d   attachments                       likeds(attachments)                                      
     d                                     overlay(allmydata:*next)                                 
     d   subject                     60A   overlay(allmydata:*next)                                 
     d   body                       400A   overlay(allmydata:*next)                                 
     d   userid                      10A   overlay(allmydata:*next)                                 
       //==============================================================*                            
       //   PROTOTYPES                                                 *                            
       //--------------------------------------------------------------*                            
     d SendEmail       PR              n   ExtProc('SNDEMAIL')                                      
     d InParms                     5050