*=====================================================================                        
      * Example of retrieving information about the last e-mail message                             
      * sent by the current job                                                                     
      *                                                                                             
      * CRTBNDRPG PGM(MMAIL/LSTMSGINFO) SRCFILE(MMAIL/SAMPLERPG)                                    
      *           DFTACTGRP(*NO) ACTGRP(*CALLER) DBGVIEW(*SOURCE)                                   
      *                                                                                             
      *=====================================================================                        
      /copy MMAIL/qrpglesrc,hspecs                                                                  
      /copy MMAIL/qrpglesrc,hspecsbnd                                                               
      /copy MMAIL/qrpglesrc,mailproto                                                               
      /copy MMAIL/qrpglesrc,prototypeb                                                              
      /copy MMAIL/qrpglesrc,variables3                                                              
      /copy MMAIL/qrpglesrc,usec                                                                    
     D emailFile       s            512                                                             
     D emailSender     s            256                                                             
     D emailReceivrs   s          65535                                                             
     D emailSubject    s            256                                                             
     D emailTime       s             31                                                             
      *=====================================================================                        
      /free                                                                                         
         emailFile     = getenv('LAST_MAIL_FILE'      :qusec);                                      
         emailSender   = getenv('LAST_MAIL_SENDER'    :qusec);                                      
         emailReceivrs = getenv('LAST_MAIL_RECIPIENTS':qusec);                                      
         emailSubject  = getenv('LAST_MAIL_SUBJECT'   :qusec);                                      
         emailTime     = getenv('LAST_MAIL_TIME'      :qusec);                                      
         return;