*===================================================================== * 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;