/*===============================*/
/* THIS IS A COMMAND             */
/* Send email direct from AS/400 */
/*                               */
/* SOURCE FILE QCMDSRC           */
/* SOURCE MEMBER NAME EMAIL      */
/* Command Processing Pgm EMAILC */
/*===============================*/
/*                               */
/* Author     Steve Miall        */
/* Company    Genesis V          */
/* Date       2000/10/04         */
/*                               */
/*===============================*/
             CMD        PROMPT('Send e-mail')
             PARM       KWD(@@@RTN) TYPE(*CHAR) LEN(1) DFT(' ') +
                          MIN(0) PMTCTL(*PMTRQS) PROMPT('Return Code')
             PARM       KWD(SUBJECT) TYPE(*CHAR) LEN(80) DFT('AS/400 +
                          email') MIN(0) PROMPT('Subject')
             PARM       KWD(MESSAGE) TYPE(*CHAR) LEN(256) DFT(*NONE) +
                          SPCVAL((*NONE)) MIN(0) PROMPT('Message')
             PARM       KWD(TO) TYPE(*CHAR) LEN(80) +
                          DFT('tech+
					@genesisv.com') MIN(0) +
                          PROMPT('Send to')
             PARM       KWD(FILE) TYPE(QUA1) PROMPT('File Name for +
                          message')
             PARM       KWD(MBR) TYPE(*CHAR) LEN(10) DFT(*FIRST) +
                          MIN(0) PROMPT('Member')
 QUA1:       QUAL       TYPE(*NAME) LEN(10) DFT(QMSG) SPCVAL((*NONE))
             QUAL       TYPE(*NAME) LEN(10) DFT(QTEMP) +
                          SPCVAL((*LIBL)) PROMPT('Library holding +
                          Message file')